Newsgroup: it.comp.macintosh
Titolo: Apple Script

ci sta qualche buon anima che mi puo dare una mano...?!
Ho trovato questo fantastico script non so dove....., che mi da queto
messaggio di errore:
        Non posso ottenere words 2 thru 4 of "9-07-1999"
La data si riferisce al primo messaggio di posta " Eudora nel mio caso"
che viene archiviato in un template di File Maker
Questo é lo Script, che dovrebbe archiviare la casella "Da Archiviare"
creata con eudora e dove uno ripone i propri messaggi appunto da
archiviare:
tell application "Eudora Pro 3.1.1"
        if exists (mailbox "Da Archiviare") then
                count (message of mailbox "Da Archiviare")
                copy result to numLettere
        else
                copy 0 to numLettere
        end if
end tell
repeat with i from 1 to numLettere
        tell application "Eudora Pro 3.1.1"
                copy (message i of mailbox "Da Archiviare") to testo
                copy (sender of message i of mailbox "Da Archiviare") ¬
                        to mittente
                copy (subject of message i of mailbox "Da Archiviare") ¬
                        to oggetto
                copy message date of message i of mailbox "Da
Archiviare" to LaData
        end tell
 
        tell application "FileMaker Pro"
                count record
                copy result to numRec
                create new record
                copy testo to cell "Testo" of record (numRec + 1)
                copy mittente to cell "Chi" of record (numRec + 1)
                copy oggetto to cell "Oggetto" of record (numRec + 1)
                set testoData to my (FormatData(LaData))
                copy testoData to cell "Data" of record (numRec + 1)
                set testoOra to my (FormatOra(LaData))
                copy testoOra to cell "Ora" of record (numRec + 1)
        end tell
end repeat
on FormatData(LaData)
        set t1 to LaData as string
        set text item delimiters of AppleScript to {" "}
        copy (text of words 2 thru 4 of t1) to pluto
        set giorno to (item 1 of pluto)
        if (giorno as number) < 10 then
                set giorno to "0" & giorno
        end if
        set mese to item 2 of pluto
        set anno to item 3 of pluto
        set currdata to (giorno & mese & anno)
        return currdata
end FormatData
on FormatOra(LaData)
        set t2 to LaData as string
        set text item delimiters of AppleScript to {" "}
        copy (text of words 1 thru 4 of t2) to pluto
        set ora to item 1 of pluto
        set currora to ora
        return currora
end FormatOra
---------------------------
Cordiali saluti
f.z...@goldnet.it
 

end FormatData
Se non cambi il formato data cambia lo script:
on FormatData(LaData)
  set t1 to LaData as string
  set text item delimiters of AppleScript to {"-"}
  copy every text item of t1 to pluto
  set giorno to (item 1 of pluto)
  if (giorno as number) < 10 then set giorno to "0" & giorno
  set mese to item 2 of pluto
  set anno to item 3 of pluto
  set currdata to (giorno & mese & anno)
  return currdata
end FormatData
Si potrebbe anche generalizzare (e lo faccio sempre), ma ora sono su
un picci'.
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

 
f.z...@goldnet.it
 
Ciao
-- 
    zzz...Ghiro...zzz

 
(Remove the hyphen! Spambusters at work!)
Attenzione: questo messaggio
   stimola la dieresi,
     e fa fare tanta
   ^ ^  _ _  ^ ^  _ _
   ° °  ° °  ° °  ° °
    -    -    -    - 
  (audio file follows)