• 139月

    (9/13 21:29更新)
    アートワークなしのプレイリスト作成に対応したので、更新して再掲しておきます。
    ---

    Desire for Wealthさんで、iPod nano向けに、アートワークの有無で
    プレイリストを作成してくれるAppleScriptが公開されています。

    私はiPod nanoは持ってませんけど、「NowTunesでもこれは便利かも!?」と
    思いますし、上のAppleScriptはWindowsユーザーは恩恵に預かれませんし、
    ちらっと、同様のツールを作ってみました。
    http://homepage1.nifty.com/macbs/download.htm#MBTUty

    MBTunesUty

    うっかり、「アートワークなし」のプレイリストを作る機能を付け忘れましたけど、
    まぁそれは近いうちにバージョンアップする、ということで。(^^;

    (9/13 21:29追記)
    Ver.1.01から、アートワークあり、と、なし、の2バージョンのプレイリストを
    出力できるようになりました。

    他にも要望など、ございましたら、技量の許す範囲で対応したいと思います。

    ちなみに、ソースサンプルも公開しておきますので、興味がある方は改造してVBなり、
    Excelマクロなりで使ってやってくださいませ。

    Dim iTunesApp As iTunesApp
    Dim iCount As Long
    Dim iLoop As Long
    Dim plist As IITUserPlaylist
    Dim track As IITTrack

    If TextBox1.Text = "" Then
      MsgBox("プレイリスト名を指定してください。", MsgBoxStyle.Exclamation)
      Exit Sub
    End If

    If MsgBox("プレイリストを作成しますか?", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.No Then
      Exit Sub
    End If

    iTunesApp = New iTunesApp

    plist = iTunesApp.CreatePlaylistInSource(TextBox1.Text, iTunesApp.Sources.Item(1))
    iCount = iTunesApp.LibraryPlaylist.Tracks.Count()

    For iLoop = 1 To iCount
      track = iTunesApp.LibraryPlaylist.Tracks.Item(iLoop)
      If track.Artwork.Count() > 0 Then
        plist.AddTrack(track)
      End If
    Next iLoop

    iTunesApp = Nothing

    MsgBox("プレイリストの作成が終了しました。", MsgBoxStyle.Information)

    Filed under: PC
    2005/09/13 9:30 pm | 2 Comments

2 Responses

WP_Lime_Slice
  • pon Says:

    これはかなり便利ですね!!
    Artworkありのプレイリスト(A)を作って
    スマプレでAではないを作って利用してます!!

    同じ感じで歌詞検索バージョンはできないですか??
    COMに歌詞の項目が追加されたようですが…

  • MacBS Says:

    ponさん、コメントありがとうございます。

    最近はiTunesのSDKをチェックしてませんでした。
    歌詞に対応したのでしたら、色々遊べそうですね。

    時間を見つけて、また何かアイデアを考えてみます。
    ご愛用、ありがとうございます。