09/04/03 18:49:19 CRt8I3DF0
>>156
プレイリストって複数選択できなくて一個ずつ消すのがめんどくさかったので
プレイリストをフォルダに入れてみた。最新版だとプレイリストをまとめて選択できたりするんだろうか。
tell application "iTunes"
set allTrackName to name of every track of playlist 1
set checkedNameList to {}
set dupNameList to {}
repeat with theNameItem in allTrackName
set theName to contents of theNameItem
if checkedNameList contains theName then
if dupNameList does not contain theName then
set end of dupNameList to theName
end if
else
set end of checkedNameList to theName
end if
end repeat
set theNowDate to (do shell script "date '+%Y/%m/%d %H:%M'")
set theFolder to make new folder playlist with properties {name:"dup-" & theNowDate}
repeat with theNameItem in dupNameList
try
set theName to contents of theNameItem
set thePlaylist to make new playlist with properties {name:theName} at theFolder
duplicate (every track of playlist 1 whose name is theName) to thePlaylist
on error msg
log "error:" & msg
end try
end repeat
beep
activate
display dialog "同名のトラックのプレイリストの作成が終わりました"
end tell