Newsgroup: it.comp.macintosh
Titolo: [AAPLE-SCRIPT] convertire 1000 files

Non picchiatemi, ma avrei 1000 files di Word nel classico formato *.DOC
da convertire in *.RTF
Siccome č urgente, qualche anima pia saprebbe farmi uno script che
faccia il tutto automaticamente?
Grazie
Ciao ciao

Ho pure sbagliato il sbj ;-)
Ovviamente voleva essere [APPLE-SCRIPT]
Ciao ciao

 cerchero` un'altra donna dentro ai sogni di Tarzan...

 Ora fanne un loop come meglio credi...
...ed č proprio qui che mi bloccavo: come gli spiego che deve eseguirlo
su tutti i files contenuti in una determinata cartella?
Ciao ciao
 
-------------------------------------------------------------------
pu...@intercom.it
, ICQ#20390352, 
http://home.intercom.it/~puce
-------------------------------------------------------------------
La Tariffa Urbana a Tempo diminuisce la liberta' di tutti gli utenti
Internet. Anche la tua. 
http://www.notut.org
-------------------------------------------------------------------

 su tutti i files contenuti in una determinata cartella?
ma e` ovvio:
tell app "finder"
repeat with every file of folder (choose folder)
ecc.
end repeat
end tell
-- 
Ciao,        \+----------+  "La risposta e' dentro di te...
   Vittorio --| : )    o |      ...MA E' SBAGLIATA!!!"
             /+----------+

 end tell
Ora, faccio solo per dire, ma quante me ne avresti dette qualche anno fa
se solo avessi risposto io con un "ma e` ovvio"? ;o))
Bene, ora che anche per te e` ovvio puoi capire che non lo si fa per
bullarsi ma proprio perche` _e`_ ovvio, una volta entrati nella logica
di AppleScript :-DD


 end tell
OK, grazie 1000...
Capisco che sia ovvio (ed infatti lo è) però non mi sono mai interessato
ad AppleScript e adesso avevo una certa urgenza...
Ciao ciao

 di AppleScript :-DD
E` vero, ultimamente sono diventato un po' stronzo !! :-(


 E` vero, ultimamente sono diventato un po' stronzo !! :-(
Spero che sia piu` "distratto" che altro, visto che cosi` mi hai
implicitamente dato dello stronzo ;o)


 E` vero, ultimamente sono diventato un po' stronzo !! :-(
Allora mi ci metto anch'io ;-)
Io non sarò esperto, ma se metto "repeat with every file of folder..."
mi dà un errore, ovvero "every" dopo "with" non gli piace per niente...
Ciao ciao

 implicitamente dato dello stronzo ;o)
Non intendevo assolutamente!! =:-(
Scusami, sono MOLTO distratto :'-(


 mi dà un errore, ovvero "every" dopo "with" non gli piace per niente...
E` vero, ci ho pensato dopo averlo mandato...
Adesso non ho Word e non posso provare, pero` dev'essere una cosa cosi`:
----
tell app "Finder"
set theList to every file of folder (choose folder)
repeat with theFile in theList
--set theName to the name of theFile --forse serve
open theFile using application "Microsoft Word"
tell application "Microsoft Word"
do Visual Basic "ActiveDocument.SaveAs FileName:=\""&nomedoc&"\",_
FileFormat:=wdFormatRTF, LockComments:=False, Password:=\"\",_
AddToRecentFiles:=False, WritePassword :=\"\",_
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False,  _
SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:= False"
close window 1
end tell
end repeat
end tell
----
Scusatemi ancora!!


 mi dà un errore, ovvero "every" dopo "with" non gli piace per niente...
tell app "Finder" to ¬
    repeat with myfile in ¬
        (every file of folder (choose folder))
        -- du iour staff, iusing "myfile"
    end repeat


 ----
Ti ringrazio molto per l'aiuto e lo sbattimento, ma non funziona neanche cosě...
:-(
A parte un errore iniziale che mi dice che non c'č abbastanza memoria e
che potrebbe anche essere comprensibile visto che sono 1000 files, ho
fatto una prova anche con un numero ridotto di documenti ma mi dice che
c'č un errore di "key form"...
ciao ciao

 cosě... :-(
Se vuoi provare con KQ, crea una nuova macro e copiaci quanto segue (per
1000 volte di seguito):
-------------------
SwitchApp "Finder"
Key down
Key "o" cmd
WaitApp "Word"
Key "q" ctrl
Key "w" cmd
-------------------
ora fai:
- una cartella sulla scrivania dove butti i 1000 file da convertire. Il
suo interno deve avere visualizzazione "lista" (o "per nome", non so che
sys usi).
- Apri il primo file della lista con un doppio clic
- In Word crea una macro dove salvi nel formato che vuoi, scegliendo
(come destinazione) una directory che _non_ sia la stessa cartella di
cui sopra. Alla macro assegna la combinazione [ctrl+q]
Lancia la macro di KQ (alla quale avrai gia' assegnato un'altra
combinazione di tasti), dovrebbe funzionare.
Se vedi che succede casino, la combinazione per interrompere l'attivita'
di KQ e'cmd+shift+return.
Cata
-- 
mailto: y = i
----------------------------------------
Vivo nel terrore di non essere frainteso 
(Oscar Wilde)

 ma non funziona neanche così...
Ok, cosi` l'ho provato e funziona...
----
tell application "Finder"
repeat with theFile in theList
set theName to (the name of theFile) & ".RTF"
try
open theFile using application file id "MSWD"
 
set myvb to "   ActiveDocument.SaveAs FileName:=\"" & ¬
theName & "\", _
FileFormat:=wdFormatRTF , _
LockComments:=False, Password:=\"\", _
AddToRecentFiles:=True,  WritePassword:=\"\", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:= False"
 
tell application "Microsoft Word"
do Visual Basic myvb
close window 1
end tell
on error
set the end of errorList to theName
end try
end repeat
end tell
beep 4
----
Se Word non riesce ad aprire un file, dovrebbe saltarlo 
e basta, cosi` alla fine controlla che ci siano tutti...
(fai vista per tipo e vedi se sono alternati).


 
(Remove the hyphen! Spambusters at work!)
listen to aaria (two and a Mac): 
http://www.mp3.com/aaria
***  "Apple Computers: 
 We may not have got everything right, but at least 
 we knew the century was going to end." 
                                     - Douglas Adams

 implicitamente dato dello stronzo ;o)
Dai ragazzi non facciamo gli offesi - mi piacerebbe invece se in questo
NG si parlasse molto di più di AppleScript, perchè è proprio AS che fa
la differenza; e per quanto che io abbia potuto seguire su ICM mi sembra
che Vittorio e Marco hanno tutte le carte in regola per far capire
questo vantaggio anche ai nuovi iMacchisti.
Scriptiamo,
Farid 

 Ok, cosi` l'ho provato e funziona...
OK, proverň e ti farň sapere
Grazie ancora


 la differenza;
Beh, tra WiSH e VBA la M$ ci prova...


 Grazie ancora
Non ci siamo ancora :-(
a parte che manca la riga:
		set theList to every file of folder (choose folder)
(sto cominciando a capire qualcosina anch'io ;-)
... in realtà i file in RTF non vengono salvati.
Forse manca qualcosa per attivare VisualBasic?
(non so cosa c'entra ma se registro il passaggio con lo script editor
compaiono comandi del genere)


 compaiono comandi del genere)
Va bene, allora prova con questo e dimmi che errori vengono fuori:
----
tell application "Finder"
set theList to every file of folder (choose folder)
repeat with theFile in theList
set theName to (the name of theFile) & ".RTF"
open theFile using application file id "MSWD"
set myvb to "   ActiveDocument.SaveAs FileName:=\"" & theName & "\", _
FileFormat:=wdFormatRTF , LockComments:=False, Password:=\"\", _
AddToRecentFiles:=True,  WritePassword:=\"\", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:= False"
tell application "Microsoft Word"
do Visual Basic myvb
close window 1
end tell
end repeat
end tell
beep 4
----
-- 


 Va bene, allora prova con questo e dimmi che errori vengono fuori:
Perfetto ;-)
Questo funziona...
L'unica "cosina" è che i files restano tutti "nome.doc.rtf", però non è
importante perchè comunque andranno rinominati...
Grazie 1000
Ciao ciao

 
(Remove the hyphen! Spambusters at work!)
listen to aaria (two and a Mac): 
http://www.mp3.com/aaria
*** when free speech is outlawed, 
    only outlaws will be able to speak freely. ***

 (cosi', a mente, mi pare che funzioni)
Cosi`, a mente, concordo ;)


 Cosi`, a mente, concordo ;)
Ehi... qui non smetto più di ringraziarvi... ;-)
Ciao ciao

 (cosi', a mente, mi pare che funzioni)
OK, grazie anche a te ;-)
Ciao ciao