home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00129_Script_129 < prev    next >
Text File  |  1997-10-15  |  1KB  |  43 lines
  1. on pulisci_alberi
  2.   global x,y,xmax,ni,str,str1
  3.   
  4.   set xmax to the number of lines in field "albero" of castlib "internal"
  5.   --  set xmax to 1
  6.   
  7.   set alberi to the text of field "alberi" of castlib "indart"
  8.   set the text of field  "albero nuovo" of castlib "internal" to ""
  9.   
  10.   repeat with x=1 to xmax
  11.     set str to line x of field "albero" of castlib "internal"
  12.     set ni to the number of items in str
  13.     repeat with z =1 to ni
  14.       set num to value(item z of str)
  15.       if num >0 then 
  16.         set ni_new to num
  17.         exit repeat
  18.       end if
  19.     end  repeat
  20.     
  21.     set str1 to ""
  22.     set num to 0
  23.     
  24.     repeat with y=1 to ni_new
  25.       set alb to item y of str
  26.       set trovato to offset (alb,alberi)
  27.       if trovato>0 then 
  28.         set str1 to str1 & alb &","
  29.         set num to num +1
  30.       end if
  31.     end repeat
  32.     if num>0 then
  33.       set str1 to str1 & string(num) & "," 
  34.       repeat with w = ni_new+2 to ni-1
  35.         set str1 to str1 & item w of str & ","
  36.       end repeat
  37.       set str1 to str1 & item ni of str & RETURN
  38.       
  39.       put str1 after field "albero nuovo" of castlib "internal"
  40.     end if
  41.   end repeat
  42. end
  43.