wolffd@0: function out = explode(divider,input)
wolffd@0: %out = explode(divider,input)
wolffd@0: out = {};
wolffd@0: len = length(input);
wolffd@0: start = 1;
wolffd@0: stop = 1;
wolffd@0: 
wolffd@0: segment = 1;
wolffd@0: while (stop <= len)
wolffd@0:     while (stop <= len)&& (~strcmp(input(stop),divider))
wolffd@0:         stop = stop+1;
wolffd@0:     end
wolffd@0:     out{segment} = input(start:stop-1);
wolffd@0:     segment = segment+1;
wolffd@0:     stop= stop+1;
wolffd@0:     start = stop;
wolffd@0: end
wolffd@0:         
wolffd@0:         
wolffd@0: