AppleScript

AppleScript

• アップル AppleScript
  http://www.apple.com/jp/macosx/features/applescript/
• iTunes AppleScript
  http://www.apple.com/applescript/itunes/

サンプルスクリプト

pause

tell application "iTunes"
      pause
end tell

play

tell application "iTunes"
      play
end tell

play (playlist)

tell application "iTunes"
      play playlist "トップ 25"
end tell

playpause

tell application "iTunes"
      playpause
end tell

stop

tell application "iTunes"
      stop
end tell

next track

tell application "iTunes"
      next track
end tell

back track

tell application "iTunes"
      back track
end tell

previous track

tell application "iTunes"
      previous track
end tell

fast forward

tell application "iTunes"
      fast forward
end tell

rewind

tell application "iTunes"
      rewind
end tell

eject

tell application "iTunes"
      eject
end tell

update

tell application "iTunes"
      update
end tell

album

tell application "iTunes"
      set hoge to album of current track
      return hoge
end tell

artist

tell application "iTunes"
      set hoge to artist of current track
      return hoge
end tell

count

tell application "iTunes"
      set hoge to played count of current track
      return hoge
end tell

name (playlist)

tell application "iTunes"
      set hoge to name of current playlist
      return hoge
end tell

volume

tell application "iTunes"
      set sound volume to 60
end tell

rating

tell application "iTunes"
      set hoge to rating of current track
      return hoge
end tell

tell application "iTunes"
      set hoge to rating of current track
end tell
if hoge = 0 then
      set hoshi to "・・・・・"
end if
if hoge = 20 then
      set hoshi to "★・・・・"
end if
if hoge = 40 then
      set hoshi to "★★・・・"
end if
if hoge = 60 then
      set hoshi to "★★★・・"
end if
if hoge = 80 then
      set hoshi to "★★★★・"
end if
if hoge = 100 then
      set hoshi to "★★★★★"
end if

time

tell application "iTunes"
      set hoge to time of current track
      return hoge
end tell

tell application "iTunes"
      set hoge to player position
      return hoge
end tell

tell application "iTunes"
      set hoge to player position
      set min to "0"
      set sec to "00"

      --秒値が60以上の場合
      if 59 < hoge then
            set min to hoge div 60
            set sec to hoge mod 60
      else
            set min to "0"
            set sec to player position
      end if

      --秒値が9以下の場合
      if sec < 10 then
            set sec to "0" & sec
      end if

      return min & ":" & sec as text
end tell

実用スクリプト

選択した曲の「シャッフル時にスキップ」をチェックする

動作条件

iTunes5.0以降

ダウンロード

Shufflable On.scpt

tell application "iTunes" 
      repeat with theTrack in selection 
      set shufflable of theTrack to 0 
      end repeat 
end tell

選択した曲の「再生回数」を変更する（数値選択タイプ）

動作条件

iTunes5.0以降

ダウンロード

Played Count Up.scpt

sourceは省略

選択した曲の「再生回数」を変更する（数値入力タイプ）

動作条件

iTunes5.0以降

tell application "iTunes"
try
	set trk to {}
	set slct to a reference to selection
	if slct as list is {} then return
	repeat with x in slct
		set end of trk to (name of x as Unicode text) & (" (" & played count of x & ")")
	end repeat
	set AppleScript's text item delimiters to ", "
	set y to text returned of (display dialog ((trk as Unicode text) & " の再生回数を変更") default answer "")
	if y is false then return
	set played count of slct to y
end try
end tell

iTMSのToday's トップ100 ソングを順次再生する

動作条件

iTunes6.0以降

注意事項

常駐型のスクリプトです。.appの方をスクリプトフォルダへ入れてください。

ダウンロード

iTMS Top 100 Songs.app

sourceは省略

sourceをダウンロード

iTMS Top 100 Songs.scpt

歌詞に"..."が含まれるプレイリストを作成

tell application "iTunes"
display dialog "歌詞の一部を入力してください" default answer "" buttons {"Cancel", "OK"} default button 2
copy the result as list to {text_returned, button_pressed}
 
set thePlaylist to make new playlist with properties {name:text_returned}
with timeout of 60000 seconds
duplicate (every track of playlist 1 whose lyrics contains text_returned) to thePlaylist
end timeout
end tell

複数のファイルのビデオの種類をまとめて変更

使い方

変更したいビデオファイルを選んでスクリプト実行

ダウンロード

Change Video Kind.scpt

activate
tell application "iTunes"
if selection is not {} then
	set videoKindSetting to display dialog "形式を指定してください" buttons {"ムービー", "ミュージックビデオ", "テレビ番組"} with icon 1
	if button returned of videoKindSetting is "ムービー" then
		repeat with seltrack in selection
			set video kind of seltrack to movie
		end repeat
	end if
	if button returned of videoKindSetting is "ミュージックビデオ" then
		repeat with seltrack in selection
			set video kind of seltrack to music video
		end repeat
	end if
	if button returned of videoKindSetting is "テレビ番組" then
		repeat with seltrack in selection
			set video kind of seltrack to TV show
		end repeat
	end if
else
	display dialog "ファイルが選択されていません" buttons {"閉じる"} default button 1 with icon 2
end if
end tell