getnextarg.m

一个关于RBF的神经网络算法

function [arg, i] = getNextArg(s, i)
% [arg, i] = getNextArg(s, i)
%
% Used to parse a comma or space separated list of arguments
% in a single string into a sequence of argument strings.
%
% Inputs
%
%   s     entire string
%   i     current position in string
%
% Outputs
%
%   arg   sub-string
%   i     new position in string

if i > length(s)

  arg = '';

else

  if s(i) == ' ' | s(i) == ','

    % skip over separators
    separator = 1;
    while separator

      i = i + 1;
      if i > length(s)
        separator = 0;
      else
        separator = s(i) == ' ' | s(i) == ',';
      end

    end

  end

  % check if at end
  if i > length(s)

    arg = '';

  else

    % scan word
    separator = 0;
    arg = '';
    while ~separator

      arg = [arg s(i)];
      i = i + 1;

      if i > length(s)
        separator = 1;
      else
        separator = s(i) == ' ' | s(i) == ',';
      end

    end

  end

end