Other | 雑スクリプト

Finderで画像ファイルの色空間を一覧表示する方法

2017年12月17日 tetsu AppleScript, OS X, Other

通常は、画像ファイルを選択して、
OS X　＞　メニューバー　＞　ファイル　＞　情報を見る
でファイル個別に色空間は確認できますが、
フォルダーの中をリスト表示にして、まとめて確認することはできません。
そこで今回は、スクリプトを使用して
画像ファイルの色空間を一覧表示にしてチェックする方法を紹介します。

▼AppleScript（ノーマルタイプ）

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"
	
	activate
	set result1 to display dialog "●メニューから選択してください。" & return & "" buttons {"キャンセル", "コメント削除", "色空間を取得する"} default button 3 giving up after 60
	
	if not (exists Finder window 1) then return
	
	set current view of Finder window 1 to list view --リストビューに変更
	
	set allFile to (files of Finder window 1)
	
	if (count of allFile) > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。
		activate
		display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1
		return
	end if
	
	if button returned of result1 = "キャンセル" then
		return
		
	else if button returned of result1 = "コメント削除" then
		repeat with i in allFile
			set comment of i to ""
		end repeat
		
	else if button returned of result1 = "色空間を取得する" then
		repeat with i in allFile
			set iPOSIX to quoted form of POSIX path of (i as Unicode text)
			set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX
			if theSpace as Unicode text = "(null)" then set theSpace to ""
			set comment of i to theSpace
		end repeat
	else
		return
	end if
	
	activate
	display dialog "終了しました。" buttons {"OK"} default button 1 giving up after 55 with icon 1
	
end tell

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"

activate

set result1 to display dialog "●メニューから選択してください。" & return & "" buttons {"キャンセル", "コメント削除", "色空間を取得する"} default button 3 giving up after 60

if not (exists Finder window 1) then return

set current view of Finder window 1 to list view --リストビューに変更

set allFile to (files of Finder window 1)

if (count of allFile) > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。

activate

display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1

return

end if

if button returned of result1 = "キャンセル" then

return

else if button returned of result1 = "コメント削除" then

repeat with i in allFile

set comment of i to ""

end repeat

else if button returned of result1 = "色空間を取得する" then

repeat with i in allFile

set iPOSIX to quoted form of POSIX path of (i as Unicode text)

set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX

if theSpace as Unicode text = "(null)" then set theSpace to ""

set comment of i to theSpace

end repeat

else

return

end if

activate

display dialog "終了しました。" buttons {"OK"} default button 1 giving up after 55 with icon 1

end tell

▼AppleScript（EPS画像対応タイプ。ExifToolをインストールする必要あり。）

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"
	
	activate
	set result1 to display dialog "●メニューから選択してください。" & return & "" buttons {"キャンセル", "コメント削除", "色空間を取得する"} default button 3 giving up after 60
	
	if not (exists Finder window 1) then return
	
	set current view of Finder window 1 to list view --リストビューに変更
	
	set allFile to (files of Finder window 1)
	
	if (count of allFile) > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。
		activate
		display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1
		return
	end if
	
	if button returned of result1 = "キャンセル" then
		return
		
	else if button returned of result1 = "コメント削除" then
		repeat with i in allFile
			set comment of i to ""
		end repeat
		
	else if button returned of result1 = "色空間を取得する" then
		repeat with i in allFile
			set ext to name extension of i
			
			set iPOSIX to quoted form of POSIX path of (i as Unicode text)
			if ext = "eps" then
				try
					set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -ColorMode " & iPOSIX
				on error
					set theSpace to ""
				end try
			else
				set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX
				if theSpace as Unicode text = "(null)" then set theSpace to ""
			end if
			set comment of i to theSpace
		end repeat
	else
		return
	end if
	
	activate
	display dialog "終了しました。" buttons {"OK"} default button 1 giving up after 55 with icon 1
	
end tell

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"

activate

if not (exists Finder window 1) then return

set current view of Finder window 1 to list view --リストビューに変更

set allFile to (files of Finder window 1)

if (count of allFile) > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。

activate

display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1

return

end if

if button returned of result1 = "キャンセル" then

return

else if button returned of result1 = "コメント削除" then

repeat with i in allFile

set comment of i to ""

end repeat

else if button returned of result1 = "色空間を取得する" then

repeat with i in allFile

set ext to name extension of i

set iPOSIX to quoted form of POSIX path of (i as Unicode text)

if ext = "eps" then

try

set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -ColorMode " & iPOSIX

on error

set theSpace to ""

end try

else

set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX

if theSpace as Unicode text = "(null)" then set theSpace to ""

end if

set comment of i to theSpace

end repeat

else

return

end if

activate

display dialog "終了しました。" buttons {"OK"} default button 1 giving up after 55 with icon 1

end tell

▼AppleScript（EPS画像対応タイプ。要ExifTool。プログレスバー付き。(要OSX10.10以降)）

--プログレスバーつきのため、OSX10.10以降が必要。

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"
	
	if not (exists Finder window 1) then return
	
	activate
	set result1 to display dialog "●メニューから選択してください。" & return & "" buttons {"キャンセル", "コメント削除", "色空間を取得する"} default button 3 giving up after 60
	
	my doProgressBar("準備中です…", "…")
	
	set current view of Finder window 1 to list view --リストビューに変更
	
	set allFile to files of Finder window 1
	set allFileCount to count of allFile
	
	if allFileCount > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。
		activate
		display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1
		return
	end if
	
	if button returned of result1 = "キャンセル" then
		return
		
	else if button returned of result1 = "コメント削除" then
		
		my doProgressBarStart("コメント削除中です。", allFileCount)
		
		repeat with i from 1 to allFileCount
			set comment of item i of allFile to ""
			my doProgressBarRoop(i, allFileCount)
		end repeat
		
		
	else if button returned of result1 = "色空間を取得する" then
		my doProgressBarStart("色空間を取得中です。", allFileCount)
		
		repeat with i from 1 to allFileCount
			
			my doProgressBarRoop(i, allFileCount)
			
			set ext to name extension of item i of allFile
			
			set iPOSIX to quoted form of POSIX path of (item i of allFile as Unicode text)
			if ext = "eps" then
				try
					set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -ColorMode " & iPOSIX
					--https://ten-artai.com/2014/08/267/
					if theSpace = "" then
						try
							set theImageData to do shell script "/usr/local/bin/exiftool -s -s -s -ImageData " & iPOSIX
							set theSpace to my imageData2ColorSpace(theImageData)
						on error
							set theSpace to ""
						end try
						
					end if
				end try
			else
				set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX
				if theSpace as Unicode text = "(null)" then set theSpace to ""
			end if
			set comment of item i of allFile to theSpace
			
		end repeat
	else
		return
	end if
	
end tell

--imageDataからカラーモードを取得
on imageData2ColorSpace(theSpace)
	set colorSpaceList to {"", "grayscale", "Lab", "RGB", "CMYK"}
	set text item delimiters to " "
	set colorSpaceNumber to text item 4 of (text items of theSpace)
	set theSpace to item (colorSpaceNumber + 1) of colorSpaceList
	return theSpace
end imageData2ColorSpace


on doProgressBar(myDescription, additionalDescription)
	activate
	set progress description to myDescription
	set progress additional description to additionalDescription
	set progress total steps to -1
	delay 0.01
end doProgressBar


on doProgressBarStart(myDescription, maxCount)
	activate
	set progress description to myDescription
	set progress total steps to maxCount
end doProgressBarStart


on doProgressBarRoop(nowCount, maxCount)
	--activate
	set progress additional description to "進捗状況：" & (round (nowCount / maxCount) * 100) & "％"
	set progress completed steps to nowCount
end doProgressBarRoop

100

101

102

103

104

105

--プログレスバーつきのため、OSX10.10以降が必要。

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"

if not (exists Finder window 1) then return

activate

my doProgressBar("準備中です…", "…")

set current view of Finder window 1 to list view --リストビューに変更

set allFile to files of Finder window 1

set allFileCount to count of allFile

if allFileCount > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。

activate

display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1

return

end if

if button returned of result1 = "キャンセル" then

return

else if button returned of result1 = "コメント削除" then

my doProgressBarStart("コメント削除中です。", allFileCount)

repeat with i from 1 to allFileCount

set comment of item i of allFile to ""

my doProgressBarRoop(i, allFileCount)

end repeat

else if button returned of result1 = "色空間を取得する" then

my doProgressBarStart("色空間を取得中です。", allFileCount)

repeat with i from 1 to allFileCount

my doProgressBarRoop(i, allFileCount)

set ext to name extension of item i of allFile

set iPOSIX to quoted form of POSIX path of (item i of allFile as Unicode text)

if ext = "eps" then

try

set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -ColorMode " & iPOSIX

--https://ten-artai.com/2014/08/267/

if theSpace = "" then

try

set theImageData to do shell script "/usr/local/bin/exiftool -s -s -s -ImageData " & iPOSIX

set theSpace to my imageData2ColorSpace(theImageData)

on error

set theSpace to ""

end try

end if

end try

else

set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX

if theSpace as Unicode text = "(null)" then set theSpace to ""

end if

set comment of item i of allFile to theSpace

end repeat

else

return

end if

end tell

--imageDataからカラーモードを取得

on imageData2ColorSpace(theSpace)

set colorSpaceList to {"", "grayscale", "Lab", "RGB", "CMYK"}

set text item delimiters to " "

set colorSpaceNumber to text item 4 of (text items of theSpace)

set theSpace to item (colorSpaceNumber + 1) of colorSpaceList

return theSpace

end imageData2ColorSpace

on doProgressBar(myDescription, additionalDescription)

activate

set progress description to myDescription

set progress additional description to additionalDescription

set progress total steps to -1

delay 0.01

end doProgressBar

on doProgressBarStart(myDescription, maxCount)

activate

set progress description to myDescription

set progress total steps to maxCount

end doProgressBarStart

on doProgressBarRoop(nowCount, maxCount)

--activate

set progress additional description to "進捗状況：" & (round (nowCount / maxCount) * 100) & "％"

set progress completed steps to nowCount

end doProgressBarRoop

▼AppleScript（EPS画像対応タイプ。要ExifTool。プログレスバー付き(要OSX10.10以降)。indd,aiなどのバージョン情報追加）

--プログレスバーつきのため、OSX10.10以降が必要。

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"
	
	if not (exists Finder window 1) then return
	
	activate
	set result1 to display dialog "●メニューから選択してください。" & return & "" buttons {"キャンセル", "コメント削除", "色空間+ver.を取得する"} default button 3 giving up after 60
	
	my doProgressBar("準備中です…", "…")
	
	set current view of Finder window 1 to list view --リストビューに変更
	
	set allFile to files of Finder window 1
	set allFileCount to count of allFile
	
	if allFileCount > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。
		activate
		display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1
		return
	end if
	
	if button returned of result1 = "キャンセル" then
		return
		
	else if button returned of result1 = "コメント削除" then
		
		my doProgressBarStart("コメント削除中です。", allFileCount)
		
		repeat with i from 1 to allFileCount
			set comment of item i of allFile to ""
			my doProgressBarRoop(i, allFileCount)
		end repeat
		
		
	else if button returned of result1 = "色空間+ver.を取得する" then
		my doProgressBarStart("色空間を取得中です。", allFileCount)
		
		repeat with i from 1 to allFileCount
			my doProgressBarRoop(i, allFileCount)
			
			set ext to name extension of item i of allFile
			set thekind to kind of item i of allFile
			set inf to info for (item i of allFile) as alias
			set longVer to long version of inf
			set fileCreator to file creator of inf
			
			
			set iPOSIX to quoted form of POSIX path of (item i of allFile as Unicode text)
			
			if thekind contains "InDesign® C" or ext = "indd" then --InDesignの場合
				try
					set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -CreatorTool  " & iPOSIX
				on error
					set theSpace to ""
				end try
			else if thekind contains "Adobe Illustrator " or fileCreator = "ART5" then --Illustratorの場合    --thekind：Adobe Illustrator Document/Adobe Illustrator 書類
				if longVer ≠ "" then
					set theSpace to longVer --info forで取得
				else
					try --exiftoolで取得
						set Creator to do shell script "/usr/local/bin/exiftool -s -s -s -Creator  " & iPOSIX & " | sed -e 's/Adobe Illustrator(R) //'"
						set CreatorVersion to do shell script "/usr/local/bin/exiftool -s -s -s -CreatorVersion " & iPOSIX
						set theSpace to "保存  v." & Creator & " 作成  v." & CreatorVersion as Unicode text
					on error
						set theSpace to ""
					end try
				end if
			else if ext = "pdf" then --pdfの場合
				try
					set pdfPageCount to do shell script "/usr/local/bin/exiftool -s -s -s -PageCount " & iPOSIX
					set PDFXConformance to do shell script "/usr/local/bin/exiftool -s -s -s -GTS_PDFXConformance " & iPOSIX
					set theSpace to "pageCount:" & pdfPageCount & "　" & PDFXConformance --as Unicode text
					
				on error
					set theSpace to ""
				end try
				
			else if ext = "eps" then --eps画像の場合
				try
					set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -ColorMode " & iPOSIX
					--set theSpace to theSpace & "　" & (do shell script "/usr/local/bin/exiftool -s -s -s -Software " & iPOSIX)
				on error
					set theSpace to ""
				end try
			else --その他の画像
				set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX
				if theSpace as Unicode text = "(null)" then set theSpace to ""
				--set theCreator to do shell script "mdls -raw -name kMDItemCreator " & iPOSIX
				--if theCreator as Unicode text = "(null)" then set theCreator to ""
				--set theSpace to theSpace & "　" & theCreator
			end if
			set comment of item i of allFile to theSpace
		end repeat
	else
		return
	end if
	
end tell


on doProgressBar(myDescription, additionalDescription)
	activate
	set progress description to myDescription
	set progress additional description to additionalDescription
	set progress total steps to -1
	delay 0.01
end doProgressBar


on doProgressBarStart(myDescription, maxCount)
	activate
	set progress description to myDescription
	set progress total steps to maxCount
end doProgressBarStart


on doProgressBarRoop(nowCount, maxCount)
	--activate
	set progress additional description to "進捗状況：" & (round (nowCount / maxCount) * 100) & "％"
	set progress completed steps to nowCount
end doProgressBarRoop

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

--プログレスバーつきのため、OSX10.10以降が必要。

set fileUpperLimit to 500 --ファイル数の上限値

tell application "Finder"

if not (exists Finder window 1) then return

activate

set result1 to display dialog "●メニューから選択してください。" & return & "" buttons {"キャンセル", "コメント削除", "色空間+ver.を取得する"} default button 3 giving up after 60

my doProgressBar("準備中です…", "…")

set current view of Finder window 1 to list view --リストビューに変更

set allFile to files of Finder window 1

set allFileCount to count of allFile

if allFileCount > fileUpperLimit then --ファイル数が上限値を超えた場合は中止。

activate

display dialog "ファイル数が上限値の" & fileUpperLimit & "個を超えました。" & return & "作業を中止します。" buttons {"OK"} default button 1 giving up after 55 with icon 1

return

end if

if button returned of result1 = "キャンセル" then

return

else if button returned of result1 = "コメント削除" then

my doProgressBarStart("コメント削除中です。", allFileCount)

repeat with i from 1 to allFileCount

set comment of item i of allFile to ""

my doProgressBarRoop(i, allFileCount)

end repeat

else if button returned of result1 = "色空間+ver.を取得する" then

my doProgressBarStart("色空間を取得中です。", allFileCount)

repeat with i from 1 to allFileCount

my doProgressBarRoop(i, allFileCount)

set ext to name extension of item i of allFile

set thekind to kind of item i of allFile

set inf to info for (item i of allFile) as alias

set longVer to long version of inf

set fileCreator to file creator of inf

set iPOSIX to quoted form of POSIX path of (item i of allFile as Unicode text)

if thekind contains "InDesign® C" or ext = "indd" then --InDesignの場合

try

set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -CreatorTool " & iPOSIX

on error

set theSpace to ""

end try

else if thekind contains "Adobe Illustrator " or fileCreator = "ART5" then --Illustratorの場合 --thekind：Adobe Illustrator Document/Adobe Illustrator 書類

if longVer ≠ "" then

set theSpace to longVer --info forで取得

else

try --exiftoolで取得

set Creator to do shell script "/usr/local/bin/exiftool -s -s -s -Creator " & iPOSIX & " | sed -e 's/Adobe Illustrator(R) //'"

set CreatorVersion to do shell script "/usr/local/bin/exiftool -s -s -s -CreatorVersion " & iPOSIX

set theSpace to "保存 v." & Creator & " 作成 v." & CreatorVersion as Unicode text

on error

set theSpace to ""

end try

end if

else if ext = "pdf" then --pdfの場合

try

set pdfPageCount to do shell script "/usr/local/bin/exiftool -s -s -s -PageCount " & iPOSIX

set PDFXConformance to do shell script "/usr/local/bin/exiftool -s -s -s -GTS_PDFXConformance " & iPOSIX

set theSpace to "pageCount:" & pdfPageCount & "　" & PDFXConformance --as Unicode text

on error

set theSpace to ""

end try

else if ext = "eps" then --eps画像の場合

try

set theSpace to do shell script "/usr/local/bin/exiftool -s -s -s -ColorMode " & iPOSIX

--set theSpace to theSpace & "　" & (do shell script "/usr/local/bin/exiftool -s -s -s -Software " & iPOSIX)

on error

set theSpace to ""

end try

else --その他の画像

set theSpace to do shell script "mdls -raw -name kMDItemColorSpace " & iPOSIX

if theSpace as Unicode text = "(null)" then set theSpace to ""

--set theCreator to do shell script "mdls -raw -name kMDItemCreator " & iPOSIX

--if theCreator as Unicode text = "(null)" then set theCreator to ""

--set theSpace to theSpace & "　" & theCreator

end if

set comment of item i of allFile to theSpace

end repeat

else

return

end if

end tell

on doProgressBar(myDescription, additionalDescription)

activate

set progress description to myDescription

set progress additional description to additionalDescription

set progress total steps to -1

delay 0.01

end doProgressBar

on doProgressBarStart(myDescription, maxCount)

activate

set progress description to myDescription

set progress total steps to maxCount

end doProgressBarStart

on doProgressBarRoop(nowCount, maxCount)

--activate

set progress additional description to "進捗状況：" & (round (nowCount / maxCount) * 100) & "％"

set progress completed steps to nowCount

end doProgressBarRoop

【使い方】
ユーティリティ　＞　AppleScript エディタ(スクリプトエディタ)を起動。
上記のアップルスクリプトを入力して「色空間」などの名前で
アプリケーション形式でデスクトップなどに保存します。

フォルダーを開いた状態で、ツールバーの部分を右クリック。
「ツールバーをカスタマイズ…」をクリックして、
作成したスクリプトをドラッグ＆ドロップで登録します。

フォルダーをリスト表示させた状態で、
「名前」タブのところを右クリックして、
「コメント」の項目にチェックを入れて表示されるようにします。
そして、作成したスクリプトを実行させます。
ちょっと時間はかかりますが、
フォルダーの中に画像ファイルが入っていれば、
コメント欄に色空間が表示されるようになります。

【注意点】
EPS画像の色空間は取得できません。（ノーマルタイプ）
色空間の情報取得には時間がかかるため、
デフォルトでファイル数の上限値を500にしてあります。
色空間は、mdlsコマンドを使用して取得しています。
リアルタイムの情報ではないでの色空間を変えた場合は、
情報を更新する必要があります。
モノクロ2階調の色空間も「Gray」と表示されるので、
詳細な情報は、Adobe Bridgeなどで調べてください。

ExifToolをインストールしたのに、
EPS画像の色空間が取得できない場合は、
ユーティリティ　＞　ターミナル　を起動させ、
「which exiftool」と入力して、
実際のexiftoolのアドレスを取得して、
アップルスクリプト内の
「/usr/local/bin/exiftool」のところを書き換えてください。

【参考情報】

OSX付属のアプリを活用しましょ～(10) イメージ表示とフォルダアクション – ろばの穴・別館 Annex

EPSファイルの情報について

4 comments

ImageMagickでインキ総量を調べる。

2017年1月31日 tetsu AppleScript, OS X, Other

ImageMagickでCMYK画像のインキ総量を調べるスクリプトです。

と言っても、画像の全情報を取得して、

「Total ink density」の部分だけを抽出しているだけです。

※予めImageMagickをインストールする必要があります。

▼AppleScript

set cf to choose file

set POSIXpath to quoted form of POSIX path of cf

try
	set Res to do shell script "/opt/ImageMagick/bin/identify -verbose " & POSIXpath & " | awk 'match($0, /Total ink density: .*/)' | awk '{print substr($0, 22, (length($0)-22))}'"
	--set Res to do shell script "/opt/ImageMagick/bin/identify -verbose " & POSIXpath --全情報を取得する場合はこっち。
on error errorMSG
	activate
	display dialog errorMSG
end try

Res

set cf to choose file

set POSIXpath to quoted form of POSIX path of cf

try

set Res to do shell script "/opt/ImageMagick/bin/identify -verbose " & POSIXpath & " | awk 'match($0, /Total ink density: .*/)' | awk '{print substr($0, 22, (length($0)-22))}'"

--set Res to do shell script "/opt/ImageMagick/bin/identify -verbose " & POSIXpath --全情報を取得する場合はこっち。

on error errorMSG

activate

display dialog errorMSG

end try

Res

【注意点】

どれだけ正確に情報を取得できているのかは不明です。

また、処理が遅いので軽いデータで見た方がいいと思います。

参考情報

CMYK画像にインキ総量マスクを追加するPhotoshopCS6専用アクション・簡易計算機付き – やもめも

Format and Print Image Properties @ ImageMagick

オートメーターを利用して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日曜プログラム日誌　ここぶろ