10-22.txt

《MATLAB简明教程》俺买的最新版的MATLAB教材

%例10-22  nargin函数的高级使用方法。
%该程序用于在一个字符串中查找一小段指定的字符串，该段字符串为空格或是其他一些字符组成， 如果输入一个变量的话，程序将默认所查找的字符串为空格，如果输入两个变量，程序将要求指定另一个定界符。同时，程序要求有两条输出语句。 程序代码如下。
function [token, remainder] = strtok(string, delimiters)
% Function requires at least one input argument
if nargin < 1
   error('Not enough input arguments.');
end
token = []; remainder = [];
len = length(string);
if len == 0
   return
end

% If one input, use white space delimiter
if (nargin == 1)
   delimiters = [9:13 32]; % White space characters
end
i = 1;
% Determine where non-delimiter characters begin
while (any(string(i) == delimiters))
   i = i + 1;
   if (i > len), return, end
end
% Find where token ends
start = i;
while (~any(string(i) == delimiters))
   i = i + 1;
   if (i > len), break, end
end
finish = i - 1;
token = string(start:finish);
% For two output arguments, count characters after
% first delimiter (remainder)
if (nargout == 2)
   remainder = string(finish+1:end);
end