iTunesで「シャッフル時にスキップ」にチェックした曲のリストを作る方法
やっとiTunesで「シャッフル時にスキップ」にチェックした曲のリストを作る方法がわかった。
下の方法でプレイリストができるし、一覧の表にしたければ書き出し(エクスポート)すればいい。
Mac用
148 :名無しさん@お腹いっぱい。:2006/12/02(土) 12:50:35 id:IBG9+s6g
>>147
スマートプレイリストでは抽出できませんね。
ランダム抽出すれば、シャッフル時にスキップ設定のトラックは入らないのか
とおもったけど、都合良くいきませんでした。
スレ違い気味で、なおかつAppleScriptで申し訳ないですが、スクリプトで
抽出してみました。もしWindowsユーザーの方であれば、Windows板の
iTunesスレで聞いてみてください。
tell application "iTunes"
(* 収集用プレイリストを作成 *)
set plName to "シャッフル時にスキップなリスト"
set plList to every playlist whose name is plName
if (count plList) = 0 then
make playlist with properties {name:plName}
else
(* 既存なら中身を空に *)
delete every track of playlist plName
end if
(* シャッフル時にスキップなトラックを収集しリストに格納 *)
set notShufflables to every track of playlist "ミュージック" whose shufflable is false
(* 収集したトラックをプレイリストにコピー *)
repeat with trackItem in notShufflables
duplicate trackItem to playlist plName
end repeat
end tell
154 :名無しさん@お腹いっぱい。:2006/12/02(土) 19:00:12 ID:i/Chq2sp
>>147-148
Windowsのvbs版でのシャッフル時スキップ曲抽出プログラム。
動かし方は、下のリストをメモ帳にコピーして、デスクトップにskipshuffle.vbsとでも
セーブしておき、vbsファイルを起動する。
プレイリスト作って、条件満たす曲を抽出なら、for文の中のifを書き換えるだけで
いろいろできるはず。アートワークがある曲だけとか、歌詞が入ってる曲とか。
On Error Resume Next
set iTunesApp = WScript.CreateObject("iTunes.Application")
pListName = "シャッフル時にスキップなリスト"
set pList = iTunesApp.LibrarySource.Playlists.ItemByName(pListName)
if pList.Count <> 0 then
pList.Delete()
end if
set pList = iTunesApp.CreatePlayList(pListName)
set Tracks = iTunesApp.LibraryPlaylist.Tracks
numTracks = Tracks.Count
for i = 1 to numTracks
if Tracks.Item(i).ExcludeFromShuffle = true then
pList.AddTrack(Tracks.Item(i))
end if
next
WScript.Echo "Job complete."