tokens.m

来自「实现地震勘探中」· M 代码 · 共 68 行

function cstr=tokens(str,sep)
% Decompose string into individual strings separated by "sep"
%
% Written by: E. R.: November 22, 2006
% Last updated: May 12, 2008: Handle multi-character separator
%
%         cstr=tokens(str,sep)
% INPUT
% str     string
% sep     separator; 
%         Default: sep = ','
% OUTPUT
% cstr    cell vector (row) with individual strings
%
% EXAMPLE
%         cstr=tokens('aa,bbb,ccc')
%         cstr=tokens('aa\&bbb\&ccc&d','\&')

if isempty(str)
   cstr=cell(1,1);
   return
end


if nargin == 1
   sep=',';
end

lstr=length(str);
lstrh=fix(lstr/(1+length(sep)));
cstr=cell(lstrh+1);

for ii=1:length(str)
   [tok,str]=str2tok_no1(str,sep); %#ok Needs to handle multi-character separators
   cstr{ii}=tok;
   if isempty(str)
      cstr(ii+1:end)=[];
      break      
   end
end


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [tok,rem]=str2tok_no1(str,sep)
% Replacement for "strtok; handles multi-character separators

lsep=length(sep);
lsep1=lsep-1;
lstr=length(str);

if lsep > lstr
   tok=str;
   rem='';
   return
end

for ii=1:lstr-lsep1
   if all(str(ii:ii+lsep1) == sep)
      tok=str(1:ii-1);
      rem=str(ii+lsep:end);
      return
   end
end

tok=str;
rem='';