tetsu

Adobe Acrobatで、見開きPDFを単ページPDFに変換

2020年12月31日 tetsu Acrobat, AppleScript, OS X

テレワーク用に1つの画面で、

効率良くPDF(指定紙)とInDesignが見れるように作成したスクリプトです。

概要としては、

PDFの一番大きいページを基準に、

他のページが、片ページか見開きかを判定していますが、

本当は、縦横比を基準にした方が良さそうです。

また、座標もInDesignとは異なるため、

計算方法が間違っているかも知れませんので予めご了承ください。

あくまでサンプルとしてご利用ください。

予想した結果が得られない場合、
●長期保管用PDF（PDF/A）
●プリプレスデータ交換用PDF（PDF/X）
●PDF/E
などで再保存すると、
レイアウトを維持したまま回転の情報が破棄されるので、
スクリプトが上手く動作するようになると思います。

ほか、
プリフライト　＞　PDFフィックスアップ　＞　注釈とフォームフィールドの統合
でも同様に回転の情報が破棄されるようです。

▼AppleScript

tell application "Adobe Acrobat"
	activate
	if (count of documents) ≠ 0 then
		activate
		display dialog "PDFを閉じてから、" & return & "実行してください。" buttons {"OK"} default button 1 giving up after 120 with icon 0
		return
	end if
	
end tell


activate
set pdfList to choose file of type {"pdf"} with prompt "PDFファイルを選択(複数選択可)" with multiple selections allowed

activate
set menuRes to button returned of (display dialog "●綴じ方を選択してください。" & return & "" buttons {"キャンセル", "左綴じ用", "右綴じ用"} giving up after 120) --default button 1 with icon 1


repeat with pdfFile in pdfList
	
	tell application "Finder"
		set parentPath to (parent of pdfFile) as string
		set FileName to (name of pdfFile) as string
		set FileExt to (name extension of pdfFile) as string
		set FileNameR to my repChar(FileName, "." & FileExt, "") & "_Right page.pdf" --右ページ
		set FileNameL to my repChar(FileName, "." & FileExt, "") & "_Left page.pdf" --左ページ
		if menuRes = "右綴じ用" then
			set FileNameS to my repChar(FileName, "." & FileExt, "") & "→単ページ(右綴じ).pdf"
		else if menuRes = "左綴じ用" then
			set FileNameS to my repChar(FileName, "." & FileExt, "") & "→単ページ(左綴じ).pdf"
		end if
		set New_File_PathR to parentPath & FileNameR
		set New_File_PathL to parentPath & FileNameL
		set New_File_PathS to parentPath & FileNameS
		
	end tell
	
	ignoring application responses
		tell application "Finder"
			activate
			display dialog "作業中です。" & return & "少々お待ちください。" & return & return & "この表示は、5秒後に自動的に消えます。" buttons {"OK"} default button 1 giving up after 5 with icon 2
		end tell
	end ignoring
	
	--//////////////////////////////　　右ページ処理
	tell application "Adobe Acrobat"
		open pdfFile
		
		set PDFSizeList to my PDFSizeCheck()
		
		tell document 1
			
			set pageCount1 to count of page
			
			repeat with i from 1 to pageCount1
				if item i of PDFSizeList = true then
					tell page i
						if rotation = 270 or rotation = 90 then
							set {x1, y1, x2, y2} to crop box --rotation： 90,270の時
							set media box to {x1, y1 + (y2 - y1), x2, y1 + (y2 - y1) / 2}
						else
							set {x1, y1, x2, y2} to crop box --{x1, y1, x2, y2} (left, top, right, bottom)（左、上、右、下）。左下が基準点 --{x1, y2, x2, y1}の方がいいかも？
							set media box to {x1 + (x2 - x1) / 2, y1, x1 + (x2 - x1), y2}
						end if
					end tell
				end if
			end repeat
			
		end tell
		
		save document 1 to file New_File_PathR
	end tell
	
	
	--//////////////////////////////　　左ページ処理
	tell application "Adobe Acrobat"
		open pdfFile
		
		
		tell document 2
			
			set pageCount2 to count of page
			
			repeat with i from 1 to pageCount2
				if item i of PDFSizeList = true then
					tell page i
						if rotation = 270 or rotation = 90 then
							set {x1, y1, x2, y2} to crop box --rotation： 90,270の時
							set media box to {x1, y1, x2, y1 / 2}
							
						else
							set {x1, y1, x2, y2} to crop box --{x1, y1, x2, y2} (left, top, right, bottom)（左、上、右、下）。左下が基準点
							set media box to {x1, y1, x1 + (x2 - x1) / 2, y2}
						end if
					end tell
				end if
			end repeat
			
			
		end tell
		
		save document 2 to file New_File_PathL
		
		
		--//////////////////////////////　　PDF左右結合
		repeat with i from pageCount1 to 1 by -1 ------ ページ最後尾から結合
			if item i of PDFSizeList = true then
				if menuRes = "右綴じ用" then
					insert pages document 1 after i from document 2 starting with i number of pages 1
				else if menuRes = "左綴じ用" then
					insert pages document 2 after i from document 1 starting with i number of pages 1
				end if
			end if
		end repeat
		
		if menuRes = "右綴じ用" then
			save document 1 to file New_File_PathS
			close documents saving no
		else if menuRes = "左綴じ用" then
			save document 2 to file New_File_PathS
			close documents saving no
		end if
		
	end tell
	
	tell application "Finder"
		delete New_File_PathR -- 右PDF削除
		delay 0.1
		delete New_File_PathL -- 左PDF削除
		delay 0.1
		reveal New_File_PathS -- 単ページPDFを表示
	end tell
	
end repeat

try
	tell application "Finder" to set visible of (application process "AdobeAcrobat" of application "Finder") to false --Acrobatを隠す。
end try

tell application "Finder"
	activate
	display dialog "終了しました。" & return & "" buttons {"OK"} default button 1 giving up after 55 with icon 1
end tell

--判型チェック
on PDFSizeCheck()
	tell application "Adobe Acrobat"
		
		tell document 1
			
			set pageCount to count of page
			
			
			--/////////////////////////////// maxSizeとそのページを取得
			set maxSize to 0
			
			repeat with i from 1 to pageCount
				tell page i
					if rotation = 270 or rotation = 90 then
						set {x1, x2, y1, y2} to crop box --rotation： 90,270の時
						set {x1, x2, y1, y2} to {x1 * 0.35278, x2 * 0.35278, y1 * 0.35278, y2 * 0.35278} --ポイントからmmに変換
						set {x1, x2, y1, y2} to {x1 * 1 / 2, x2 * 1 / 2, y1 * 1 / 2, y2 * 1 / 2} --回転がかかっている場合、面積が1/2になっていると想定する
						
					else
						set {x1, y1, x2, y2} to crop box --仕上がりサイズ --単位はpoint  --1mm＝約2.8346ポイント --1pt ≒ 0.35278mm --左下が基準点
						set {x1, y1, x2, y2} to {x1 * 0.35278, y1 * 0.35278, x2 * 0.35278, y2 * 0.35278} --ポイントからmmに変換
						
					end if
					
					set x to x2 - x1
					set y to y1 - y2
					
					if maxSize < x * y then -- 一番大きいPDFをページを取得
						set maxSize to x * y
						set maxPage to i
						set xMax to x
						set yMax to y
					end if
				end tell
			end repeat
			
			
			
			--/////////////////////////////// maxSizeを基準にその他のページを比較
			set PDFSizeList to {}
			
			repeat with i from 1 to pageCount
				tell page i
					if rotation = 270 or rotation = 90 then
						set {x1, x2, y1, y2} to crop box --rotation： 90,270の時
						set {x1, x2, y1, y2} to {x1 * 0.35278, x2 * 0.35278, y1 * 0.35278, y2 * 0.35278} --ポイントからmmに変換
						set {x1, x2, y1, y2} to {x1 * 1 / 2, x2 * 1 / 2, y1 * 1 / 2, y2 * 1 / 2} --回転がかかっている場合、面積が1/2になっていると想定する
					else
						set {x1, y1, x2, y2} to crop box --仕上がりサイズ --単位はpoint  --1mm＝約2.8346ポイント --1pt ≒ 0.35278mm --左下が基準点
						set {x1, y1, x2, y2} to {x1 * 0.35278, y1 * 0.35278, x2 * 0.35278, y2 * 0.35278} --ポイントからmmに変換
					end if
					
					set x to x2 - x1
					set y to y1 - y2
					
					if ((x + (xMax / 4) ≥ xMax and x - (xMax / 4) ≤ xMax) and (y + (yMax / 4) ≥ yMax and y - (yMax / 4) ≤ yMax)) then ----見開き（±1/4xMax,±1/4yMaxの許容範囲）
						if rotation = 270 or rotation = 90 then
							set the end of PDFSizeList to true
						else
							set the end of PDFSizeList to true
						end if
					else ------------単ページ
						set the end of PDFSizeList to false
					end if
				end tell
			end repeat
		end tell
		
	end tell
	return PDFSizeList
end PDFSizeCheck



--文字置換ルーチン
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

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

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

tell application "Adobe Acrobat"

activate

if (count of documents) ≠ 0 then

activate

display dialog "PDFを閉じてから、" & return & "実行してください。" buttons {"OK"} default button 1 giving up after 120 with icon 0

return

end if

end tell

activate

set pdfList to choose file of type {"pdf"} with prompt "PDFファイルを選択(複数選択可)" with multiple selections allowed

activate

set menuRes to button returned of (display dialog "●綴じ方を選択してください。" & return & "" buttons {"キャンセル", "左綴じ用", "右綴じ用"} giving up after 120) --default button 1 with icon 1

repeat with pdfFile in pdfList

tell application "Finder"

set parentPath to (parent of pdfFile) as string

set FileName to (name of pdfFile) as string

set FileExt to (name extension of pdfFile) as string

set FileNameR to my repChar(FileName, "." & FileExt, "") & "_Right page.pdf" --右ページ

set FileNameL to my repChar(FileName, "." & FileExt, "") & "_Left page.pdf" --左ページ

if menuRes = "右綴じ用" then

set FileNameS to my repChar(FileName, "." & FileExt, "") & "→単ページ(右綴じ).pdf"

else if menuRes = "左綴じ用" then

set FileNameS to my repChar(FileName, "." & FileExt, "") & "→単ページ(左綴じ).pdf"

end if

set New_File_PathR to parentPath & FileNameR

set New_File_PathL to parentPath & FileNameL

set New_File_PathS to parentPath & FileNameS

end tell

ignoring application responses

tell application "Finder"

activate

display dialog "作業中です。" & return & "少々お待ちください。" & return & return & "この表示は、5秒後に自動的に消えます。" buttons {"OK"} default button 1 giving up after 5 with icon 2

end tell

end ignoring

--//////////////////////////////　　右ページ処理

tell application "Adobe Acrobat"

open pdfFile

set PDFSizeList to my PDFSizeCheck()

tell document 1

set pageCount1 to count of page

repeat with i from 1 to pageCount1

if item i of PDFSizeList = true then

tell page i

if rotation = 270 or rotation = 90 then

set {x1, y1, x2, y2} to crop box --rotation： 90,270の時

set media box to {x1, y1 + (y2 - y1), x2, y1 + (y2 - y1) / 2}

else

set {x1, y1, x2, y2} to crop box --{x1, y1, x2, y2} (left, top, right, bottom)（左、上、右、下）。左下が基準点 --{x1, y2, x2, y1}の方がいいかも？

set media box to {x1 + (x2 - x1) / 2, y1, x1 + (x2 - x1), y2}

end if

end tell

end if

end repeat

end tell

save document 1 to file New_File_PathR

end tell

--//////////////////////////////　　左ページ処理

tell application "Adobe Acrobat"

open pdfFile

tell document 2

set pageCount2 to count of page

repeat with i from 1 to pageCount2

if item i of PDFSizeList = true then

tell page i

if rotation = 270 or rotation = 90 then

set {x1, y1, x2, y2} to crop box --rotation： 90,270の時

set media box to {x1, y1, x2, y1 / 2}

else

set {x1, y1, x2, y2} to crop box --{x1, y1, x2, y2} (left, top, right, bottom)（左、上、右、下）。左下が基準点

set media box to {x1, y1, x1 + (x2 - x1) / 2, y2}

end if

end tell

end if

end repeat

end tell

save document 2 to file New_File_PathL

--//////////////////////////////　　PDF左右結合

repeat with i from pageCount1 to 1 by -1 ------ ページ最後尾から結合

if item i of PDFSizeList = true then

if menuRes = "右綴じ用" then

insert pages document 1 after i from document 2 starting with i number of pages 1

else if menuRes = "左綴じ用" then

insert pages document 2 after i from document 1 starting with i number of pages 1

end if

end repeat

if menuRes = "右綴じ用" then

save document 1 to file New_File_PathS

close documents saving no

else if menuRes = "左綴じ用" then

save document 2 to file New_File_PathS

close documents saving no

end if

end tell

tell application "Finder"

delete New_File_PathR -- 右PDF削除

delay 0.1

delete New_File_PathL -- 左PDF削除

delay 0.1

reveal New_File_PathS -- 単ページPDFを表示

end tell

end repeat

try

tell application "Finder" to set visible of (application process "AdobeAcrobat" of application "Finder") to false --Acrobatを隠す。

end try

tell application "Finder"

activate

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

end tell

--判型チェック

on PDFSizeCheck()

tell application "Adobe Acrobat"

tell document 1

set pageCount to count of page

--/////////////////////////////// maxSizeとそのページを取得

set maxSize to 0

repeat with i from 1 to pageCount

tell page i

if rotation = 270 or rotation = 90 then

set {x1, x2, y1, y2} to crop box --rotation： 90,270の時

set {x1, x2, y1, y2} to {x1 * 0.35278, x2 * 0.35278, y1 * 0.35278, y2 * 0.35278} --ポイントからmmに変換

set {x1, x2, y1, y2} to {x1 * 1 / 2, x2 * 1 / 2, y1 * 1 / 2, y2 * 1 / 2} --回転がかかっている場合、面積が1/2になっていると想定する

else

set {x1, y1, x2, y2} to crop box --仕上がりサイズ --単位はpoint --1mm＝約2.8346ポイント --1pt ≒ 0.35278mm --左下が基準点

set {x1, y1, x2, y2} to {x1 * 0.35278, y1 * 0.35278, x2 * 0.35278, y2 * 0.35278} --ポイントからmmに変換

end if

set x to x2 - x1

set y to y1 - y2

if maxSize < x * y then -- 一番大きいPDFをページを取得

set maxSize to x * y

set maxPage to i

set xMax to x

set yMax to y

end if

end tell

end repeat

--/////////////////////////////// maxSizeを基準にその他のページを比較

set PDFSizeList to {}

repeat with i from 1 to pageCount

tell page i

if rotation = 270 or rotation = 90 then

set {x1, x2, y1, y2} to crop box --rotation： 90,270の時

set {x1, x2, y1, y2} to {x1 * 0.35278, x2 * 0.35278, y1 * 0.35278, y2 * 0.35278} --ポイントからmmに変換

set {x1, x2, y1, y2} to {x1 * 1 / 2, x2 * 1 / 2, y1 * 1 / 2, y2 * 1 / 2} --回転がかかっている場合、面積が1/2になっていると想定する

else

set {x1, y1, x2, y2} to crop box --仕上がりサイズ --単位はpoint --1mm＝約2.8346ポイント --1pt ≒ 0.35278mm --左下が基準点

set {x1, y1, x2, y2} to {x1 * 0.35278, y1 * 0.35278, x2 * 0.35278, y2 * 0.35278} --ポイントからmmに変換

end if

set x to x2 - x1

set y to y1 - y2

if ((x + (xMax / 4) ≥ xMax and x - (xMax / 4) ≤ xMax) and (y + (yMax / 4) ≥ yMax and y - (yMax / 4) ≤ yMax)) then ----見開き（±1/4xMax,±1/4yMaxの許容範囲）

if rotation = 270 or rotation = 90 then

set the end of PDFSizeList to true

else

set the end of PDFSizeList to true

end if

else ------------単ページ

set the end of PDFSizeList to false

end if

end tell

end repeat

end tell

return PDFSizeList

end PDFSizeCheck

--文字置換ルーチン

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

InDesignのリンク切れ画像をMac上から検索収集

2018年5月30日 tetsu AppleScript, InDesign, OS X

InDesignのリンク切れ画像がMac上のどこかに存在すれば、
InDesignファイルと同階層に収集してくれるスクリプトです。

収集された画像が間違っている可能性もあるので注意して使ってください。
また、Spotlightの情報を利用しているので、
Spotlightに異常が生じてる場合は、上手く動作しません。
そういう場合は、Spotlightのインデックスを再構築してください。
再構築には、数十分かかると思います。

なお、「新規スマートフォルダ」をある条件で設定して保存し、
保存したフォルダを「Command + i 」で情報も見ると、
クエリーのところに情報が表示されるので、
検索条件の参考になるかも知れません。

▼参考情報

Mac Spotlightの検索インデックスのデータベースを再作成する方法 / Inforati

▼AppleScript

set result to display dialog "Link画像の変更日時の誤差範囲を入力してください。(秒数)" & return & "丸1日の範囲だと、3600秒*24時間 = 86400" default answer "0"
set result1 to text returned of result
try
	set result1 to result1 as integer
	if result1 < 0 then
		activate
		display dialog "入力し直してください。" buttons {"OK"} default button 1
		return
	end if
on error
	display dialog "数字をを入力してください。" buttons {"OK"} default button 1
	return
end try

set TimeRange to result1 / 2 as integer


tell application id "com.adobe.InDesign"
	if (count of document) = 0 then
		activate
		display dialog "ドキュメントを開いてください。" buttons {"はい"} default button 1 with icon 0
		if button returned of result = "はい" then return
	end if
	
	try
		tell document 1
			set graphiclist to every link whose status is link missing
			set save_folder to file path as Unicode text
		end tell
	on error
		return
	end try
	
	set graphicCount to count of graphiclist
	
	set graphicNameList to {}
	set LinkList to {}
	
	repeat with g from 1 to graphicCount
		
		set thisimage to properties of item g of graphiclist
		set graphicName to name of thisimage
		set graphicStatus to status of thisimage
		
		if (graphicName is not in graphicNameList) then --重複ファイルはスルー
			set graphic_file_Path to file path of thisimage
			set modification_date to (date of thisimage)
			set image_size to (size of thisimage) --正確でない？
			set the end of graphicNameList to graphicName
			set the end of LinkList to {graphicName, graphic_file_Path, modification_date, image_size}
		end if
	end repeat
	
end tell

set successList to {"▼収集/成功リスト" & return}
set errorList to {"▼収集/失敗リスト" & return}

repeat with L in LinkList
	set {graphicName, graphic_file_Path, modification_date, image_size} to L
	
	set modification_UnixTime to dateToUnixtime(modification_date) of me
	
	--978274800--2001-01-01 00:00:00 --更に9時間引くと(9.783072E+8)
	set AbsoluteTime_m to (modification_UnixTime - 9.783072E+8)
	
	set mdfindRes to do shell script "mdfind \"kMDItemDisplayName == " & quoted form of graphicName & ¬
		" && InRange(kMDItemFSSize," & image_size & "," & image_size * 2 & ") ¬
		 && InRange(kMDItemContentModificationDate," & my real2Str(AbsoluteTime_m - TimeRange) & "," & my real2Str(AbsoluteTime_m + 3 + TimeRange) & ")\""
	
	if mdfindRes ≠ "" then
		set mdfindRes1 to paragraph 1 of mdfindRes
		set mdfindRes1POSIX to quoted form of mdfindRes1
		set save_folder_POSIX to quoted form of POSIX path of save_folder
		
		try
			do shell script "cp -p " & mdfindRes1POSIX & " " & save_folder_POSIX
		end try
		set the end of successList to graphicName & return --graphicName/POSIX path of graphic_file_Path
	else
		set the end of errorList to graphicName & return --graphicName/POSIX path of graphic_file_Path
	end if
end repeat


if (count of LinkList) ≠ 0 then
	activate
	display dialog "●結果" & return default answer (successList & return & return & errorList as Unicode text) buttons {"OK"} default button 1
else
	activate
	display dialog "リンク切れは、ありませんでした。" buttons {"OK"} default button 1
end if


--更新日をユニックスタイムに変換
on dateToUnixtime(ResDate)
	set y to year of ResDate
	set m to month of ResDate as number
	set d to day of ResDate
	set t to time string of ResDate
	set allT to (y & "-" & m & "-" & d as text) & " " & t
	set unixtime to do shell script "date -j -f '%Y-%m-%d %H:%M:%S' " & quoted form of allT & " +%s"
	return unixtime
end dateToUnixtime


--数字の指数表示を標準に戻す。必要ないかも？
on real2Str(theNum)
	set pythonString to do shell script "python -c 'print " & theNum & "'"
	return pythonString
end real2Str

100

101

102

103

104

105

106

107

108

109

110

111

set result to display dialog "Link画像の変更日時の誤差範囲を入力してください。(秒数)" & return & "丸1日の範囲だと、3600秒*24時間 = 86400" default answer "0"

set result1 to text returned of result

try

set result1 to result1 as integer

if result1 < 0 then

activate

display dialog "入力し直してください。" buttons {"OK"} default button 1

return

end if

on error

display dialog "数字をを入力してください。" buttons {"OK"} default button 1

return

end try

set TimeRange to result1 / 2 as integer

tell application id "com.adobe.InDesign"

if (count of document) = 0 then

activate

display dialog "ドキュメントを開いてください。" buttons {"はい"} default button 1 with icon 0

if button returned of result = "はい" then return

end if

try

tell document 1

set graphiclist to every link whose status is link missing

set save_folder to file path as Unicode text

end tell

on error

return

end try

set graphicCount to count of graphiclist

set graphicNameList to {}

set LinkList to {}

repeat with g from 1 to graphicCount

set thisimage to properties of item g of graphiclist

set graphicName to name of thisimage

set graphicStatus to status of thisimage

if (graphicName is not in graphicNameList) then --重複ファイルはスルー

set graphic_file_Path to file path of thisimage

set modification_date to (date of thisimage)

set image_size to (size of thisimage) --正確でない？

set the end of graphicNameList to graphicName

set the end of LinkList to {graphicName, graphic_file_Path, modification_date, image_size}

end if

end repeat

end tell

set successList to {"▼収集/成功リスト" & return}

set errorList to {"▼収集/失敗リスト" & return}

repeat with L in LinkList

set {graphicName, graphic_file_Path, modification_date, image_size} to L

set modification_UnixTime to dateToUnixtime(modification_date) of me

--978274800--2001-01-01 00:00:00 --更に9時間引くと(9.783072E+8)

set AbsoluteTime_m to (modification_UnixTime - 9.783072E+8)

set mdfindRes to do shell script "mdfind \"kMDItemDisplayName == " & quoted form of graphicName & ¬

" && InRange(kMDItemFSSize," & image_size & "," & image_size * 2 & ") ¬

&& InRange(kMDItemContentModificationDate," & my real2Str(AbsoluteTime_m - TimeRange) & "," & my real2Str(AbsoluteTime_m + 3 + TimeRange) & ")\""

if mdfindRes ≠ "" then

set mdfindRes1 to paragraph 1 of mdfindRes

set mdfindRes1POSIX to quoted form of mdfindRes1

set save_folder_POSIX to quoted form of POSIX path of save_folder

try

do shell script "cp -p " & mdfindRes1POSIX & " " & save_folder_POSIX

end try

set the end of successList to graphicName & return --graphicName/POSIX path of graphic_file_Path

else

set the end of errorList to graphicName & return --graphicName/POSIX path of graphic_file_Path

end if

end repeat

if (count of LinkList) ≠ 0 then

activate

display dialog "●結果" & return default answer (successList & return & return & errorList as Unicode text) buttons {"OK"} default button 1

else

activate

display dialog "リンク切れは、ありませんでした。" buttons {"OK"} default button 1

end if

--更新日をユニックスタイムに変換

on dateToUnixtime(ResDate)

set y to year of ResDate

set m to month of ResDate as number

set d to day of ResDate

set t to time string of ResDate

set allT to (y & "-" & m & "-" & d as text) & " " & t

set unixtime to do shell script "date -j -f '%Y-%m-%d %H:%M:%S' " & quoted form of allT & " +%s"

return unixtime

end dateToUnixtime

--数字の指数表示を標準に戻す。必要ないかも？

on real2Str(theNum)

set pythonString to do shell script "python -c 'print " & theNum & "'"

return pythonString

end real2Str

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

1 2 3 … 12 »