function splitstr,line,char

   cline = char+string(line(0))+char
   place = where(byte(cline) eq (byte(char))(0))
   nplace = n_elements(place)
   strarray = strarr(nplace-1L)
   strarray(0) = strmid(cline,place(0)+1L,place(1)-place(0)-1L)
   for i = 1L,nplace-2L do begin
      strarray(i) = strmid(cline,place(i)+1L,place(i+1L)-place(i)-1L)
   endfor

   return,strarray

en