home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00051_Script_51 < prev    next >
Text File  |  1997-10-14  |  2KB  |  53 lines
  1. on popart_repub num
  2.   set tot to the number of lines in field "cod_art"
  3.   repeat with p = 1 to tot
  4.     set par to item 1 of line p of field "cod_art"
  5.     if char 1 of par = "p" then
  6.       set par to "M" & char 1 to 4 of par
  7.     else
  8.       set par to "MI" & char 1 to 3 of par
  9.     end if
  10.     if trova_cd (par,num) = 1 or par contains "MP" then
  11.       set par to item 1 of line p of field "cod_art"
  12.       set par2 to par&".idx"
  13.       put par
  14.       set max to the number of lines in field par2
  15.       repeat with a = 1 to max
  16.         set pr to item 1 of line a of field par2
  17.         set ofs to offset ("\",pr)
  18.         set amb to char 1 to ofs-1 of pr
  19.         if amb <> "tori" then 
  20.           set cod to char ofs+1 to ofs+5 of pr
  21.           if trova_cd (cod,num)= 0 then
  22.             delete line a of field par2
  23.             delete line a of field par
  24.             set a = a - 1
  25.             set max = max -1
  26.           end if
  27.         end if
  28.       end repeat
  29.     else
  30.       set par to item 1 of line p of field "cod_art"
  31.       set par2 to par&".idx"
  32.       erase member par
  33.       erase member par2
  34.     end if
  35.   end repeat
  36. end
  37.  
  38.  
  39.  
  40. on controlla 
  41.  global numero_parola_elim
  42.   set chi to 700
  43.   repeat with car = 1 to length (the text of field chi)
  44.     set appo to char 1 to car of field 700
  45.     set num_parola to the number of words in appo
  46.     if the textstyle of char car of field 700 contains "bold" then
  47.       collega_contr car, num_parola
  48.       set appo to word 1 to numero_parola_elim of field 700
  49.       set car to (the number of chars in appo)
  50.     end if      
  51.   end repeat
  52.   
  53. end