iTunesで「シャッフル時にスキップ」にチェックした曲のリストを作る方法

やっとiTunesで「シャッフル時にスキップ」にチェックした曲のリストを作る方法がわかった。

下の方法でプレイリストができるし、一覧の表にしたければ書き出し(エクスポート)すればいい。

試したところ、MacWindowsとも大丈夫なようだ。

【iPod】おまいらのスマートプレイリスト3より

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

Windows

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."