雑スクリプト

インデザインで、ドキュメントのフォント情報を調べる。

2016年2月21日 tetsu AppleScript, InDesign, OS X

今回は、フォント収集スクリプト作成にあたって、

まず、フォント情報を調べる必要があったので作りました。

インデザインCS5，CS6で動きます。

たぶんCS4でも大丈夫だと思いますが…

【作成方法】

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

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

スクリプト形式で「ドキュメントのフォント情報一覧.scpt」などの適当な名前で保存。

▼AppleScript

tell application "Adobe InDesign CS5"
	
	if (count document) = 0 then
		activate
		display dialog "ドキュメントを開いてください。" & return & return buttons {"OK"} default button 1 giving up after 55 with icon 0
		return
	end if
	
	tell document 1
		set allFonts to fonts
		--set ATCFonts to composite fonts
		--font type > ATC > Adobe Type Composer
		
		set myText to ""
		repeat with i from 1 to count allFonts
			set FontProperties to properties of font i
			set myText to myText & (my fontInfo(FontProperties) as Unicode text) & return & return
		end repeat
	end tell
	
end tell

tell application "TextEdit"
	make new document
	set name of front window to "ドキュメントのフォント情報一覧"
	set text of front document to myText as Unicode text
	--set size of every word of document 1 to 13
	activate
end tell


on fontInfo(FontProperties)
	tell application "Adobe InDesign CS5"
		
		set infotext to "" & return
		set infotext to infotext & name of FontProperties & return
		set infotext to infotext & "----------------------------------------------------------------------------------------------" & return
		try
			set infotext to infotext & "allow editable embedding：" & allow editable embedding of FontProperties & return
		end try
		try
			set infotext to infotext & "allow outlines：" & allow outlines of FontProperties & return
		end try
		try
			set infotext to infotext & "allow PDF embedding：" & allow PDF embedding of FontProperties & return
		end try
		try
			set infotext to infotext & "allow printing：" & allow printing of FontProperties & return
		end try
		try
			set infotext to infotext & "font family：" & font family of FontProperties & return
		end try
		try
			set infotext to infotext & "font style name：" & font style name of FontProperties & return
		end try
		try
			set infotext to infotext & "font style name native：" & font style name native of FontProperties & return
		end try
		try
			set infotext to infotext & "font type：" & font type of FontProperties & return
		end try
		try
			set infotext to infotext & "full name：" & full name of FontProperties & return
		end try
		try
			set infotext to infotext & "full name native：" & full name native of FontProperties & return
		end try
		try
			set infotext to infotext & "index：" & index of FontProperties & return
		end try
		try
			set infotext to infotext & "location：" & location of FontProperties & return
		end try
		try
			set infotext to infotext & "name：" & name of FontProperties & return
		end try
		--try
		--set infotext to infotext & "object reference：" & name of (object reference of FontProperties) & return
		--end try
		try
			set infotext to infotext & "ordering：" & ordering of FontProperties & return
		end try
		--try
		--set infotext to infotext & "parent：" & name of parent of FontProperties & return
		--end try
		try
			set infotext to infotext & "platform name：" & platform name of FontProperties & return
		end try
		try
			set infotext to infotext & "PostScript name：" & PostScript name of FontProperties & return
		end try
		try
			set infotext to infotext & "registry：" & registry of FontProperties & return
		end try
		try
			set infotext to infotext & "restricted printing：" & restricted printing of FontProperties & return
		end try
		try
			set infotext to infotext & "status：" & status of FontProperties & return
		end try
		try
			set infotext to infotext & "version：" & version of FontProperties & return
		end try
		try
			set infotext to infotext & "writing script：" & writing script of FontProperties & return
		end try
		
		return infotext
	end tell
end fontInfo

100

101

102

103

104

105

106

107

108

109

110

tell application "Adobe InDesign CS5"

if (count document) = 0 then

activate

display dialog "ドキュメントを開いてください。" & return & return buttons {"OK"} default button 1 giving up after 55 with icon 0

return

end if

tell document 1

set allFonts to fonts

--set ATCFonts to composite fonts

--font type > ATC > Adobe Type Composer

set myText to ""

repeat with i from 1 to count allFonts

set FontProperties to properties of font i

set myText to myText & (my fontInfo(FontProperties) as Unicode text) & return & return

end repeat

end tell

tell application "TextEdit"

make new document

set name of front window to "ドキュメントのフォント情報一覧"

set text of front document to myText as Unicode text

--set size of every word of document 1 to 13

activate

end tell

on fontInfo(FontProperties)

tell application "Adobe InDesign CS5"

set infotext to "" & return

set infotext to infotext & name of FontProperties & return

set infotext to infotext & "----------------------------------------------------------------------------------------------" & return

try

set infotext to infotext & "allow editable embedding：" & allow editable embedding of FontProperties & return

end try

try

set infotext to infotext & "allow outlines：" & allow outlines of FontProperties & return

end try

try

set infotext to infotext & "allow PDF embedding：" & allow PDF embedding of FontProperties & return

end try

try

set infotext to infotext & "allow printing：" & allow printing of FontProperties & return

end try

try

set infotext to infotext & "font family：" & font family of FontProperties & return

end try

try

set infotext to infotext & "font style name：" & font style name of FontProperties & return

end try

try

set infotext to infotext & "font style name native：" & font style name native of FontProperties & return

end try

try

set infotext to infotext & "font type：" & font type of FontProperties & return

end try

try

set infotext to infotext & "full name：" & full name of FontProperties & return

end try

try

set infotext to infotext & "full name native：" & full name native of FontProperties & return

end try

try

set infotext to infotext & "index：" & index of FontProperties & return

end try

try

set infotext to infotext & "location：" & location of FontProperties & return

end try

try

set infotext to infotext & "name：" & name of FontProperties & return

end try

--try

--set infotext to infotext & "object reference：" & name of (object reference of FontProperties) & return

--end try

try

set infotext to infotext & "ordering：" & ordering of FontProperties & return

end try

--try

--set infotext to infotext & "parent：" & name of parent of FontProperties & return

--end try

try

set infotext to infotext & "platform name：" & platform name of FontProperties & return

end try

try

set infotext to infotext & "PostScript name：" & PostScript name of FontProperties & return

end try

try

set infotext to infotext & "registry：" & registry of FontProperties & return

end try

try

set infotext to infotext & "restricted printing：" & restricted printing of FontProperties & return

end try

try

set infotext to infotext & "status：" & status of FontProperties & return

end try

try

set infotext to infotext & "version：" & version of FontProperties & return

end try

try

set infotext to infotext & "writing script：" & writing script of FontProperties & return

end try

return infotext

end tell

end fontInfo

【置き場】

インデザインのスクリプトパネルに配置。

スクリプトパネルを表示させた状態で、「ユーザー」を右クリック　＞　Finder で表示で、

置き場が表示されます。

【使い方】

インデザインが前面に表示された状態で、

スクリプトパネルから、作成したスクリプトをから実行すると、

下図のように表示されます。

処理に時間がかかるため、表示までに1分位かかるかも知れません。

参考情報

http://indesign.cs5.xyz/iddomjs/Font.html

Indesign Script – Liste mit Schriften im Dokument ausgeben

メタデータを利用してインデザインを開かずに、リンクパスを調べる。

2016年2月17日 tetsu AppleScript, InDesign, OS X

インデザインファイルをExifToolで調べると

いろんな情報が含まれている訳ですが、

今回は、リンクファイルのパスを調べてみました。

ほとんど検証してないので、

使用する際は、ご注意ください。

おそらくCS5、CS6のインデザインファイルで使用可能です。

これを上手く発展させていけば、

インデザイン、イラストレーターを開かずに、

リンクファイルを収集できるかも知れません。

【作成方法】

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

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

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

▼AppleScript（ドラッグ＆ドロップタイプ）

on open dorp
	set fileLinkList to {}
	repeat with dorpFile in dorp
		try
			set theFilePath to dorpFile as string
			set POSIXpath to quoted form of POSIX path of dorpFile
			set Separation to "----------------------------------------------"
			set XMPtext to do shell script "sed -n '/xmpMM:Ingredients/=' " & POSIXpath
			
			if XMPtext ≠ "" then
				set inddName to name of (info for dorpFile)
				set XMPtextCount2 to count paragraphs of XMPtext
				set XMPtextCount1 to XMPtextCount2 - 1
				
				set paragraph1 to XMPtextCount1
				set paragraph2 to XMPtextCount2
				set T1 to paragraph paragraph1 of XMPtext
				set T2 to paragraph paragraph2 of XMPtext
				
				try
					set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<stRef:filePath>\\(.*\\)<\\/stRef:filePath>/\\1/p' " & POSIXpath
					set swatchNameTEXT to (my decodeURL(swatchNameTEXT0)) as Unicode text
					set swatchNameTEXT to repChar(swatchNameTEXT, ",", return) of me
					set swatchNameTEXT to repChar(swatchNameTEXT, "file://", "") of me
				end try
			else
				set swatchNameTEXT to "No info"
			end if
			
			set the end of fileLinkList to return & inddName & return & Separation & return & swatchNameTEXT & return & return
			
		end try
		
		
	end repeat
	
	BeepVolume() of me
	
	if fileLinkList ≠ {} then
		tell application "TextEdit"
			activate
			set text of (make new document) to (fileLinkList as text)
		end tell
	else
		activate
		display dialog "No info"
	end if
end open


--文字置換ルーチン
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 BeepVolume()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 0.7
	beep 1
	delay 0.5
	beep 1
	set volume myVol
end BeepVolume

on decodeURL(str)
	set scpt to "php -r 'echo urldecode(\"" & str & "\");'"
	return do shell script scpt
end decodeURL

on open dorp

set fileLinkList to {}

repeat with dorpFile in dorp

try

set theFilePath to dorpFile as string

set POSIXpath to quoted form of POSIX path of dorpFile

set Separation to "----------------------------------------------"

set XMPtext to do shell script "sed -n '/xmpMM:Ingredients/=' " & POSIXpath

if XMPtext ≠ "" then

set inddName to name of (info for dorpFile)

set XMPtextCount2 to count paragraphs of XMPtext

set XMPtextCount1 to XMPtextCount2 - 1

set paragraph1 to XMPtextCount1

set paragraph2 to XMPtextCount2

set T1 to paragraph paragraph1 of XMPtext

set T2 to paragraph paragraph2 of XMPtext

try

set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<stRef:filePath>\\(.*\\)<\\/stRef:filePath>/\\1/p' " & POSIXpath

set swatchNameTEXT to (my decodeURL(swatchNameTEXT0)) as Unicode text

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

set swatchNameTEXT to repChar(swatchNameTEXT, "file://", "") of me

end try

else

set swatchNameTEXT to "No info"

end if

set the end of fileLinkList to return & inddName & return & Separation & return & swatchNameTEXT & return & return

end try

end repeat

BeepVolume() of me

if fileLinkList ≠ {} then

tell application "TextEdit"

activate

set text of (make new document) to (fileLinkList as text)

end tell

else

activate

display dialog "No info"

end if

end open

--文字置換ルーチン

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 BeepVolume()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 0.7

beep 1

delay 0.5

beep 1

set volume myVol

end BeepVolume

on decodeURL(str)

set scpt to "php -r 'echo urldecode(\"" & str & "\");'"

return do shell script scpt

end decodeURL

【使い方】

作成したスクリプトに調べたいインデザインファイルを

ドラッグ＆ドロップすると下図のように表示されます。

参考情報

Webで利用される様々な文字列エンコードを扱うためのAppleScriptいろいろ

[FORCE]: CharacterEntity

メタデータを利用してインデザインを開かずに、1色／カラー判定。

2015年12月20日 tetsu AppleScript, InDesign, OS X

前回に引き続き、

今回は、インデザインを1色／カラー判定。

よく分かっていないシェルスクリプトと、

雑なアップルスクリプトとで実験的に作ったスクリプトです。

もっとスマートに書く方法があると思いますが、

とりあえず参考までに。

【作成方法】

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

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

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

▼AppleScript（カラー全情報取得、ドラッグ＆ドロップタイプ）

on open dorp
	set fileColorList to {}
	
	repeat with dorpFile in dorp
		set theFilePath to dorpFile as string
		set inddName to name of (info for dorpFile)
		set POSIXpath to quoted form of POSIX path of dorpFile
		set Separation to "----------------------------------------------"
		try
			
			
			set XMPtext to do shell script "sed -n '/xmpTPg:Colorants/=' " & POSIXpath
			if XMPtext = "" then
				try
					set XMPtext to do shell script "sed -n '/xapTPg:Colorants/=' " & POSIXpath
				end try
			end if
			
			if XMPtext = "" then
				set myText to "No info"
				set ColorCheck to "▷▷▷　カラーが混じっている可能性があります。"
				set infoText to return & inddName & return & Separation & return & (myText as text) & return & ColorCheck & return
			else
				set XMPtextCount to count paragraphs of XMPtext
				
				set NumberList to {}
				
				set i to 1
				repeat (XMPtextCount / 2) times
					set i to (i + 2)
					set j to {i - 2, i - 1}
					set the end of NumberList to j
				end repeat
				
				
				set infoList to {}
				
				repeat with T from 1 to (count NumberList)
					
					set paragraph1 to item 1 of item T of NumberList
					set paragraph2 to item 2 of item T of NumberList
					set T1 to paragraph paragraph1 of XMPtext
					set T2 to paragraph paragraph2 of XMPtext
					set the end of infoList to my shellRoutine(T1, T2, POSIXpath)
				end repeat
				
				set infoText to inddName & return & (infoList as text)
				
				
			end if
			
			set infoText to return & (infoText as text) & Separation & return
			
		on error
			set infoText to "シェルスクリプトで問題が発生。2" & return & return
		end try
		
		
		set the end of fileColorList to return & infoText & return
		
	end repeat
	
	if fileColorList ≠ "" then
		tell application "TextEdit"
			activate
			set text of (make new document) to (fileColorList as text)
		end tell
	else
		activate
		display dialog "No info"
	end if
end open

on shellRoutine(T1, T2, POSIXpath)
	try
		set swatchNameTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:swatchName>\\(.*\\)<\\/xmpG:swatchName>/\\1/p' " & POSIXpath
		set modeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:mode>\\(.*\\)<\\/xmpG:mode>/\\1/p' " & POSIXpath
		set typeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:type>\\(.*\\)<\\/xmpG:type>/\\1/p' " & POSIXpath
		set cyanTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:cyan>\\(.*\\)<\\/xmpG:cyan>/\\1/p' " & POSIXpath
		set magentaTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:magenta>\\(.*\\)<\\/xmpG:magenta>/\\1/p' " & POSIXpath
		set yellowTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:yellow>\\(.*\\)<\\/xmpG:yellow>/\\1/p' " & POSIXpath
		set blackTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:black>\\(.*\\)<\\/xmpG:black>/\\1/p' " & POSIXpath
		
		if swatchNameTEXT = "" then
			try
				set swatchNameTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:swatchName>\\(.*\\)<\\/xapG:swatchName>/\\1/p' " & POSIXpath
				set modeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:mode>\\(.*\\)<\\/xapG:mode>/\\1/p' " & POSIXpath
				set typeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:type>\\(.*\\)<\\/xapG:type>/\\1/p' " & POSIXpath
				set cyanTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:cyan>\\(.*\\)<\\/xapG:cyan>/\\1/p' " & POSIXpath
				set magentaTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:magenta>\\(.*\\)<\\/xapG:magenta>/\\1/p' " & POSIXpath
				set yellowTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:yellow>\\(.*\\)<\\/xapG:yellow>/\\1/p' " & POSIXpath
				set blackTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:black>\\(.*\\)<\\/xapG:black>/\\1/p' " & POSIXpath
			end try
		end if
		
		set swatchNameTEXT to repChar(swatchNameTEXT, return, ", ") of me
		set modeTEXT to repChar(modeTEXT, return, ", ") of me
		set typeTEXT to repChar(typeTEXT, return, ", ") of me
		set cyanTEXT to repChar(cyanTEXT, return, ", ") of me
		set magentaTEXT to repChar(magentaTEXT, return, ", ") of me
		set yellowTEXT to repChar(yellowTEXT, return, ", ") of me
		set blackTEXT to repChar(blackTEXT, return, ", ") of me
		
		set Separation to "----------------------------------------------"
		set myText to Separation & return & swatchNameTEXT & return & modeTEXT & return & typeTEXT & return & cyanTEXT & return & magentaTEXT & return & yellowTEXT & return & blackTEXT & return
	on error
		set myText to "シェルスクリプトで問題が発生。1" & return & return
	end try
	return myText
end shellRoutine

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

on open dorp

set fileColorList to {}

repeat with dorpFile in dorp

set theFilePath to dorpFile as string

set inddName to name of (info for dorpFile)

set POSIXpath to quoted form of POSIX path of dorpFile

set Separation to "----------------------------------------------"

try

set XMPtext to do shell script "sed -n '/xmpTPg:Colorants/=' " & POSIXpath

if XMPtext = "" then

try

set XMPtext to do shell script "sed -n '/xapTPg:Colorants/=' " & POSIXpath

end try

end if

if XMPtext = "" then

set myText to "No info"

set ColorCheck to "▷▷▷　カラーが混じっている可能性があります。"

set infoText to return & inddName & return & Separation & return & (myText as text) & return & ColorCheck & return

else

set XMPtextCount to count paragraphs of XMPtext

set NumberList to {}

set i to 1

repeat (XMPtextCount / 2) times

set i to (i + 2)

set j to {i - 2, i - 1}

set the end of NumberList to j

end repeat

set infoList to {}

repeat with T from 1 to (count NumberList)

set paragraph1 to item 1 of item T of NumberList

set paragraph2 to item 2 of item T of NumberList

set T1 to paragraph paragraph1 of XMPtext

set T2 to paragraph paragraph2 of XMPtext

set the end of infoList to my shellRoutine(T1, T2, POSIXpath)

end repeat

set infoText to inddName & return & (infoList as text)

end if

set infoText to return & (infoText as text) & Separation & return

on error

set infoText to "シェルスクリプトで問題が発生。2" & return & return

end try

set the end of fileColorList to return & infoText & return

end repeat

if fileColorList ≠ "" then

tell application "TextEdit"

activate

set text of (make new document) to (fileColorList as text)

end tell

else

activate

display dialog "No info"

end if

end open

on shellRoutine(T1, T2, POSIXpath)

try

set swatchNameTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:swatchName>\\(.*\\)<\\/xmpG:swatchName>/\\1/p' " & POSIXpath

set modeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:mode>\\(.*\\)<\\/xmpG:mode>/\\1/p' " & POSIXpath

set typeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:type>\\(.*\\)<\\/xmpG:type>/\\1/p' " & POSIXpath

set cyanTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:cyan>\\(.*\\)<\\/xmpG:cyan>/\\1/p' " & POSIXpath

set magentaTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:magenta>\\(.*\\)<\\/xmpG:magenta>/\\1/p' " & POSIXpath

set yellowTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:yellow>\\(.*\\)<\\/xmpG:yellow>/\\1/p' " & POSIXpath

set blackTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:black>\\(.*\\)<\\/xmpG:black>/\\1/p' " & POSIXpath

if swatchNameTEXT = "" then

try

set swatchNameTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:swatchName>\\(.*\\)<\\/xapG:swatchName>/\\1/p' " & POSIXpath

set modeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:mode>\\(.*\\)<\\/xapG:mode>/\\1/p' " & POSIXpath

set typeTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:type>\\(.*\\)<\\/xapG:type>/\\1/p' " & POSIXpath

set cyanTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:cyan>\\(.*\\)<\\/xapG:cyan>/\\1/p' " & POSIXpath

set magentaTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:magenta>\\(.*\\)<\\/xapG:magenta>/\\1/p' " & POSIXpath

set yellowTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:yellow>\\(.*\\)<\\/xapG:yellow>/\\1/p' " & POSIXpath

set blackTEXT to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:black>\\(.*\\)<\\/xapG:black>/\\1/p' " & POSIXpath

end try

end if

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

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

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

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

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

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

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

set Separation to "----------------------------------------------"

set myText to Separation & return & swatchNameTEXT & return & modeTEXT & return & typeTEXT & return & cyanTEXT & return & magentaTEXT & return & yellowTEXT & return & blackTEXT & return

on error

set myText to "シェルスクリプトで問題が発生。1" & return & return

end try

return myText

end shellRoutine

--文字置換ルーチン

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

【使い方】

作成したスクリプトに調べたいインデザインファイルを

ドラッグ＆ドロップすると下図のように表示されます。

▼結果例（カラー全情報取得）

同じような情報が繰り返されていますが、

イラストレーターや画像の配置で情報が変わっていくようです。

▼ExifToolを使用したカラー情報取得例。

上にある複数あるカラー情報のうち最後の情報だけを取得しているみたいです。

▼AppleScript（1色／カラー判定タイプ、ドラッグ＆ドロップタイプ）

on open dorp
	set fileColorList to {}
	
	repeat with dorpFile in dorp
		set theFilePath to dorpFile as string
		set inddName to name of (info for dorpFile)
		set POSIXpath to quoted form of POSIX path of dorpFile
		set Separation to "----------------------------------------------"
		try
			
			
			set XMPtext to do shell script "sed -n '/xmpTPg:Colorants/=' " & POSIXpath
			if XMPtext = "" then
				try
					set XMPtext to do shell script "sed -n '/xapTPg:Colorants/=' " & POSIXpath
				end try
			end if
			
			if XMPtext = "" then
				set myText to "No info"
				set ColorCheck to "▷▷▷　カラーが混じっている可能性があります。"
				set infoText to return & inddName & return & Separation & return & (myText as text) & return & ColorCheck & return
			else
				set XMPtextCount2 to count paragraphs of XMPtext
				
				
				set XMPtextCount1 to XMPtextCount2 - 1
				
				set paragraph1 to XMPtextCount1
				set paragraph2 to XMPtextCount2
				set T1 to paragraph paragraph1 of XMPtext
				set T2 to paragraph paragraph2 of XMPtext
				
				
				try
					set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:swatchName>\\(.*\\)<\\/xmpG:swatchName>/\\1/p' " & POSIXpath
					set modeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:mode>\\(.*\\)<\\/xmpG:mode>/\\1/p' " & POSIXpath
					set typeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:type>\\(.*\\)<\\/xmpG:type>/\\1/p' " & POSIXpath
					set cyanTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:cyan>\\(.*\\)<\\/xmpG:cyan>/\\1/p' " & POSIXpath
					set magentaTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:magenta>\\(.*\\)<\\/xmpG:magenta>/\\1/p' " & POSIXpath
					set yellowTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:yellow>\\(.*\\)<\\/xmpG:yellow>/\\1/p' " & POSIXpath
					set blackTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:black>\\(.*\\)<\\/xmpG:black>/\\1/p' " & POSIXpath
					
					if swatchNameTEXT0 = "" then
						try
							set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:swatchName>\\(.*\\)<\\/xapG:swatchName>/\\1/p' " & POSIXpath
							set modeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:mode>\\(.*\\)<\\/xapG:mode>/\\1/p' " & POSIXpath
							set typeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:type>\\(.*\\)<\\/xapG:type>/\\1/p' " & POSIXpath
							set cyanTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:cyan>\\(.*\\)<\\/xapG:cyan>/\\1/p' " & POSIXpath
							set magentaTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:magenta>\\(.*\\)<\\/xapG:magenta>/\\1/p' " & POSIXpath
							set yellowTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:yellow>\\(.*\\)<\\/xapG:yellow>/\\1/p' " & POSIXpath
							set blackTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:black>\\(.*\\)<\\/xapG:black>/\\1/p' " & POSIXpath
						end try
					end if
					
					set swatchNameTEXT to repChar(swatchNameTEXT0, return, ", ") of me
					set modeTEXT to repChar(modeTEXT0, return, ", ") of me
					set typeTEXT to repChar(typeTEXT0, return, ", ") of me
					set cyanTEXT to repChar(cyanTEXT0, return, ", ") of me
					set magentaTEXT to repChar(magentaTEXT0, return, ", ") of me
					set yellowTEXT to repChar(yellowTEXT0, return, ", ") of me
					set blackTEXT to repChar(blackTEXT0, return, ", ") of me
					
					set cyanCount to 0
					repeat with cyanNo from 1 to (count (paragraphs of cyanTEXT0))
						set cyanAns to paragraph cyanNo of cyanTEXT0
						if cyanAns = "100" then
							set cyanCount to cyanCount + 1
						else if cyanAns = "0" then
						else
							set cyanCount to cyanCount + 1
						end if
					end repeat
					
					set magentaCount to 0
					repeat with magentaNo from 1 to (count (paragraphs of magentaTEXT0))
						set magentaAns to paragraph magentaNo of magentaTEXT0
						if magentaAns = "100" then
							set magentaCount to magentaCount + 1
						else if magentaAns = "0" then
						else
							set magentaCount to magentaCount + 1
						end if
					end repeat
					
					set yellowCount to 0
					repeat with yellowNo from 1 to (count (paragraphs of yellowTEXT0))
						set yellowAns to paragraph yellowNo of yellowTEXT0
						if yellowAns = "100" then
							set yellowCount to yellowCount + 1
						else if yellowAns = "0" then
						else
							set yellowCount to yellowCount + 1
						end if
					end repeat
					
					
					set myText to Separation & return & swatchNameTEXT & return & modeTEXT & return & typeTEXT & return & cyanTEXT & return & magentaTEXT & return & yellowTEXT & return & blackTEXT & return
				on error
					set myText to "シェルスクリプトで問題が発生。" & return & return
				end try
				
				set swatchNameCheck to repChar(swatchNameTEXT0, return, "") of me
				set swatchNameCheck to repChar(swatchNameCheck, "黒", "") of me
				set swatchNameCheck to repChar(swatchNameCheck, "紙色", "") of me
				set swatchNameCheck to repChar(swatchNameCheck, "レジストレーション", "") of me
				set swatchNameCheck to repChar(swatchNameCheck, "白", "") of me
				set swatchNameCheck to repChar(swatchNameCheck, "C=0 M=0 Y=0 ", "") of me
				
				set modeCheck to repChar(modeTEXT0, return, "") of me
				set modeCheck to repChar(modeCheck, "CMYK", "") of me
				
				
				set typeCheck to repChar(typeTEXT0, return, "") of me
				set typeCheck to repChar(typeCheck, "Process", "") of me
				
				
				if ((swatchNameCheck = "") or (swatchNameCheck begins with "K=")) and (modeCheck = "") and (typeCheck = "") and (cyanCount ≤ 1) and (magentaCount ≤ 1) and (yellowCount ≤ 1) then
					set ColorCheck to "▷▷▷　おそらくグレースケールです。"
				else
					set ColorCheck to "▷▷▷　カラーが混じっている可能性があります。"
				end if
				
				set infoText to return & inddName & return & (myText as text) & Separation & return & ColorCheck & return
				
			end if
			
		end try
		
		
		set the end of fileColorList to return & infoText & return
		
	end repeat
	
	if fileColorList ≠ "" then
		tell application "TextEdit"
			activate
			set text of (make new document) to (fileColorList as text)
		end tell
	else
		activate
		display dialog "No info"
	end if
end open


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

on open dorp

set fileColorList to {}

repeat with dorpFile in dorp

set theFilePath to dorpFile as string

set inddName to name of (info for dorpFile)

set POSIXpath to quoted form of POSIX path of dorpFile

set Separation to "----------------------------------------------"

try

set XMPtext to do shell script "sed -n '/xmpTPg:Colorants/=' " & POSIXpath

if XMPtext = "" then

try

set XMPtext to do shell script "sed -n '/xapTPg:Colorants/=' " & POSIXpath

end try

end if

if XMPtext = "" then

set myText to "No info"

set ColorCheck to "▷▷▷　カラーが混じっている可能性があります。"

set infoText to return & inddName & return & Separation & return & (myText as text) & return & ColorCheck & return

else

set XMPtextCount2 to count paragraphs of XMPtext

set XMPtextCount1 to XMPtextCount2 - 1

set paragraph1 to XMPtextCount1

set paragraph2 to XMPtextCount2

set T1 to paragraph paragraph1 of XMPtext

set T2 to paragraph paragraph2 of XMPtext

try

set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:swatchName>\\(.*\\)<\\/xmpG:swatchName>/\\1/p' " & POSIXpath

set modeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:mode>\\(.*\\)<\\/xmpG:mode>/\\1/p' " & POSIXpath

set typeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:type>\\(.*\\)<\\/xmpG:type>/\\1/p' " & POSIXpath

set cyanTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:cyan>\\(.*\\)<\\/xmpG:cyan>/\\1/p' " & POSIXpath

set magentaTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:magenta>\\(.*\\)<\\/xmpG:magenta>/\\1/p' " & POSIXpath

set yellowTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:yellow>\\(.*\\)<\\/xmpG:yellow>/\\1/p' " & POSIXpath

set blackTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xmpG:black>\\(.*\\)<\\/xmpG:black>/\\1/p' " & POSIXpath

if swatchNameTEXT0 = "" then

try

set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:swatchName>\\(.*\\)<\\/xapG:swatchName>/\\1/p' " & POSIXpath

set modeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:mode>\\(.*\\)<\\/xapG:mode>/\\1/p' " & POSIXpath

set typeTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:type>\\(.*\\)<\\/xapG:type>/\\1/p' " & POSIXpath

set cyanTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:cyan>\\(.*\\)<\\/xapG:cyan>/\\1/p' " & POSIXpath

set magentaTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:magenta>\\(.*\\)<\\/xapG:magenta>/\\1/p' " & POSIXpath

set yellowTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:yellow>\\(.*\\)<\\/xapG:yellow>/\\1/p' " & POSIXpath

set blackTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<xapG:black>\\(.*\\)<\\/xapG:black>/\\1/p' " & POSIXpath

end try

end if

set swatchNameTEXT to repChar(swatchNameTEXT0, return, ", ") of me

set modeTEXT to repChar(modeTEXT0, return, ", ") of me

set typeTEXT to repChar(typeTEXT0, return, ", ") of me

set cyanTEXT to repChar(cyanTEXT0, return, ", ") of me

set magentaTEXT to repChar(magentaTEXT0, return, ", ") of me

set yellowTEXT to repChar(yellowTEXT0, return, ", ") of me

set blackTEXT to repChar(blackTEXT0, return, ", ") of me

set cyanCount to 0

repeat with cyanNo from 1 to (count (paragraphs of cyanTEXT0))

set cyanAns to paragraph cyanNo of cyanTEXT0

if cyanAns = "100" then

set cyanCount to cyanCount + 1

else if cyanAns = "0" then

else

set cyanCount to cyanCount + 1

end if

end repeat

set magentaCount to 0

repeat with magentaNo from 1 to (count (paragraphs of magentaTEXT0))

set magentaAns to paragraph magentaNo of magentaTEXT0

if magentaAns = "100" then

set magentaCount to magentaCount + 1

else if magentaAns = "0" then

else

set magentaCount to magentaCount + 1

end if

end repeat

set yellowCount to 0

repeat with yellowNo from 1 to (count (paragraphs of yellowTEXT0))

set yellowAns to paragraph yellowNo of yellowTEXT0

if yellowAns = "100" then

set yellowCount to yellowCount + 1

else if yellowAns = "0" then

else

set yellowCount to yellowCount + 1

end if

end repeat

set myText to Separation & return & swatchNameTEXT & return & modeTEXT & return & typeTEXT & return & cyanTEXT & return & magentaTEXT & return & yellowTEXT & return & blackTEXT & return

on error

set myText to "シェルスクリプトで問題が発生。" & return & return

end try

set swatchNameCheck to repChar(swatchNameTEXT0, return, "") of me

set swatchNameCheck to repChar(swatchNameCheck, "黒", "") of me

set swatchNameCheck to repChar(swatchNameCheck, "紙色", "") of me

set swatchNameCheck to repChar(swatchNameCheck, "レジストレーション", "") of me

set swatchNameCheck to repChar(swatchNameCheck, "白", "") of me

set swatchNameCheck to repChar(swatchNameCheck, "C=0 M=0 Y=0 ", "") of me

set modeCheck to repChar(modeTEXT0, return, "") of me

set modeCheck to repChar(modeCheck, "CMYK", "") of me

set typeCheck to repChar(typeTEXT0, return, "") of me

set typeCheck to repChar(typeCheck, "Process", "") of me

if ((swatchNameCheck = "") or (swatchNameCheck begins with "K=")) and (modeCheck = "") and (typeCheck = "") and (cyanCount ≤ 1) and (magentaCount ≤ 1) and (yellowCount ≤ 1) then

set ColorCheck to "▷▷▷　おそらくグレースケールです。"

else

set ColorCheck to "▷▷▷　カラーが混じっている可能性があります。"

end if

set infoText to return & inddName & return & (myText as text) & Separation & return & ColorCheck & return

end if

end try

set the end of fileColorList to return & infoText & return

end repeat

if fileColorList ≠ "" then

tell application "TextEdit"

activate

set text of (make new document) to (fileColorList as text)

end tell

else

activate

display dialog "No info"

end if

end open

--文字置換ルーチン

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

▼結果例（1色／カラー判定付き）

【注意点】

分版プレビューで1色になっていても、

カラーのスウォッチが存在していて、

それが文字スタイル、段落スタイルなどで、

カラー設定が自動になっているなどの際にも

カラー情報（判定）に影響してしまうようです。

マスターページ上のカラーオブジェクトにも反応します。

また、仕様上、「黒100％」のような

独自の名前のスウォッチを、

オブジェクトに適用していると、

カラーと判定してしまいます。

まあ、どちらも余計なスウォッチは削除してしまえば解決するのですけど…

なお、今回のスクリプトのカラー判定は、

あくまでインデザインファイル単体に対してのものです。

配置されているイラストレーターや画像の

1色／カラー判定は別に行う必要があります。

イラストレーターの1色／カラー判定には、下記情報を参考にしてください。

参考情報

メタデータを利用してイラストレーターを開かずに、1色／カラー判定。