Bonjour,
Voilà j'ai maintenant un disque dur de 100go remplit a bloque de musique.
Seulement 15 000 morceau c'est un peu difficile a gérer, sa pose un peu problème quand il est question de chercher un morceau de un tel ou un tel artiste. Je viens a peine de comprendre qu'est ce qu'un script et j'en cherche éperdument un me permettant de fair pour chacun de mes artiste une liste de lecture. J'avait trouvé un script qui me faisait sa mais seulement sur mon "Itune music" :
property progress_factor : 200
property separator : " - "
tell application "iTunes"
display dialog "\"Arrange By Artist - Album\"
This script will assign all the tracks
in your iTunes library to new playlists
named for the \"Artist - Album\"
of each track.
To quit the script before it has finished,
hold \"Command-.\" while iTunes is active.
" with icon 1 buttons {"Cancel", "Proceed..."} default button 2
set lib to library playlist 1
set numAllTracks to (get count of lib's file tracks)
set everyPlaylist to (get name of every user playlist)
set thecount to 0
set ofi to fixed indexing
set fixed indexing to true
try
with timeout of 300000 seconds
repeat with i from 1 to numAllTracks
-- cycle through tracks of main library
set thisTrack to (get a reference to file track i of lib)
-- get track properties we need
tell thisTrack to set {art, alb, dbid} to {get artist as string, get album as string, get database ID}
-- playlist to put the track
if (art is not "") and (alb is not "") then
set new_playlist_name to (art & separator & alb) as text
else
set new_playlist_name to "To Be Arranged Later"
end if
-- make new playlist if it doesn't exist
if everyPlaylist does not contain (new_playlist_name as text) then
set newPlaylist to (make playlist with properties {name:new_playlist_name})
set end of everyPlaylist to new_playlist_name
end if
-- if not already in playlist, dupe to it
if not (exists (some track of playlist new_playlist_name whose database ID is dbid)) then
duplicate thisTrack to playlist new_playlist_name
end if
set thecount to thecount + 1
if frontmost and (thecount mod progress_factor) is 0 then display dialog (thecount as string) & " tracks assigned...
" & ((numAllTracks - thecount) as string) & " to go..." buttons {"Cancel"} giving up after 2
end repeat
end timeout
on error errMs
set fixed indexing to ofi
display dialog errMs
end try
set fixed indexing to ofi
if frontmost then
if gave up of (display dialog "Done!" buttons {"Thanks"} default button 1 with icon 1 giving up after 300) then error number -128
end if
end tell
Mais il ne prend pas en compte toutes les musique de mon disque dur que je ne peut pas copier sur mon ordinateur directement (pas assez de place
)
Enfin bon, je ne sais pas comment modifier ce script pour qu'il aille chercher au bon endroit. Si quelqu'un pourait me dire que modifier ou si il a le script tout fait sa serai superbe !!!
Merci d'avance.
Max.
Voilà j'ai maintenant un disque dur de 100go remplit a bloque de musique.
Seulement 15 000 morceau c'est un peu difficile a gérer, sa pose un peu problème quand il est question de chercher un morceau de un tel ou un tel artiste. Je viens a peine de comprendre qu'est ce qu'un script et j'en cherche éperdument un me permettant de fair pour chacun de mes artiste une liste de lecture. J'avait trouvé un script qui me faisait sa mais seulement sur mon "Itune music" :
property progress_factor : 200
property separator : " - "
tell application "iTunes"
display dialog "\"Arrange By Artist - Album\"
This script will assign all the tracks
in your iTunes library to new playlists
named for the \"Artist - Album\"
of each track.
To quit the script before it has finished,
hold \"Command-.\" while iTunes is active.
" with icon 1 buttons {"Cancel", "Proceed..."} default button 2
set lib to library playlist 1
set numAllTracks to (get count of lib's file tracks)
set everyPlaylist to (get name of every user playlist)
set thecount to 0
set ofi to fixed indexing
set fixed indexing to true
try
with timeout of 300000 seconds
repeat with i from 1 to numAllTracks
-- cycle through tracks of main library
set thisTrack to (get a reference to file track i of lib)
-- get track properties we need
tell thisTrack to set {art, alb, dbid} to {get artist as string, get album as string, get database ID}
-- playlist to put the track
if (art is not "") and (alb is not "") then
set new_playlist_name to (art & separator & alb) as text
else
set new_playlist_name to "To Be Arranged Later"
end if
-- make new playlist if it doesn't exist
if everyPlaylist does not contain (new_playlist_name as text) then
set newPlaylist to (make playlist with properties {name:new_playlist_name})
set end of everyPlaylist to new_playlist_name
end if
-- if not already in playlist, dupe to it
if not (exists (some track of playlist new_playlist_name whose database ID is dbid)) then
duplicate thisTrack to playlist new_playlist_name
end if
set thecount to thecount + 1
if frontmost and (thecount mod progress_factor) is 0 then display dialog (thecount as string) & " tracks assigned...
" & ((numAllTracks - thecount) as string) & " to go..." buttons {"Cancel"} giving up after 2
end repeat
end timeout
on error errMs
set fixed indexing to ofi
display dialog errMs
end try
set fixed indexing to ofi
if frontmost then
if gave up of (display dialog "Done!" buttons {"Thanks"} default button 1 with icon 1 giving up after 300) then error number -128
end if
end tell
Mais il ne prend pas en compte toutes les musique de mon disque dur que je ne peut pas copier sur mon ordinateur directement (pas assez de place
) Enfin bon, je ne sais pas comment modifier ce script pour qu'il aille chercher au bon endroit. Si quelqu'un pourait me dire que modifier ou si il a le script tout fait sa serai superbe !!!
Merci d'avance.
Max.
