Vediamo chi ci riesce.

[Germinara]

Hai guardato anche qui ?
https://dougscripts.com/itunes/scripts/scripts03.php

[mattleega]

È esattamente quello che stavo cercando.
Quello che non sapevo fare, era creare una scorciatoia da tastiera ad un menu.
Le indicazioni che mi hai linkato, sul mio Mac, non hanno funzionato,
sono state però la base per una ricerca e ho trovato quelle giuste.
In realtà non è che fossero sbagliate, sottintendono alcune precisazioni.

Domani proverò anche gli script (altra cosa che non so come fare) ma, per intanto,
ti sono debitore di una cassa di birra.

Di dove sei?

P.S. avevo guardato gli script di Doug ma, le versioni scaricabili per itunes richiedevano una versione successiva a quella in mio possesso che però non mi è permesso scaricare in quanto El Capitan, è il più recente SO sopportato dal mio Mac.
I soliti loop...

[Germinara]

Bene! Sono di La Morra, cuneo (vicino ad Alba), qui andiamo più di vino che di birra!

Se vuoi sperimentare per conto tuo ... esporta in xml le play list di Music, per iTunes, cambia il nome tell application "iTunes.

apri script editor, e copy e incolli il codice sotto.

Codice: Seleziona tutto

tell application "Music"
	
	set {all_playlist} to get {name} of playlists
	
	
	repeat with aPlayList in all_playlist
		
		display dialog aPlayList
		
		try
			tell application "Music" to export playlist aPlayList as XML to "/Users/francesco/Documents/xx/" & aPlayList & ".xml"
		on error errMsg
			display dialog "ERROR: su " & aPlayList & errMsg
		end try
		
		
		
	end repeat
end tell

[mattleega]

Bene, il temporalone ha fatto mancare la corrente, e un po' di disastri assortiti.

Ora devo sistemare i danni, poi penserò a itunes.

Intanto, La Morra è un posto che mi piace, ci sono un paio di ristoranti che meritano.
In autunno, col fresco si mangia e si beve meglio, sarò felice di invitarti a pranzo.

Intanto ti ringrazio ancora, ora posso affrontare a cuor leggero le oltre 3200 playlist di iTunes.

[fragrua]

Bene! Sono di La Morra, cuneo (vicino ad Alba), qui andiamo più di vino che di birra!

Azz non siete poi così lontani tu e Matt!

[mattleega]

Infatti.
Voglio proprio conoscere chi mi ha salvato i maroni che rischiavano il disgregamento.
Script editor ha lavorato quasi tre ore per esportare tutte le playlist.
Ora vedrò la versione per caricarle.
Io avrei avuto lavoro fino a Natale.

[paolinoweb]

Germinara, te lo volevo scrivere su whatsapp o dire al tel, che era la tua possibilità di riuscita, poi mi son detto speriamo legga il post, altrimenti poi ti avrei detto : mandargli un MP se non ti sembra inopportuno.

è decisamente bravo, è nel ramo informatico, web, assistenza, software personalizzato etc con la sua azienda... aveva il link prima in fondo nella descrizione... basta aggiungere .it e vedrete sito

nei suoi post ho notato grosse capacità, da tempo, l'ho anche scritto in qualche post riguardo utenti expert che sarebbe un eccelente candidato, insieme ad Amoeba.

Ho visto giusto

[mattleega]

Bene, finalmente ha finito di scaricare tutti i file delle playlist.

Ora bisognerebbe
ehm, ehm,
caricarle in music…

Ho già preparato la scorciatoia per "importa playlist” e...

[Germinara]

Infatti.
Voglio proprio conoscere chi mi ha salvato i maroni che rischiavano il disgregamento.
Script editor ha lavorato quasi tre ore per esportare tutte le playlist.
Ora vedrò la versione per caricarle.
Io avrei avuto lavoro fino a Natale.

Volentieri, da meta' Settembre in poi che ora vado in ferie...

[Germinara]

Germinara, te lo volevo scrivere su whatsapp o dire al tel, che era la tua possibilità di riuscita, poi mi son detto speriamo legga il post, altrimenti poi ti avrei detto : mandargli un MP se non ti sembra inopportuno.

è decisamente bravo, è nel ramo informatico, web, assistenza, software personalizzato etc con la sua azienda... aveva il link prima in fondo nella descrizione... basta aggiungere .it e vedrete sito

nei suoi post ho notato grosse capacità, da tempo, l'ho anche scritto in qualche post riguardo utenti expert che sarebbe un eccelente candidato, insieme ad Amoeba.

Ho visto giusto

Grazie per la stima e la fiducia! Mi fa piacere aiutare quando e se riesco questo gruppo

[mattleega]

Volentieri, da meta' Settembre in poi che ora vado in ferie...

Ti riferisci al pranzo o al listato per caricare le playlist??

[Germinara]

Ciao, mi riferivo al pranzo ...
Fatti una copia della cartella prima di fare dei test...

Per caricare prova così (se esiste già non aggiunge e visualizza messaggio)

Codice: Seleziona tutto

set theFolder to (choose folder) as string
set itemList to list folder theFolder without invisibles
tell application "Music"
	set {all_playlist} to get {name} of playlists
	
end tell

repeat with i in itemList
	
	set AppleScript's text item delimiters to ".xml"
	set p to text item 1 of i
	
	if all_playlist contains p then
		display dialog "Playlist esiste: " & p
	else
		set theFileString to (theFolder & i) as string
		set theFileAlias to alias theFileString
		tell application "Music"
			add (theFileAlias)
		end tell
	end if
	
	
	
end repeat

[mattleega]

Grazie.

È partita l’importazione in ordine casuale, non alfabetico e non ho capito quale ordine abbia seguito.
Non ha caricato tutte le playlist e si è fermato.

Ho provato a caricare a mano le playlist saltate e vengono caricate correttamente.
Domani cercherò di capire se esiste un comune denominatore.

[Germinara]

Ciao per aiutarti nel trovare dove sta il problema questa versione è più comunicativa

Esportala come Applicazione da Script Editor, così vedi lo stato di avanzamento dell'attività.
Nota: Tieni presente che la lunghezza massima di argomeni che puo' gestire applescript è determinata dalla variabile sysctl kern.argmax
quindi se superi tale dimensione ti conviene dividere in più cartelle i files xml da importare.
Buon debug! e facci sapere...

Codice: Seleziona tutto

-- seleziona cartella con i files
set theFolder to (choose folder) as string
-- carica elenco dei files nella lista
set itemList to list folder theFolder without invisibles
display dialog "Numero files trovati: " & length of itemList
--ordino l'elenco 
set d to text item delimiters
set text item delimiters to ASCII character 10
set sorted_list to paragraphs of (do shell script "echo " & quoted form of (itemList as text) & "| sort") ---rn
set text item delimiters to d

-- leggo elenco delle playlist attuali in Music
tell application "Music"
	set {all_playlist} to get {name} of playlists
end tell


-- Aggiorno informazioni iniziali per progress dialog
set theFilesCount to length of sorted_list
set progress total steps to theFilesCount
set progress completed steps to 0
set progress description to "Elaboro files ..."
set progress additional description to "preparazione in corso"


-- loop per ciascun nome file precedentemente individuato
set bCurrentFile to 0

repeat with i in sorted_list
	--Info sul file correntemente elaborato
	set bCurrentFile to bCurrentFile + 1
	set progress additional description to "Elaboro file " & i & " " & bCurrentFile & " of " & theFilesCount
	set progress completed steps to bCurrentFile
	--delay 1
	
	-- elimino estensione .xml dal. nomefile per poter controllare se esiste già la playlist con quel nome
	set AppleScript's text item delimiters to ".xml"
	set p to text item 1 of i
	--display dialog p
	
	--se nell'elenco delle playlist è presente il nome che sto elaborando, salto importazione e visualizza messaggio
	if all_playlist contains p then
		display dialog "Playlist esiste: " & i
	else
		--costruisco in nome del file da importare (cartella iniziale + nome del file)
		set theFileString to (theFolder & i) as string
		set theFileAlias to alias theFileString
		--Importo la playlist in Music
		tell application "Music"
			add (theFileAlias)
		end tell
	end if
	
	--ripulisco dialog progress
	set progress total steps to 0
	set progress completed steps to 0
	set progress description to ""
	set progress additional description to ""
	
	
end repeat

[mattleega]

…mi fai paura...