Newsgroup: it.comp.macintosh
Titolo: AppleScript per iTunes

Ciao a tutti. Vorrei fare una cosa: dato che mi sono accorto che i primi 
tempi ero troppo "generoso" con le stelline di iTunes, ho pensato di 
fare uno script per abbassare di un voto il rating di tutte le canzoni.
Qualche esperto di iTunes sa aiutarmi? Non so andare oltre il:
tell application "iTunes" to
end tell
:-)
Se poi si potesse anche abbassare solo le canzoni di una playlist, 
sarebbe il massimo.
-- 
Andrea Bergia - studente              Linux Registered User #281550

 sarebbe il massimo.
Con questo togli una stellina alle tracce selezionate:
tell application "iTunes"
set Selezione to selection of window 1
repeat with Traccia in Selezione
set ClassificaVecchia to the rating of Traccia
if ClassificaVecchia > 19 then
set ClassificaNuova to (ClassificaVecchia - 20)
set the rating of Traccia to ClassificaNuova
end if
end repeat
end tell
P.S.
E' proprio necessario firmare col PGP i tuoi messaggi?
-- 
"I have a very simple life, I have my family and I have Apple and Pixar.
And I don't do much else." S. J.

 Con questo togli una stellina alle tracce selezionate:
Questo è meglio:
tell application "iTunes"
if ("Diminuire" is the button returned of ¬
(display dialog "Vuoi aumentare o diminuire la classifica
dei brani selezionati?" buttons {"Aumentare", "Diminuire"})) then
try
set n to (choose from list {1, 2, 3, 4, 5} ¬
with prompt "Quante punti vuoi togliere?")
set Selezione to selection of window 1
repeat with Traccia in Selezione
set Classifica to the rating of Traccia
if Classifica > (n * 20 - 1) then
set the rating of Traccia to (Classifica - n * 20)
else
set the rating of Traccia to 0
end if
end repeat
end try
else
try
set n to (choose from list {1, 2, 3, 4, 5} ¬
with prompt "Quante punti vuoi aggiungere?")
set Selezione to selection of window 1
repeat with Traccia in Selezione
set Classifica to the rating of Traccia
if Classifica < (101 - n * 20) then
set the rating of Traccia to (Classifica + n * 20)
else
set the rating of Traccia to 100
end if
end repeat
end try
end if
end tell
-- 
Ci sono solo 10 tipi di persone al mondo: chi capisce il binario e chi
no.

Beh, non credevo desse cosě fastidio. A me, con Thunderbird, non da 
nessun problema. Mica č colpa mia se vi piace quello shareware... :-)))
Comunque, a parte gli scherzi, che fastidio ti da? Ok, qualche riga di 
"sporcizia" all'inizio e alla fine, ma per una "buona causa".


  ma per una "buona causa".
Buona causa? Perche', qualcuno si dovrebbe spacciare per te su usenet?
Posso capire che uno utilizzi PGP per la posta del lavoro, ma per queste
cose e' nulla piu' che una sbruffonata, per quel che mi riguarda.
Daniele
-- 
"I'm just a Soldier of Fortune,
 Must be the Gypsy in me!" (Coverdale)
STARGAZER: 
www.stargazer.it
 - Le stelle della scena Hard & Heavy!

 cose e' nulla piu' che una sbruffonata, per quel che mi riguarda.
Beh, Thunderbird lo supporta benissimo, e non credevo desse cosě 
fastidio. Scusate, l'ho disattivato.


 Beh, Thunderbird lo supporta benissimo
Thunderbird supporta anche i post in HTML, e la possibilita' di allegare
file ai proprio messaggi... ma generalmente e' una cosa che non si fa,
tutto qua :-D
