home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00218.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  498 b   |  23 lines
  1. on rmvBlanks strng
  2.   if stringp(strng) = 0 then
  3.     return -1
  4.   end if
  5.   set lng to the number of chars in strng
  6.   repeat with i = 1 to lng
  7.     if char i of strng = " " then
  8.       nothing()
  9.       next repeat
  10.     end if
  11.     exit repeat
  12.   end repeat
  13.   set start to i
  14.   repeat with i = 1 to lng
  15.     if (char i - lng + 1 of strng = " ") or (char lng - i + 1 of strng = RETURN) then
  16.       nothing()
  17.       next repeat
  18.     end if
  19.     exit repeat
  20.   end repeat
  21.   return chars(strng, start, lng - i + 1)
  22. end
  23.