detection/parse.m

   1 function val=parse(str,sep1,sep2)
   2 % val=parse(str,sep1,sep2)
   3 % A simple string parser.
   4 %
   5 % Search the string str for the pair sep1 ... sep2 and return the substring
   6 % in between.
   7 %
   8 %
   9
  10     len1=length(sep1);
  11     len2=length(sep2);
  12     p1=strfind(str,sep1);
  13     if length(p1) ~= 1,
  14         error(['beginning string ',sep1,' must occur exactly once'])
  15     end
  16     p1 = p1 + length(sep1);
  17     p2=strfind(str,sep2);
  18     p2=p2(p2>p1);
  19     if length(p2) == 0,
  20         error(['matching end string ',sep2,' not found'])
  21     end
  22     val = str(p1:p2-1);
  23 end