home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / DATABASE / SHARED.DIR / 01087.ls < prev    next >
Encoding:
Text File  |  1996-03-14  |  593 b   |  20 lines
  1. on fixstraplines
  2.   set tmp to the text of field "makersstraplines"
  3.   set joe to EMPTY
  4.   set the itemDelimiter to "-"
  5.   set num to the number of lines in tmp
  6.   repeat with i = 1 to num
  7.     set mk to item 1 of line i of tmp
  8.     set ff to the number of items in line i of tmp
  9.     set tmpline to mk & "," & item 2 to ff of line i of tmp
  10.     put tmpline into line i of tmp
  11.     if value(mk) then
  12.       put line i of tmp into line value(mk) of joe
  13.     end if
  14.   end repeat
  15.   set the itemDelimiter to ","
  16.   put the number of lines in joe
  17.   put joe
  18.   set the text of field "makersstraplines" to joe
  19. end
  20.