2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

iTunesを使いこなそう! Part 31

1 :アイツーンス(;´д`):2005/05/13(金) 18:15:32 ID:OTQYu2M9
Apple純正、最高のジュークボックスである、iTunes(アイチューンズ)
を使いこなすための情報交換スレッドです。

*騒ぐ前にここを見る!
♪アップルiTunes製品ページ
 http://www.apple.com/jp/itunes/
 http://www.apple.com/jp/itunes/download/index.html
♪アップルiTunesサポートページ
 http://www.apple.com/jp/support/itunes/index.html
♪iTunes 2.0.4 for Mac OS 9
 http://www.apple.com/jp/ftp-info/reference/itunes_2.0.4_macos9.html
♪iTunes.com
 http://www.itunes.com/

(# ゚Д゚) <Win ユーザーはこちらへ!
iTunes for Windows Part 24
http://pc8.2ch.net/test/read.cgi/win/1108118820/

前スレ
iTunesを使いこなそう Part29
http://pc7.2ch.net/test/read.cgi/mac/1109663145/

過去ログ・関連スレ・FAQなどを>>2-15あたりに。

106 :名称未設定:2005/05/15(日) 03:23:15 ID:tmxaxVvI
>>104
namingPlaylist()

on namingPlaylist()
  tell application "iTunes"
    activate
    display dialog "新規プレイリストの名前" & return & "" default answer "No Artworks" buttons {"やめる", "OK"} default button 2 with icon 1
    if button returned of result is "やめる" then
      return
    else
      set thePlaylistName to text returned of result
      if (exists of playlist thePlaylistName) is true then
        display dialog "プレイリスト\"" & thePlaylistName & "\"に" & return & "アートワークのないトラックをまとめます" buttons {"戻る", "OK"} default button 2 with icon 1
        if button returned of result is "戻る" then
          namingPlaylist() of me
        else
          noArtworks(thePlaylistName) of me
        end if
      else
        make new playlist with properties {name:thePlaylistName}
        noArtworks(thePlaylistName) of me
      end if
    end if
  end tell
end namingPlaylist
続く

107 :名称未設定:2005/05/15(日) 03:24:11 ID:tmxaxVvI
on noArtworks(thePlaylistName)
  tell application "iTunes"
    set view of browser window 1 to playlist thePlaylistName
    repeat with i from 1 to (count tracks of playlist 1)
      if (class of track i of playlist 1 is file track) and (artworks of track i of playlist 1) is {} then
        set theTrackLoc to (location of track i of playlist 1)
        set theTrackID to (database ID of track i of playlist 1)
        if (every track of playlist thePlaylistName whose database ID is theTrackID) is {} then add theTrackLoc to playlist thePlaylistName
      end if
    end repeat
  end tell
end noArtworks

10.3と10.4で動作確認。
でも使ってる環境次第かもしれないので自己責任でどぞ。

235 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)