home *** CD-ROM | disk | FTP | other *** search
/ <GEEK> 2 / GEEK2.ISO / pc / exploit.dxr / Internal_21_SelectedLingoUtils.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  452 b   |  18 lines
  1. on TextIntoList qText, delimiter
  2.   if not stringp(qText) or (length(qText) = 0) then
  3.     return []
  4.   else
  5.     set oldItemDelimiter to the itemDelimiter
  6.     if not stringp(delimiter) then
  7.       set the itemDelimiter to RETURN
  8.     else
  9.       set the itemDelimiter to delimiter
  10.     end if
  11.     set resultList to []
  12.     repeat with i = 1 to the number of items in qText
  13.       add(resultList, item i of qText)
  14.     end repeat
  15.   end if
  16.   return resultList
  17. end
  18.