1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
function parts = strsplit(splitstr, str, option)
%STRSPLIT Split string into pieces.
%
% STRSPLIT(SPLITSTR, STR, OPTION) splits the string STR at every occurrence
% of SPLITSTR and returns the result as a cell array of strings. By default,
% SPLITSTR is not included in the output.
%
% STRSPLIT(SPLITSTR, STR, OPTION) can be used to control how SPLITSTR is
% included in the output. If OPTION is 'include', SPLITSTR will be included
% as a separate string. If OPTION is 'append', SPLITSTR will be appended to
% each output string, as if the input string was split at the position right
% after the occurrence SPLITSTR. If OPTION is 'omit', SPLITSTR will not be
% included in the output.
% Author: Peter J. Acklam
% Time-stamp: 2004-09-22 08:48:01 +0200
% E-mail: pjacklam@online.no
% URL: http://home.online.no/~pjacklam
nargsin = nargin;
error(nargchk(2, 3, nargsin));
if nargsin < 3
option = 'omit';
else
option = lower(option);
end
splitlen = length(splitstr);
parts = {};
while 1
k = strfind(str, splitstr);
if isempty(k)
parts{end+1} = str;
break
end
switch option
case 'include'
parts(end+1:end+2) = {str(1:k(1)-1), splitstr};
case 'append'
parts{end+1} = str(1 : k(1)+splitlen-1);
case 'omit'
parts{end+1} = str(1 : k(1)-1);
otherwise
error(['Invalid option string -- ', option]);
end
str = str(k(1)+splitlen : end);
end
|
