home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00134_Script_134 < prev    next >
Text File  |  1997-10-15  |  909b  |  38 lines
  1. on deleta
  2.   --  repeat with a = 1 to the number of lines in field 137
  3.   --    if offset("#mi",line a of field 137) then
  4.   --      put line a of field 137 & return after field 140
  5.   --    end if
  6.   --  end repeat
  7.   
  8.   
  9.   set fld to field 122
  10.   repeat with a = 1 to the number of lines in field 128
  11.     if line a of field 128 <> "" then
  12.       set x to line a of field 128
  13.       delete char 1 of x
  14.       repeat with s = 1 to the number of lines in fld
  15.         if offset (x,line s of fld) then
  16.           put "xxx"
  17.           put ","&item 2 of line s of fld after  line a of field 128
  18.           exit repeat
  19.         end if
  20.       end repeat
  21.       put x
  22.     else
  23.       beep
  24.     end if
  25.   end repeat
  26.   
  27.   
  28.   
  29.   --  set fld to field 128
  30.   --  repeat with a = 1 to the number of lines in fld
  31.   --    delete item 2 of line a of fld
  32.   --  end repeat
  33.   --  put fld into field 128
  34.   
  35. end
  36.  
  37.  
  38.