9月, 2015 | 雑スクリプト

OS Xの「サービス」を使用して、ファイルの照合。

2015年9月9日 tetsu AppleScript, Automator, OS X

【使用目的】

InDesignにアタリ画像が配置されていて、本番画像に差し替えなければならない。

だが、本番画像が完全に揃っているとは限らないし、必要のない画像も入っている。

また、ある画像はキリヌキもしなければならない。

アタリ画像はEPS形式だが、本番画像はJPGだったりする。

そんな時に役立つのが、今回の「ファイル照合」です。

ファイル名を照らし合わせて、同じ名前のファイルを見つけてくれます。

【作成方法】

アプリケーション　＞　Automator　＞　サービスを選択。

ライブラリ　＞　AppleScriptを実行をダブルクリック。

画像のように、AppleScriptコードを入力して、

「ファイルの照合」などの適当な名前で保存。

▼AppleScriptコード

on run {input, parameters}
	
	set LabelFileList to {}
	set errorFileList to {}
	set errorFileList2 to {}
	set iNameList to {}
	set cFileList to {}
	set cFileList2 to {}
	
	set Copyclipboard to get the clipboard
	set clipFileList to paragraphs of Copyclipboard
	
	repeat with cFile in clipFileList
		set cFile to repChar(cFile, return, "") of me
		
		set cExt to retExtNameFromFilenameStr(cFile as Unicode text) of me --ファイル名文字列から拡張子のみ取得する
		if cExt = "" then
		else
			try
				set cExt to cExt as number --本当に拡張子か簡易チェック 例）Vol.1など
			on error
				set cFile to retFileNameWithoutExt(cFile as Unicode text) of me --拡張子をトル
			end try
		end if
		
		if (cFile = "") then
		else
			set the end of cFileList2 to cFile
		end if
	end repeat
	
	repeat with iFile in input
		set myInfo to (info for iFile)
		set iName to name of myInfo
		set iExt to name extension of myInfo
		set iExt2 to retExtNameFromFilenameStr(iName as Unicode text) of me --ファイル名文字列から拡張子のみ取得する
		
		--activate
		--display dialog ("." & iExt) & "+" & iExt2
		
		if ("." & iExt) = iExt2 then
			try
				set iExt to iExt as number --本当に拡張子か簡易チェック 例）Vol.1など
			on error
				--set iName to repChar(iName, ("." & iExt), "") of me --拡張子をトル
				set iName to retFileNameWithoutExt(iName) of me --拡張子をトル
			end try
		end if
		
		set the end of iNameList to iName
		
		if iName is in cFileList2 then
			set the end of LabelFileList to iFile
		else
			set the end of errorFileList to iName & return --未照合リスト
		end if
	end repeat
	
	repeat with cFile2 in cFileList2
		if cFile2 is in iNameList then
		else
			set the end of errorFileList2 to cFile2 & return --未照合リスト
		end if
	end repeat
	
	
	set numii to count of LabelFileList
	repeat with ii from 1 to numii
		tell application "Finder"
			delay 0.01
			try
				set label index of ((item ii of LabelFileList) as alias) to 3 --3はイエロー
			end try
		end tell
	end repeat
	
	if (errorFileList = {}) and (errorFileList2 = {}) then
	else
		tell application "TextEdit"
			activate
			make new document
			set name of front window to "未照合リスト"
			set text of front document to ("●参照元にしかないアイテム" & return & (errorFileList2 as Unicode text) & return & return & return & "●参照先にしかないアイテム" & return & (errorFileList as Unicode text))
			set size of every word of document 1 to 13
		end tell
		
	end if
	
	BeepVolume2() of me
	activate
	display dialog "同名のファイルには、" & return & "イエローのラベルが付きます。" & return & return & "拡張子は無視してます。" buttons {"OK"} default button 1 giving up after 55
	--return input
end run

on repChar(origText, targStr, repStr)
	set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}
	set temp to text items of origText
	set AppleScript's text item delimiters to repStr
	set res to temp as text
	set AppleScript's text item delimiters to txdl
	return res
end repChar


--ファイル名から拡張子を外す
on retFileNameWithoutExt(fileNameStr)
	set fLen to length of fileNameStr
	set revText to (reverse of (characters of fileNameStr)) as string --逆順テキストを作成
	set anOffset to offset of "." in revText
	if anOffset > 2 then
		set fRes to text 1 thru (fLen - anOffset) of fileNameStr
		return fRes
	else
		set fRes to fileNameStr
		return fRes
	end if
end retFileNameWithoutExt

--ファイル名文字列から拡張子のみ取得する
on retExtNameFromFilenameStr(fileNameStr)
	set fLen to length of fileNameStr
	set revText to (reverse of (characters of fileNameStr)) as string --逆順テキストを作成
	set anOffset to offset of "." in revText
	if anOffset = 0 then
		set fRes to ""
	else if anOffset < 10 then
		set fRes to text (fLen - anOffset + 1) thru -1 of fileNameStr
	else
		set fRes to ""
	end if
	return fRes
end retExtNameFromFilenameStr

on BeepVolume2()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 0.7 --実際に鳴らす音量　数値：0-7まで
	beep 1
	delay 0.5
	beep 1
	set volume myVol
	--say "終了しました。" using "Kyoko"
end BeepVolume2

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

on run {input, parameters}

set LabelFileList to {}

set errorFileList to {}

set errorFileList2 to {}

set iNameList to {}

set cFileList to {}

set cFileList2 to {}

set Copyclipboard to get the clipboard

set clipFileList to paragraphs of Copyclipboard

repeat with cFile in clipFileList

set cFile to repChar(cFile, return, "") of me

set cExt to retExtNameFromFilenameStr(cFile as Unicode text) of me --ファイル名文字列から拡張子のみ取得する

if cExt = "" then

else

try

set cExt to cExt as number --本当に拡張子か簡易チェック例）Vol.1など

on error

set cFile to retFileNameWithoutExt(cFile as Unicode text) of me --拡張子をトル

end try

end if

if (cFile = "") then

else

set the end of cFileList2 to cFile

end if

end repeat

repeat with iFile in input

set myInfo to (info for iFile)

set iName to name of myInfo

set iExt to name extension of myInfo

set iExt2 to retExtNameFromFilenameStr(iName as Unicode text) of me --ファイル名文字列から拡張子のみ取得する

--activate

--display dialog ("." & iExt) & "+" & iExt2

if ("." & iExt) = iExt2 then

try

set iExt to iExt as number --本当に拡張子か簡易チェック例）Vol.1など

on error

--set iName to repChar(iName, ("." & iExt), "") of me --拡張子をトル

set iName to retFileNameWithoutExt(iName) of me --拡張子をトル

end try

end if

set the end of iNameList to iName

if iName is in cFileList2 then

set the end of LabelFileList to iFile

else

set the end of errorFileList to iName & return --未照合リスト

end if

end repeat

repeat with cFile2 in cFileList2

if cFile2 is in iNameList then

else

set the end of errorFileList2 to cFile2 & return --未照合リスト

end if

end repeat

set numii to count of LabelFileList

repeat with ii from 1 to numii

tell application "Finder"

delay 0.01

try

set label index of ((item ii of LabelFileList) as alias) to 3 --3はイエロー

end try

end tell

end repeat

if (errorFileList = {}) and (errorFileList2 = {}) then

else

tell application "TextEdit"

activate

make new document

set name of front window to "未照合リスト"

set text of front document to ("●参照元にしかないアイテム" & return & (errorFileList2 as Unicode text) & return & return & return & "●参照先にしかないアイテム" & return & (errorFileList as Unicode text))

set size of every word of document 1 to 13

end tell

end if

BeepVolume2() of me

activate

display dialog "同名のファイルには、" & return & "イエローのラベルが付きます。" & return & return & "拡張子は無視してます。" buttons {"OK"} default button 1 giving up after 55

--return input

end run

on repChar(origText, targStr, repStr)

set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}

set temp to text items of origText

set AppleScript's text item delimiters to repStr

set res to temp as text

set AppleScript's text item delimiters to txdl

return res

end repChar

--ファイル名から拡張子を外す

on retFileNameWithoutExt(fileNameStr)

set fLen to length of fileNameStr

set revText to (reverse of (characters of fileNameStr)) as string --逆順テキストを作成

set anOffset to offset of "." in revText

if anOffset > 2 then

set fRes to text 1 thru (fLen - anOffset) of fileNameStr

return fRes

else

set fRes to fileNameStr

return fRes

end if

end retFileNameWithoutExt

--ファイル名文字列から拡張子のみ取得する

on retExtNameFromFilenameStr(fileNameStr)

set fLen to length of fileNameStr

set revText to (reverse of (characters of fileNameStr)) as string --逆順テキストを作成

set anOffset to offset of "." in revText

if anOffset = 0 then

set fRes to ""

else if anOffset < 10 then

set fRes to text (fLen - anOffset + 1) thru -1 of fileNameStr

else

set fRes to ""

end if

return fRes

end retExtNameFromFilenameStr

on BeepVolume2()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 0.7 --実際に鳴らす音量　数値：0-7まで

beep 1

delay 0.5

beep 1

set volume myVol

--say "終了しました。" using "Kyoko"

end BeepVolume2

2015-09-09-1.57

【使い方】

まず、上の図のように参照元のファイルを選択して、

編集　＞　コピー

または　Command + C

次に参照先のファイルを選択して右クリック、

作成したサービスを選択すると、

照合元と同じ名前のファイルにイエローラベルがついていきます。

（拡張子は無視する仕様になっています。）

ちなみに、参照元は、テキストでも可能。

なので、InDesignでリンクファイル名を表示。

OS Xの「サービス」を使用して、選択アイテムをリスト表示。

を使用してファイル名を調べて、

同じ名前のファイルを探すことも可能です。

【注意点】

よっぽど変なファイル名の付け方をしなければ大丈夫だと思いますが、

拡張子を間違えて認識し、同じ名前のはずが、

異なる名前として判断する可能性はあります。

参考情報

ファイル名から拡張子を外す

ファイル名文字列から拡張子のみ取得する

デスクトップアイコンの位置を記録／復元

2015年9月7日 tetsu AppleScript, OS X, Other

【使用目的】

まれにOSXでは、起動時にデスクトップが勝手に整頓されている場合があります。

それを防ぐために、スクリプトで「デスクトップアイコンの位置を記録／復元」するものです。

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

AppleScriptコードを入力して保存。

保存形式は、アプリケーションでハンドラの実行後に終了しないにチェックを入れます。

▼AppleScriptコード

delay 15 --自動ログインの場合は、負荷を減らすため念のため15秒待機--手動起動の場合は必要なし。

property iconList : {}
property posList : {}

tell application "Finder"
	
	if iconList ≠ {} then --位置情報が記録されている場合のみ実行
		repeat with k from 1 to (count iconList)
			try
				set desktop position of item k of iconList to item k of posList
			end try
		end repeat
		
	end if
	
end tell

on quit --終了項目
	tell application "Finder"
		if iconList ≠ {} then --位置情報が記録されている場合のみ実行
			activate
			set result3 to display dialog "アイコンの位置を＜復元＞ or ＜記録＞しますか？" & return & return & "何も操作をしない場合、" & return & "10秒後に位置情報を記録して終了します。" buttons {"復元", "何もしない", "記録"} default button 3 giving up after 10
			
			if button returned of result3 = "復元" then
				repeat with k from 1 to (count iconList)
					try
						set desktop position of item k of iconList to item k of posList
					end try
				end repeat
			else if button returned of result3 = "何もしない" then
				
			else if button returned of result3 = "記録" then
				set iconList to (every item of desktop)
				set posList to (desktop position of every item of desktop)
			else
				set iconList to (every item of desktop)
				set posList to (desktop position of every item of desktop)
			end if
			
		else --位置情報が無い場合
			
			activate
			set result3 to display dialog "アイコンの位置を記録しても宜しいでしょうか？" & return & return & "何も操作をしない場合、" & return & "10秒後に位置情報を記録して終了します。" buttons {"いいえ", "はい"} default button 2 giving up after 10
			
			if button returned of result3 = "はい" then
				set iconList to (every item of desktop)
				set posList to (desktop position of every item of desktop)
			else if button returned of result3 = "いいえ" then
				
			else
				set iconList to (every item of desktop)
				set posList to (desktop position of every item of desktop)
			end if
			
		end if
		
	end tell
	--try
	--tell application "Finder" to update items in desktop
	--end try
	continue quit
end quit

delay 15 --自動ログインの場合は、負荷を減らすため念のため15秒待機--手動起動の場合は必要なし。

property iconList : {}

property posList : {}

tell application "Finder"

if iconList ≠ {} then --位置情報が記録されている場合のみ実行

repeat with k from 1 to (count iconList)

try

set desktop position of item k of iconList to item k of posList

end try

end repeat

end if

end tell

on quit --終了項目

tell application "Finder"

if iconList ≠ {} then --位置情報が記録されている場合のみ実行

activate

set result3 to display dialog "アイコンの位置を＜復元＞ or ＜記録＞しますか？" & return & return & "何も操作をしない場合、" & return & "10秒後に位置情報を記録して終了します。" buttons {"復元", "何もしない", "記録"} default button 3 giving up after 10

if button returned of result3 = "復元" then

repeat with k from 1 to (count iconList)

try

set desktop position of item k of iconList to item k of posList

end try

end repeat

else if button returned of result3 = "何もしない" then

else if button returned of result3 = "記録" then

set iconList to (every item of desktop)

set posList to (desktop position of every item of desktop)

else

set iconList to (every item of desktop)

set posList to (desktop position of every item of desktop)

end if

else --位置情報が無い場合

activate

set result3 to display dialog "アイコンの位置を記録しても宜しいでしょうか？" & return & return & "何も操作をしない場合、" & return & "10秒後に位置情報を記録して終了します。" buttons {"いいえ", "はい"} default button 2 giving up after 10

if button returned of result3 = "はい" then

set iconList to (every item of desktop)

set posList to (desktop position of every item of desktop)

else if button returned of result3 = "いいえ" then

else

set iconList to (every item of desktop)

set posList to (desktop position of every item of desktop)

end if

end tell

--try

--tell application "Finder" to update items in desktop

--end try

continue quit

end quit

2015-09-05-3.21

【使い方】

アプリケーションが出来たら、

Dockに登録して、ログイン時に開くにチェックを入れれば、（任意）

Mac起動時に自動的にアプリが立ち上がるようになります。

アプリの動きとしては、

初回の起動時は、デスクトップアイコンの位置が記録されていないので、

アプリ終了時(Mac終了時)にデスクトップアイコンの位置の記録を促すダイアログが表示されます。

2回目以降の起動時、前回のデスクトップアイコンの位置が記録されているので、

その位置情報を利用して、スクリプト側で

デスクトップアイコンの位置が自動的に復元されます。（OSX側の位置情報を利用しない。）

▼アプリ終了時のダイアログ

ちなみに、このスクリプトは、

下記のサイトを参考にアレンジを加えたものです。

ありがとうございました。

参考情報

http://blog.3lobb.jp/?itemid=226905

https://discussionsjapan.apple.com/message/100636557#100636557

目覚まし時報

2015年9月5日 tetsu AppleScript, OS X, Other

【概要】

Macの起動時に、

時報と音楽とで「目覚まし時計」の代わりをするアップルスクリプト。

デフォルトでは、1分ごとに女性の声で時間を知らせてくれます。

通常の目覚まし時計みたいには、うるさく感じないはずです。

まだ未完成ですが、いつ完成するのか分からないのと、

とりあえずは、現状のままでも使用できるので、

公開してしまいます。

作りも、どういう仕様にするか試行錯誤しながら作成したものなので、

かなり雑なスクリプトになっています。

【下準備】　おそらくOSX10.7以上で使用可能。

システム環境設定　＞　省エネルギー　＞　スケジュール　＞　起動またはスリープ解除で起動時間を設定。

次に、

システム環境設定　＞　音声入力と読み上げ　＞

テキスト読み上げ　＞　システムの声　＞　「Kyoko」が選択できるか確認。

「Kyoko」が無ければ、カスタマイズで「Kyoko」にチェックを入れます。

▼AppleScriptコード

property StartHours : 7 --稼働時間帯の開始時間（単位：時）　
property EndHours : 10 --稼働時間帯の終了時間（単位：時）
property StartVolume : "1.2" --音量1~7の値

property StopDialog : "ON" --ストップダイアログ
property TimeInterval : 1 --時報間隔1~30の整数（単位：分）
property TimeSignalCount : 0 --時報回数初期値0
property mySelectPlaylist : ""
property myPlaylist : ""

on run
	--delay 30
	set volume StartVolume
	set TimeSignalCount to 0 --時報回数初期化
	set NOWhours to hours of (current date) -- 時間を取得
	set NOWminutes to minutes of (current date) -- 分を取得
	
	if StartHours > EndHours then
		if ((StartHours ≤ NOWhours) and (NOWhours ≤ 23)) or ((0 ≤ NOWhours) and (NOWhours ≤ EndHours)) then
			main() of me
		end if
	else if (StartHours ≤ NOWhours) and (NOWhours ≤ EndHours) then --稼働時間帯
		main() of me
	else
		main2() of me
		quit
	end if
end run


on idle
	set TimeSignalCount to TimeSignalCount + 1
	set upTimimg to (TimeSignalCount mod 20) --20回毎に0.2アップ
	set upVolume to 0
	if upTimimg = 0 then set upVolume to (0.02 * TimeSignalCount)
	if (TimeSignalCount > 60) then set upVolume to 0 --最大音量アップ値=1　50回超えたら音量アップを止める。
	set volume ((OriginalVolume() of me) + upVolume)
	if mySelectPlaylist is false then
		quit
	else
		set NOWhours to hours of (current date) -- 時間を取得
		set NOWminutes to minutes of (current date) -- 分を取得
		if StartHours > EndHours then
			if ((StartHours ≤ NOWhours) and (NOWhours ≤ 23)) or ((0 ≤ NOWhours) and (NOWhours ≤ EndHours)) then
				TimeSignal(NOWhours, NOWminutes) of me
			end if
		else if (StartHours ≤ NOWhours) and (NOWhours ≤ EndHours) then --稼働時間帯
			TimeSignal(NOWhours, NOWminutes) of me
		else
			quit --------稼働時間帯ではない場合は、スクリプト終了。
		end if
	end if
	return 1
end idle

on StartMusic() --音楽開始処理
	try
		tell application "iTunes"
			--set mySelectPlaylist to (choose from list (name of every playlist as list) with prompt "プレイリストを選択して下さい：" & return & "再生を停止する場合は[キャンセル]を。")
			if mySelectPlaylist is in (name of every playlist as list) then
				try
					set myPlaylist to playlist (mySelectPlaylist as string)
					play myPlaylist
				end try
				
			else if mySelectPlaylist is "" then
				--activate
				--display dialog "プレイリストが選択されていません。" & return & return & "音楽は流れません。" buttons {"OK"} default button 1 giving up after 10 with icon 0
			else
				--activate
				--display dialog "選択したプレイリストが、" & return & "iTunesのプレイリストにありませんでした。" & return & return & "音楽は流れません。" buttons {"OK"} default button 1 giving up after 10 with icon 0
			end if
		end tell
	end try
end StartMusic

on SelectPlaylist() --プレイリスト選択
	tell application "iTunes"
		activate
		set mySelectPlaylist to (choose from list (name of every playlist as list) with prompt "プレイリストを選択して下さい。")
		if mySelectPlaylist is false then
			activate
			display dialog "スクリプトはキャンセルされました。" & return & return buttons {"OK"} default button 1 giving up after 10 with icon 0
		else
			set myPlaylist to playlist (mySelectPlaylist as string)
		end if
	end tell
	return myPlaylist
end SelectPlaylist

on makeFN(aNum) --2桁にする
	set aText to "00" & (aNum as text)
	set aLen to length of aText
	set aRes to text (aLen - 1) thru -1 of aText
	return aRes
end makeFN


on main()
	if mySelectPlaylist = "" then
		set myPlaylistName to "------ No Lsit ------"
	else
		set myPlaylistName to mySelectPlaylist as Unicode text
	end if
	
	set msg1 to "▽前回のiTunesのプレイリスト▽" & return & myPlaylistName & return & return
	set msg1 to msg1 & "▽現在の音量▽" & return & "--- " & (OriginalVolume()) & " ---" & return & return
	set msg1 to msg1 & "iTunesのプレイリストから音楽を選択しますか？" & return & return
	set msg1 to msg1 & "何も操作をしない場合、" & return & "30秒後に、前回使用した音楽が流れます。"
	
	activate
	set ans1 to display dialog msg1 buttons {"時報のみ", "中止", "音楽選択"} default button 3 giving up after 30 with icon 1
	
	if button returned of ans1 = "音楽選択" then
		tell application "iTunes" to launch
		SelectPlaylist() of me
		tell application "Finder" to set visible of processes whose name is "iTunes" to false
		StartMusic() of me
	else if button returned of ans1 = "変更なし" then
		StartMusic() of me
	else if button returned of ans1 = "時報のみ" then
		set mySelectPlaylist to ""
		set myPlaylist to ""
	else if button returned of ans1 = "中止" then


		quit
	else
		StartMusic() of me
	end if
end main

on main2()
	if mySelectPlaylist = "" then
		set myPlaylistName to "------ No Lsit ------"
	else
		set myPlaylistName to mySelectPlaylist as Unicode text
	end if
	
	set msg1 to "■■■■■ 現在の時間帯は、■■■■■" & return & "■■■■■ 設定のみ可能です。■■■■■" & return & return & return
	set msg1 to msg1 & "▽前回のiTunesのプレイリスト▽" & return & myPlaylistName & return & return
	set msg1 to msg1 & "▽現在の音量▽" & return & "--- " & (OriginalVolume()) & " ---" & return & return
	set msg1 to msg1 & "iTunesのプレイリストから音楽を選択しますか？" & return
	set msg1 to msg1 & "何も操作をしない場合、" & return & "30秒後に、この表示は消えます。"
	
	
	activate
	set ans1 to display dialog msg1 buttons {"時報のみ", "中止", "音楽選択"} default button 3 giving up after 30 with icon 1
	
	if button returned of ans1 = "音楽選択" then
		tell application "iTunes" to launch
		SelectPlaylist() of me
		tell application "Finder" to set visible of processes whose name is "iTunes" to false
	else if button returned of ans1 = "変更なし" then
	else if button returned of ans1 = "時報のみ" then
		set mySelectPlaylist to ""
		set myPlaylist to ""
	else if button returned of ans1 = "中止" then


		quit
	end if
	quit
end main2


on TimeSignal(NOWhours, NOWminutes)
	if ((TimeInterval as integer) = 0) or ((TimeInterval as integer) > 30) then set TimeInterval to 1 --時報インターバル
	if (NOWminutes mod (TimeInterval as integer)) = 0 then --分単位
		set oldVolume to (OriginalVolume() of me) as number
		set volume ((oldVolume) + 0.3 as number) --　音声用に一時的に、音量を上げる。
		try
			say (NOWhours as Unicode text) & "時、" & (NOWminutes as Unicode text) & "分です。" speaking rate 170 using "Kyoko"
		end try
		set volume oldVolume as number
	end if
	
	if StopDialog = "ON" then --ダイアログ表示
		set NOWminutes00 to makeFN(NOWminutes) of me
		
		tell application "System Events"
			key code 53 --escキー
		end tell
		
		--with timeout of 53 seconds
		activate
		set ans2 to display dialog "目覚まし時報を続けますか？" & return & "現在の音量 ▷ " & OriginalVolume() & return & return & "▷▷▷▷▷　　" & (NOWhours as Unicode text) & "時" & (NOWminutes00 as Unicode text) & "分" & return & "" buttons {"続ける", "止める"} default button 2 giving up after 59 with icon 1
		
		if button returned of ans2 = "続ける" then
			
		else if button returned of ans2 = "止める" then
			quit
		end if
		--end timeout
	else
		delay 59
	end if
end TimeSignal


on OriginalVolume()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	return myVol
end OriginalVolume

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

property StartHours : 7 --稼働時間帯の開始時間（単位：時）　

property EndHours : 10 --稼働時間帯の終了時間（単位：時）

property StartVolume : "1.2" --音量1~7の値

property StopDialog : "ON" --ストップダイアログ

property TimeInterval : 1 --時報間隔1~30の整数（単位：分）

property TimeSignalCount : 0 --時報回数初期値0

property mySelectPlaylist : ""

property myPlaylist : ""

on run

--delay 30

set volume StartVolume

set TimeSignalCount to 0 --時報回数初期化

set NOWhours to hours of (current date) -- 時間を取得

set NOWminutes to minutes of (current date) -- 分を取得

if StartHours > EndHours then

if ((StartHours ≤ NOWhours) and (NOWhours ≤ 23)) or ((0 ≤ NOWhours) and (NOWhours ≤ EndHours)) then

main() of me

end if

else if (StartHours ≤ NOWhours) and (NOWhours ≤ EndHours) then --稼働時間帯

main() of me

else

main2() of me

quit

end if

end run

on idle

set TimeSignalCount to TimeSignalCount + 1

set upTimimg to (TimeSignalCount mod 20) --20回毎に0.2アップ

set upVolume to 0

if upTimimg = 0 then set upVolume to (0.02 * TimeSignalCount)

if (TimeSignalCount > 60) then set upVolume to 0 --最大音量アップ値=1　50回超えたら音量アップを止める。

set volume ((OriginalVolume() of me) + upVolume)

if mySelectPlaylist is false then

quit

else

set NOWhours to hours of (current date) -- 時間を取得

set NOWminutes to minutes of (current date) -- 分を取得

if StartHours > EndHours then

if ((StartHours ≤ NOWhours) and (NOWhours ≤ 23)) or ((0 ≤ NOWhours) and (NOWhours ≤ EndHours)) then

TimeSignal(NOWhours, NOWminutes) of me

end if

else if (StartHours ≤ NOWhours) and (NOWhours ≤ EndHours) then --稼働時間帯

TimeSignal(NOWhours, NOWminutes) of me

else

quit --------稼働時間帯ではない場合は、スクリプト終了。

end if

return 1

end idle

on StartMusic() --音楽開始処理

try

tell application "iTunes"

--set mySelectPlaylist to (choose from list (name of every playlist as list) with prompt "プレイリストを選択して下さい：" & return & "再生を停止する場合は[キャンセル]を。")

if mySelectPlaylist is in (name of every playlist as list) then

try

set myPlaylist to playlist (mySelectPlaylist as string)

play myPlaylist

end try

else if mySelectPlaylist is "" then

--activate

--display dialog "プレイリストが選択されていません。" & return & return & "音楽は流れません。" buttons {"OK"} default button 1 giving up after 10 with icon 0

else

--activate

--display dialog "選択したプレイリストが、" & return & "iTunesのプレイリストにありませんでした。" & return & return & "音楽は流れません。" buttons {"OK"} default button 1 giving up after 10 with icon 0

end if

end tell

end try

end StartMusic

on SelectPlaylist() --プレイリスト選択

tell application "iTunes"

activate

set mySelectPlaylist to (choose from list (name of every playlist as list) with prompt "プレイリストを選択して下さい。")

if mySelectPlaylist is false then

activate

display dialog "スクリプトはキャンセルされました。" & return & return buttons {"OK"} default button 1 giving up after 10 with icon 0

else

set myPlaylist to playlist (mySelectPlaylist as string)

end if

end tell

return myPlaylist

end SelectPlaylist

on makeFN(aNum) --2桁にする

set aText to "00" & (aNum as text)

set aLen to length of aText

set aRes to text (aLen - 1) thru -1 of aText

return aRes

end makeFN

on main()

if mySelectPlaylist = "" then

set myPlaylistName to "------ No Lsit ------"

else

set myPlaylistName to mySelectPlaylist as Unicode text

end if

set msg1 to "▽前回のiTunesのプレイリスト▽" & return & myPlaylistName & return & return

set msg1 to msg1 & "▽現在の音量▽" & return & "--- " & (OriginalVolume()) & " ---" & return & return

set msg1 to msg1 & "iTunesのプレイリストから音楽を選択しますか？" & return & return

set msg1 to msg1 & "何も操作をしない場合、" & return & "30秒後に、前回使用した音楽が流れます。"

activate

set ans1 to display dialog msg1 buttons {"時報のみ", "中止", "音楽選択"} default button 3 giving up after 30 with icon 1

if button returned of ans1 = "音楽選択" then

tell application "iTunes" to launch

SelectPlaylist() of me

tell application "Finder" to set visible of processes whose name is "iTunes" to false

StartMusic() of me

else if button returned of ans1 = "変更なし" then

StartMusic() of me

else if button returned of ans1 = "時報のみ" then

set mySelectPlaylist to ""

set myPlaylist to ""

else if button returned of ans1 = "中止" then

quit

else

StartMusic() of me

end if

end main

on main2()

if mySelectPlaylist = "" then

set myPlaylistName to "------ No Lsit ------"

else

set myPlaylistName to mySelectPlaylist as Unicode text

end if

set msg1 to "■■■■■ 現在の時間帯は、■■■■■" & return & "■■■■■ 設定のみ可能です。■■■■■" & return & return & return

set msg1 to msg1 & "▽前回のiTunesのプレイリスト▽" & return & myPlaylistName & return & return

set msg1 to msg1 & "▽現在の音量▽" & return & "--- " & (OriginalVolume()) & " ---" & return & return

set msg1 to msg1 & "iTunesのプレイリストから音楽を選択しますか？" & return

set msg1 to msg1 & "何も操作をしない場合、" & return & "30秒後に、この表示は消えます。"

activate

set ans1 to display dialog msg1 buttons {"時報のみ", "中止", "音楽選択"} default button 3 giving up after 30 with icon 1

if button returned of ans1 = "音楽選択" then

tell application "iTunes" to launch

SelectPlaylist() of me

tell application "Finder" to set visible of processes whose name is "iTunes" to false

else if button returned of ans1 = "変更なし" then

else if button returned of ans1 = "時報のみ" then

set mySelectPlaylist to ""

set myPlaylist to ""

else if button returned of ans1 = "中止" then

quit

end if

quit

end main2

on TimeSignal(NOWhours, NOWminutes)

if ((TimeInterval as integer) = 0) or ((TimeInterval as integer) > 30) then set TimeInterval to 1 --時報インターバル

if (NOWminutes mod (TimeInterval as integer)) = 0 then --分単位

set oldVolume to (OriginalVolume() of me) as number

set volume ((oldVolume) + 0.3 as number) --　音声用に一時的に、音量を上げる。

try

say (NOWhours as Unicode text) & "時、" & (NOWminutes as Unicode text) & "分です。" speaking rate 170 using "Kyoko"

end try

set volume oldVolume as number

end if

if StopDialog = "ON" then --ダイアログ表示

set NOWminutes00 to makeFN(NOWminutes) of me

tell application "System Events"

key code 53 --escキー

end tell

--with timeout of 53 seconds

activate

set ans2 to display dialog "目覚まし時報を続けますか？" & return & "現在の音量 ▷ " & OriginalVolume() & return & return & "▷▷▷▷▷　　" & (NOWhours as Unicode text) & "時" & (NOWminutes00 as Unicode text) & "分" & return & "" buttons {"続ける", "止める"} default button 2 giving up after 59 with icon 1

if button returned of ans2 = "続ける" then

else if button returned of ans2 = "止める" then

quit

end if

--end timeout

else

delay 59

end if

end TimeSignal

on OriginalVolume()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

return myVol

end OriginalVolume

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

上のAppleScriptコードを入力して保存。

保存形式は、アプリケーションでハンドラの実行後に終了しないにチェックを入れます。

アプリケーションが完成したら、

Dockに登録して、ログイン時に開くにチェックを入れます。

これでMac起動時に自動で起動し、

目覚まし代わりになります。

【設定】

とりあえずは、AppleScriptコードの上から3つの項目だけを、

環境に合わせて「数値」を変えていけばいいと思います。

property StartHours : 7 –稼働時間帯の開始時間（単位：時）
property EndHours : 10 –稼働時間帯の終了時間（単位：時）
property StartVolume : “1.2” –音量1~7の値

▼アプリケーション起動画面

【注意点】

時報の時間は、最大1分の誤差があります。

スリープ防止に、Escキーを使用しています。

時間によっては、時報が一部、英語の発音になります。（OSXの仕様？）