home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00017_Script_17 < prev    next >
Text File  |  1997-10-14  |  3KB  |  83 lines
  1. on pulisci cosa
  2.   put "frase sporca",cosa
  3.   if offset("fuochi d'artificio",cosa)>0 then return "fuochi d'artificio"
  4.   
  5.   if offset("condizionamento dell'aria",cosa)>0 then return "condizionamento dell'aria"
  6.   
  7.   if offset("lunghezza d'onda",cosa)>0 then return "lunghezza d'onda"
  8.   
  9.   if offset("cavi d'acciaio",cosa)>0 then return "cavi d'acciaio"
  10.   if offset("cavo d'acciaio",cosa)>0 then return "cavo d'acciaio"
  11.   set off1 to offset(return,cosa)
  12.   if off1 >0 then delete char off1 of cosa
  13.   if offset("doppler",cosa)>0 then return "effetto Doppler"
  14.   
  15.   set rll to offset("  ",cosa)
  16.   if rll then
  17.     delete char rll to the number of chars in cosa of cosa
  18.   end if
  19.   set rll to offset(return,cosa)
  20.   if rll then
  21.     delete char rll to the number of chars in cosa of cosa
  22.   end if
  23.   if offset(numtochar (013), cosa) > 0 then put "" into char offset(numtochar (013), cosa) of cosa
  24.   set r to chartonum (char (the number of chars in cosa) of cosa)
  25.   if  (r < 97 or  r > 122)  then
  26.     if (r < 65 or  r > 90) then
  27.       if (r < 48 or  r > 57) then
  28.         if (r < 126) then
  29.           delete char (the number of chars in cosa) of  cosa
  30.         end if
  31.       end if
  32.     end if
  33.   end if
  34.   set r to chartonum (char (the number of chars in cosa) of cosa)
  35.   if  (r < 97 or  r > 122)  then
  36.     if (r < 65 or  r > 90) then
  37.       if (r < 48 or  r > 57) then
  38.         if (r < 126) then
  39.           delete char (the number of chars in cosa) of  cosa
  40.         end if
  41.       end if
  42.     end if
  43.   end if
  44.   
  45.   set r to char 1 of cosa
  46.   if r = "(" then 
  47.     delete char 1 of  cosa
  48.   end if
  49.   set r to chartonum (char (the number of chars in cosa) of cosa)
  50.   if  (r < 97 or  r > 122)  then
  51.     if (r < 65 or  r > 90) then
  52.       if (r < 48 or  r > 57) then
  53.         if (r < 126) or  r = 40 then
  54.           delete char 1 of  cosa
  55.         end if
  56.       end if
  57.     end if
  58.   end if
  59.   set r to char 1 of cosa
  60.   if r = "(" then 
  61.     delete char 1 of  cosa
  62.   end if
  63.   set r to chartonum (char (the number of chars in cosa) of cosa)
  64.   if  (r < 97 or  r > 122)  then
  65.     if (r < 65 or  r > 90) then
  66.       if (r < 48 or  r > 57) then
  67.         if (r < 126) then
  68.           delete char 1 of  cosa
  69.         end if
  70.       end if
  71.     end if
  72.   end if
  73.   
  74.   if offset ("'",cosa) > 0 then
  75.     set cosa to char offset ("'",cosa)+1 to the number of chars in cosa of cosa
  76.   end if
  77.   if offset (",",cosa) > 0 then
  78.     set cosa to char 1 to offset (",",cosa)-1 of cosa
  79.   end if
  80.   
  81.   return cosa
  82. end 
  83.