parse.sci

来自「站长您好！GATS是一种遗传算法工具箱」· SCI 代码 · 共 23 行

function [x] = parse(inStr)

strLen=length(inStr);
x='';
if strLen == 0, return,end;
if inStr(1) == ' '
    wordCount=0;
else
    wordCount=1;
end
last=0;
for i=1:strLen,
  if part(inStr,i) == ' '
    if ((i==strLen)|(part(inStr,i+1) ~= ' '))
       wordCount = wordCount + 1;
       x(wordCount)=emptystr();
       last=i;
    end
  else
    x(wordCount)=x(wordCount)+part(inStr,i);
  end
end