Newsgroup: it.comp.macintosh
Titolo: Aiuto Applescript

Perchč questo script non funziona:
Prima ho provato:
on open (gruppo)
 tell application "Finder"
  repeat with myfile in gruppo
   set ilnome to the name of myfile
   set suffix to (characters -4 thru -1 of ilnome) as text
   if suffix of myfile is ".txt" then
    set file type of myfile to "TEXT"
    set creator type of myfile to "ttxt"
   end if
  end repeat
 end tell
end open
Non funzionando ho fatto:
on open (gruppo)
 tell application "Finder"
  repeat with myfile in gruppo
   if myfile ends with ".txt" then
    set file type of myfile to "TEXT"
    set creator type of myfile to "ttxt"
   end if
  end repeat
 end tell
end open
Dovrebbe assegnare il tipo "TEXT" e il creatore a SimpleText a un file che
ci trascino sopra e finisce con ".txt". Perchč non funziona, poi vorrei
mettere anche altri suffissi, in modo di fare una cosa piů completa.
HELP!
Andrea Gianarro        < 
gian...@dada.it
 >
ICQ# 41245252

 mettere anche altri suffissi, in modo di fare una cosa più completa.
Guarda..con AS ho bisogno di consigli piu' di te ;o) ...
non saprei cosa dirti...
ho pero' uno script per cambiare tipo e creatore ai files....
io lo posto, vedi se riesci a tirarci fuori del codice utile per te....
on run
tell application "Finder"
set theList to selection
if (count items in theList) = 1 then
if class of item 1 of theList is application file then
if name of (info for (theList as alias)) is "Edit Type & Creator" then
set theList to {}
end if
end if
end if
if (count items in theList) < 1 then
choose file
copy result as list to theList
end if
end tell
EditTypeCreator(theList)
end run
on open theList
EditTypeCreator(theList)
end open
on EditTypeCreator(theList)
tell application "Finder"
repeat with x in theList
copy name of x as string to FileName
copy file type obsolete of x as string to FileType
copy creator type of x as string to FileCreator
copy (display dialog "Info for \"" & FileName & ":\"" & ¬ --(XXX)
return & return & "File Type is: " & FileType & return & ¬
"File Creator is: " & FileCreator buttons ¬ (XXX)
{"No Change", "Text", "Custom"} default button 2) to Choice
set UserButton to button returned of Choice
if UserButton = "No Change" then
else
if UserButton = "Text" then
set file type obsolete ¬ --(XXX)
of x to "TEXT" -- enter another file type in the quotes
set creator type of x ¬ --(XXX)
to "ttxt" --enter another creator type in the quotes
end if
if UserButton = "Custom" then
copy (display dialog "File Type? ¬ --(XXX)
(4 Chars., Case sensitive)" ¬ --(XXX)
buttons {"OK"} default answer "" default button "OK") to Choice
set UserText to text returned of Choice
set UserButton to button returned of Choice
if UserText is not "" then
if UserButton = "OK" then
set file type obsolete of x to UserText
end if
end if
copy (display dialog "File Creator? ¬ --(XXX)
(4 Chars., Case sensitive)" ¬ --(XXX)
buttons {"OK"} default answer "" default button "OK") to Choice
set UserText to text returned of Choice
set UserButton to button returned of Choice
if UserText is not "" then
if UserButton = "OK" then
set creator type of x to UserText
end if
end if
end if
copy name of x as string to FileName
copy file type obsolete of x as string to FileType
copy creator type of x as string to FileCreator
copy (display dialog "NEW Info ¬ --(XXX)
for \"" & FileName & ":\"" &¬ --(XXX)
 return & return & "NEW File Type is: " & FileType & return & ¬
"NEW File Creator is: " & ¬ --(XXX)
FileCreator buttons {"Open", "Skip"} default button 1) to Choice
set UserButton to button returned of Choice
if UserButton = "Open" then
open x
end if
if UserButton = "Skip" then
end if
end if
-- insert code here
end repeat
end tell
end EditTypeCreator
---IMPORTANTE----
visto che per rispettare la sintassi ho dovuto spezzare lo script, devi
cancellare i ritorni a capo evidenziati da "--(XXX)"....
in pratica fai una ricerca per questa stringa "¬ --(XXX)" e la
cancelli...
spero di essere stato chiaro ;o)
lo script funziona molto bene.....
Ciao...
-- 
Ridi e il Mondo ridera' con te.
Piangi e avrai bisogno di un fazzoletto.
---
Sostituisci "xxxxx" con "pscss" per rispondere via mail

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