strsplit_sah.m

function splittedstring = strsplit(inpstr,delimiter)
%FUNCTION strsplit
%
%-USE:
%
%This function should be used to split a string of delimiter separated
%values.  If all values are numerical values the returned matrix is a
%double array but if there is one non numerical value a cell array is
%returned.  You can check this with the iscell() function.
%
%-SYNTAX
%output = strsplit(inpstr[,delimiter])
%
%inpstr:    string containing delimiter separatede numerical values, eg
%           3498,48869,23908,34.67
%delimiter: optional, if omitted the delimiter is , (comma)
%
%-OUTPUT
%
%An x by 1 matrix containing the splitted values
%
%-INFO
%
%mailto:    gie.spaepen@ua.ac.be
%
%--------------------------------------------------------------------------


%Check input arguments
if(nargin < 1)
  error('There is no argument defined');
else
  if(nargin == 1)
    strdelim = ',';
    %Verbose off!! disp 'Delimiter set to ,';
  else
    strdelim = delimiter;
  end
end

%deblank string
deblank(inpstr);

%Get number of substrings
idx  = findstr(inpstr,strdelim);

%Define size of the indices
sz = size(idx,2);

% Preallocate cell array //SAH 1.1
tempsplit = cell([1 sz+1]);
%Loop through string and itinerate from delimiter to delimiter
for i = 1:sz
  %Define standard start and stop positions for the start position,
  %choose 1 as startup position because otherwise you get an array
  %overflow, for the endposition you can detemine it from the
  %delimiter position

  %If i is not the beginning of the string get it from the delimiter
  %position
  
  if i == 1
    strtpos = 1;
  else
    strtpos = idx(i-1)+1;
  end
  
  endpos = idx(i)-1;
  
  %If i is equal to the number of delimiters get the last element
  %first by determining the lengt of the string and then replace the
  %endpos back to a standard position
  if i == sz
    endpos = size(inpstr,2);
    tempsplit(i+1) = {inpstr(idx(i)+1 : endpos)};
    endpos = idx(i)-1;
  end
  %Add substring to output: splittedstring a cell array
  tempsplit(i) = {inpstr(strtpos : endpos)};
end

splittedstring = tempsplit;