雑スクリプト

OS Xの「サービス」から、「Yahoo!辞書」を利用。

2015年9月2日 tetsu Automator, OS X, Other

【作成方法】

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

ユーティリティ　＞　シェルスクリプトを実行をダブルクリック。

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

「Yahoo!辞書」などの適当な名前をつけて保存。

▼シェルスクリプト

open "http://dic.search.yahoo.co.jp/search?p=$*"

1	open "http://dic.search.yahoo.co.jp/search?p=$*"

【使い方】

辞書で調べたいテキストを選択して、右クリック。

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

「Yahoo!辞書」で検索結果が表示されます。

ちなみに「Google 翻訳」は、下記サイトにあります。

Automator でテキストを Google 翻訳に送るサービスを作る

オートメーターを使用して、ディスクを速く焼く方法。

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

【作成方法】

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

Automator　＞　ユーティリティ　＞　ディスク作成をダブルクリック。

AppleScriptを実行をダブルクリック。

AppleScriptは終了音を鳴らすだけのもの。

音が必要なければ無くてもOK。

ディスクを作成の項目では、

「□書き込まれたデータを検証」にチェックを入れません。

ここにチェックを入れると焼くのに時間が掛かってしまいます。

「ディスク作成」などの適当な名前で保存してアプリケーションが完成。

▼AppleScriptコード

BeepVolume3() of me
on BeepVolume3()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 2 --beep音量　数値：0-7まで
	beep 1
	delay 0.3
	beep 1
	delay 0.3
	beep 1
	set volume myVol
	--say "メディアが焼けました。" using "Kyoko"
end BeepVolume3

BeepVolume3() of me

on BeepVolume3()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 2 --beep音量　数値：0-7まで

beep 1

delay 0.3

beep 1

delay 0.3

beep 1

set volume myVol

--say "メディアが焼けました。" using "Kyoko"

end BeepVolume3

【使い方】

作成した「ディスク作成」アプリケーションに、

ファイルやフォルダーをドラッグ＆ドロップすれば、

ディスクが作成できます。

個人的には、データの検証を行っても、

書き込みに失敗しているケースがあったので、

データの検証はスルーして、

焼けたデータを1つ、2つ開いてチェックした方がいいと思います。

OS Xの「サービス」を使用して、フォルダーの中からPDFのみ収集。

2015年8月30日 tetsu AppleScript, Automator, OS X

【作成方法】

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

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

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

「PDF収集」などの適当な名前で保存。

▼AppleScriptコード

on run {input, parameters}
	set copyList to {}
	
	tell application "Finder"
		activate
		set result1 to display dialog "拡張子を入力してください。" default answer "pdf"
		set myExt to text returned of result1
		try
			repeat with ifol in input
				set aList to every file of ifol as alias list
				repeat with ifile in aList
					if (name extension of (info for ifile)) = myExt then
						set the end of copyList to ifile
					end if
				end repeat
			end repeat
		end try
		
		if (count copyList) > 0 then
			set i1 to item 1 of copyList
			set oya to parent of parent of i1
			
			try
				set makeFol to ((oya as string) & " " & myExt & "収集")
				if exists folder makeFol then
					set FolNum to 1
					repeat until not (exists folder (makeFol & FolNum))
						set FolNum to FolNum + 1
					end repeat
					set copyFol to make new folder at oya with properties {name:" " & myExt & "収集" & FolNum}
				else
					set copyFol to make new folder at oya with properties {name:" " & myExt & "収集"}
				end if
				
				activate
				reveal copyFol
			end try
			
			set folCount to (count input)
			set PDFCount to (count copyList)
			try
				duplicate copyList to copyFol --ファイル名が重複している場合の処理はしていません。
			end try
			
			BeepVolume2() of me --終了時に音を鳴らす。
			display alert myExt & "ファイルの収集は終了しました。" & return & return & "フォルダー数：" & folCount & return & myExt & "ファイル数：" & PDFCount
		else
			BeepVolume2() of me --終了時に音を鳴らす。
			display alert myExt & "ファイルは入っていませんでした。"
		end if
	end tell
	return input
end run

on BeepVolume2()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 1 --beep音量　数値：0-7まで
	beep 1
	delay 0.3
	beep 1
	set volume myVol
	--say "終了しました" using "Kyoko"
end BeepVolume2

on run {input, parameters}

set copyList to {}

tell application "Finder"

activate

set result1 to display dialog "拡張子を入力してください。" default answer "pdf"

set myExt to text returned of result1

try

repeat with ifol in input

set aList to every file of ifol as alias list

repeat with ifile in aList

if (name extension of (info for ifile)) = myExt then

set the end of copyList to ifile

end if

end repeat

end try

if (count copyList) > 0 then

set i1 to item 1 of copyList

set oya to parent of parent of i1

try

set makeFol to ((oya as string) & " " & myExt & "収集")

if exists folder makeFol then

set FolNum to 1

repeat until not (exists folder (makeFol & FolNum))

set FolNum to FolNum + 1

end repeat

set copyFol to make new folder at oya with properties {name:" " & myExt & "収集" & FolNum}

else

set copyFol to make new folder at oya with properties {name:" " & myExt & "収集"}

end if

activate

reveal copyFol

end try

set folCount to (count input)

set PDFCount to (count copyList)

try

duplicate copyList to copyFol --ファイル名が重複している場合の処理はしていません。

end try

BeepVolume2() of me --終了時に音を鳴らす。

display alert myExt & "ファイルの収集は終了しました。" & return & return & "フォルダー数：" & folCount & return & myExt & "ファイル数：" & PDFCount

else

BeepVolume2() of me --終了時に音を鳴らす。

display alert myExt & "ファイルは入っていませんでした。"

end if

end tell

return input

end run

on BeepVolume2()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 1 --beep音量　数値：0-7まで

beep 1

delay 0.3

beep 1

set volume myVol

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

end BeepVolume2

【使い方】

フォルダーを選択して、右クリック。

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

PDF以外にも収集したいファイルの拡張子が入力できます。

入力すると選択したフォルダーと同階層にファイルが収集されます。

【作成したサービスが表示されない場合】

Option + Command + Esc でFinder再起動を試してください。

（ファイルコピー中は禁止、コピーが止ってしまいます。）

アプリケーションの強制終了が表示されたら、

Finderを選択して、「再度開く」ボタンをクリック。