Automator | 雑スクリプト

オートメーターを利用してPDFを画像に変換。

2016年5月2日 tetsu AppleScript, Automator, OS X, Other

PDFを画像に変換する場合、

手動ならAdobe Acrobatやオートメーター。

シェルスクリプトなら追加インストールでできますが、

どれもアップルスクリプトに組み込むのに、

問題があったり、手間がかかったりします。

そこで、ネットにオートメーターを組み込んだ、

アップルスクリプトがあったので、

ちょっと改良したものを紹介します。

OSXでのPDFの画像変換は、

オートメーターでは、標準の機能で出来るのに、

スクリプトだと標準の機能で出来ないんですよね。

【作成方法】

アプリケーション　＞　Automator　＞　ワークフローを選択。

ライブラリ　＞　PDF　＞　PDFページをイメージとしてレンダリング　をダブルクリック。

設定は「フォーマット：JPGイメージ」以外はお好みで。

そして「PDFtoJPG.workflow」の名前で保存します。

次にアップルスクリプトにAutomatorのワークフローを組み込んでいきます。

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

下記のAppleScriptコードを入力して、

アプリケーション形式で「PDFtoJPG.app」などの適当な名前で保存。

▼AppleScript

try
	set sourceFiles to choose file with prompt "PDFを選択してください。(複数選択可)" of type {"com.adobe.pdf"} with multiple selections allowed
on error
	return
end try

tell application "Finder"
	set oya to parent of item 1 of sourceFiles
	set destFolder to quoted form of POSIX path of (oya as string)
	set myPath to parent of (path to me) as string
	set myPath to do shell script "echo " & (quoted form of myPath) & "| sed -e 's/\\.[a-zA-Z]*$//;'" --拡張子をトル
	set workFlow to (myPath & "PDFtoJPG.workflow") as string
end tell

set workFlow to quoted form of POSIX path of workFlow

repeat with sourceFile in sourceFiles
	-- get base name of the source file
	set bName to do shell script "basename " & quoted form of POSIX path of sourceFile
	
	-- Strip off the extension
	set text item delimiters to "."
	set bName to text item 2 of bName
	
	try
		set res to do shell script "automator -i " & quoted form of POSIX path of sourceFile & space & workFlow
	on error msg number n
		error msg & space & n
	end try
	
	-- Seems strange to  do it this way but it works
	set text item delimiters to "\""
	set theList to text items of res
	
	
	set cnt to 0
	repeat with convertedFile in theList
		if convertedFile does not contain "alias" and convertedFile does not contain "}" then
			set fullPath to quoted form of POSIX path of convertedFile
			if cnt ≠ 0 then
				do shell script "mv " & fullPath & space & destFolder & bName & "_" & cnt & ".JPG"
			else
				do shell script "mv " & fullPath & space & destFolder & bName & ".JPG"
			end if
			set cnt to cnt + 1
		end if
	end repeat
end repeat

try

set sourceFiles to choose file with prompt "PDFを選択してください。(複数選択可)" of type {"com.adobe.pdf"} with multiple selections allowed

on error

return

end try

tell application "Finder"

set oya to parent of item 1 of sourceFiles

set destFolder to quoted form of POSIX path of (oya as string)

set myPath to parent of (path to me) as string

set myPath to do shell script "echo " & (quoted form of myPath) & "| sed -e 's/\\.[a-zA-Z]*$//;'" --拡張子をトル

set workFlow to (myPath & "PDFtoJPG.workflow") as string

end tell

set workFlow to quoted form of POSIX path of workFlow

repeat with sourceFile in sourceFiles

-- get base name of the source file

set bName to do shell script "basename " & quoted form of POSIX path of sourceFile

-- Strip off the extension

set text item delimiters to "."

set bName to text item 2 of bName

try

set res to do shell script "automator -i " & quoted form of POSIX path of sourceFile & space & workFlow

on error msg number n

error msg & space & n

end try

-- Seems strange to do it this way but it works

set text item delimiters to "\""

set theList to text items of res

set cnt to 0

repeat with convertedFile in theList

if convertedFile does not contain "alias" and convertedFile does not contain "}" then

set fullPath to quoted form of POSIX path of convertedFile

if cnt ≠ 0 then

do shell script "mv " & fullPath & space & destFolder & bName & "_" & cnt & ".JPG"

else

do shell script "mv " & fullPath & space & destFolder & bName & ".JPG"

end if

set cnt to cnt + 1

end if

end repeat

【使い方】

作成した「PDFtoJPG.workflow」とアップルスクリプトを同階層におきます。

アップルスクリプトをダブルクリックして、

PDFファイルを選択するとPDFと同階層にjpgファイルが書き出されます。

【注意点】

PDFのファイル名に半角()が使用されていると、

jpgファイルがOS Xのprivateフォルダーに取り残されてしまいます。

また、他にも使用できない文字があるかも知れません。

参考情報

https://discussions.apple.com/thread/3011441?tstart=0

AS Hole（AppleScriptの穴） By Piyomaru Software » 指定のAutomator Workflowのファイルを実行する

新・OS X ハッキング! (91) OS X標準の機能でも、PDFはここまでできる | マイナビニュース

PDFを画像に変換する: Cocoa日曜プログラム日誌　ここぶろ

フォルダーアクション設定をOFF/ON。

2015年10月23日 tetsu AppleScript, Automator, OS X

フォルダーアクションをローカルサーバー上に設定した際、

設定した時は動いたけど、

パソコンを再起動したら反応しなくなったので、

使用しなくなってしまったなんて方もいるのではないでしょうか。

そこで、今回はローカルサーバー上のフォルダーアクションを

確実に動作させるスクリプトを紹介します。

仕組みとしては、

パソコンを起動させ、サーバーに接続したあとに、

フォルダーアクション設定をOFF/ONするだけのスクリプト。

▼AppleScript

try
	tell application id "com.apple.systemevents"
		set folder actions enabled to false
		delay 0.1
		set folder actions enabled to true
	end tell
end try

try

tell application id "com.apple.systemevents"

set folder actions enabled to false

delay 0.1

set folder actions enabled to true

end tell

end try

フォルダーアクション設定を表示させたまま、

スクリプトを実行すれば視覚的に

OFF/ONされているのが分かります。

/システム/ライブラリ/CoreServices/フォルダアクション設定

OS Xの「サービス」を使用して、文字化けした丸数字を元に戻す。

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

Windowsから来たメールやテキストなどに、

よく使用されている①、②などの丸数字は、

Macだと文字化けしてしまいます。

それを簡単に元に戻す方法を紹介します。

単なる文字置換ですけど…

【作成方法】

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

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

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

「◯数字変換」などの適当な名前で保存します。

▼AppleScript

on run {input, parameters}
	
	try
		set a to the (input as string)
		
		set c to repChar(a, "㈰", "①") of me
		set c to repChar(c, "㈪", "②") of me
		set c to repChar(c, "㈫", "③") of me
		set c to repChar(c, "㈬", "④") of me
		set c to repChar(c, "㈭", "⑤") of me
		set c to repChar(c, "㈮", "⑥") of me
		set c to repChar(c, "㈯", "⑦") of me
		set c to repChar(c, "㉀", "⑧") of me
		set c to repChar(c, "㈷", "⑨") of me
		set c to repChar(c, "㉂", "⑩") of me
		set c to repChar(c, "㉃", "⑪") of me
		set c to repChar(c, "㈹", "⑫") of me
		set c to repChar(c, "㈺", "⑬") of me
		set c to repChar(c, "㈱", "⑭") of me
		set c to repChar(c, "㈾", "⑮") of me
		set c to repChar(c, "㈴", "⑯") of me
		set c to repChar(c, "㈲", "⑰") of me
		set c to repChar(c, "㈻", "⑱") of me
		set c to repChar(c, "㈶", "⑲") of me
		set c to repChar(c, "㈳", "⑳") of me
				
	end try
	
	return c
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 run {input, parameters}

try

set a to the (input as string)

set c to repChar(a, "㈰", "①") of me

set c to repChar(c, "㈪", "②") of me

set c to repChar(c, "㈫", "③") of me

set c to repChar(c, "㈬", "④") of me

set c to repChar(c, "㈭", "⑤") of me

set c to repChar(c, "㈮", "⑥") of me

set c to repChar(c, "㈯", "⑦") of me

set c to repChar(c, "㉀", "⑧") of me

set c to repChar(c, "㈷", "⑨") of me

set c to repChar(c, "㉂", "⑩") of me

set c to repChar(c, "㉃", "⑪") of me

set c to repChar(c, "㈹", "⑫") of me

set c to repChar(c, "㈺", "⑬") of me

set c to repChar(c, "㈱", "⑭") of me

set c to repChar(c, "㈾", "⑮") of me

set c to repChar(c, "㈴", "⑯") of me

set c to repChar(c, "㈲", "⑰") of me

set c to repChar(c, "㈻", "⑱") of me

set c to repChar(c, "㈶", "⑲") of me

set c to repChar(c, "㈳", "⑳") of me

end try

return c

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

【使い方】

テキストエディットなどで

文字化けした文字列を選択して、

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

上の図のように変換されます。

他にも、改行の変換や簡易校正など、

色々と使い道がありそうです。

参考情報

WindowsからiPhone／iPod touch／Macに送ってはいけない文字とは？