InDesign | 雑スクリプト

メタデータを利用してインデザインを開かずに、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色／カラー判定。

InDesignのスタートアップ・スクリプトで、バージョンチェック！

2015年10月3日 tetsu AppleScript, InDesign

インデザインには、ファイルを開いたり閉じたりする時などに、

自動的にスクリプトを実行させる機能があります。

それが、スタートアップ・スクリプトです。

今回はCS5で使用できるスクリプトを紹介します。

CS6でも、少しの変更で使用できると思います。

▼AppleScript（ドキュメントを閉じる時に音を鳴らすだけの、基本的なスタートアップ・スクリプト。）

tell application "Adobe InDesign CS5"
	make event listener with properties {event type:"afterClose", handler:my myDisplayEventType}
end tell

on myDisplayEventType()
	beep
end myDisplayEventType

tell application "Adobe InDesign CS5"

make event listener with properties {event type:"afterClose", handler:my myDisplayEventType}

end tell

on myDisplayEventType()

beep

end myDisplayEventType

▼それでは、バージョンチェック用スクリプトを使用するための環境を整えていきます。

■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■

【下準備】

OS X　＞　システム環境設定で、「Growl」がインストールされているかを確認します。

項目がなければ、「Growl」がインストールされていないので、

Growl – Downloads　からダウンロードしてインストール。

たしか、OS Xにプレインストールされているのは「Growl 1.2.2」だったと思います。

※インストールは自己責任でお願いします。

2015-10-03-23.15

インストールが終了したら「Growl」にアップルスクリプトが動作するように登録をします。

▼AppleScript（Growl登録用）

try
	tell application "GrowlHelperApp"
		register as application ¬
			"Growl AppleScript" all notifications {"Notification", "Notification2"} ¬
			default notifications {"Notification"} ¬
			icon of application "Script Editor"
	end tell
end try

try

tell application "GrowlHelperApp"

"Growl AppleScript" all notifications {"Notification", "Notification2"} ¬

default notifications {"Notification"} ¬

icon of application "Script Editor"

end tell

end try

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

上のAppleScriptコードを入力して、実行したら、

OS X　＞　システム環境設定＞　Growl　＞　アプリケーションで

「Growl AppleScript」が登録＆有効になっているか確認してください。

【作成方法】

これから、実際に「バージョンチェック」スクリプトを作成していきます。

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

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

スクリプト形式で「myEvent_Version Check.scpt」などの適当な名前で保存。

スクリプトは下記の【置き場】に入れます。

▼AppleScript（ファイルを開いた直後にインデザインのバージョンをチェックをするスクリプト。）

tell application "Adobe InDesign CS5"
	make event listener with properties {event type:"afterOpen", handler:my myDisplayEventType}
end tell
(*
set myEventNames to {"beforeNew", "afterNew", "beforeQuit", "afterQuit", "beforeOpen",
"afterOpen", "beforeClose", "afterClose", "beforeSave", "afterSave", "beforeSaveAs",
"afterSaveAs", "beforeSaveACopy", "afterSaveACopy", "beforeRevert", "afterRevert", "beforePrint",
"afterPrint", "beforeExport", "afterExport", "beforeImport", "afterImport", "beforePlace",
"afterPlace"}
*)


on myDisplayEventType()
	try
		tell application "Adobe InDesign CS5"
			tell document 1
				set Fname to name
				--set myproperties to properties of (metadata preferences)
				set myCreator to creator of properties of (metadata preferences)
			end tell
		end tell
	on error
		set myCreator to ""
	end try
	
	
	if myCreator contains "Adobe InDesign 7.0" then --インデザインのバージョンによって変更。
	else
		
		BeepVolume2() of me
		
		try
			tell application "GrowlHelperApp" --Growl表示
				launch
				notify with name ¬
					"Notification" title ¬
					"CS5でない可能性があります。" description ¬
					"→→→　" & Fname application name ¬
					"Growl AppleScript" icon of application "Adobe InDesign CS5"
				--"Growl AppleScript" icon of application "System Preferences"
			end tell
		end try
	end if
end myDisplayEventType


on BeepVolume2()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 2 --実際に鳴らす音量　数値：0-7まで
	beep 1
	delay 0.5
	beep 1
	set volume myVol
end BeepVolume2

tell application "Adobe InDesign CS5"

make event listener with properties {event type:"afterOpen", handler:my myDisplayEventType}

end tell

set myEventNames to {"beforeNew", "afterNew", "beforeQuit", "afterQuit", "beforeOpen",

"afterOpen", "beforeClose", "afterClose", "beforeSave", "afterSave", "beforeSaveAs",

"afterSaveAs", "beforeSaveACopy", "afterSaveACopy", "beforeRevert", "afterRevert", "beforePrint",

"afterPrint", "beforeExport", "afterExport", "beforeImport", "afterImport", "beforePlace",

"afterPlace"}

on myDisplayEventType()

try

tell application "Adobe InDesign CS5"

tell document 1

set Fname to name

--set myproperties to properties of (metadata preferences)

set myCreator to creator of properties of (metadata preferences)

end tell

on error

set myCreator to ""

end try

if myCreator contains "Adobe InDesign 7.0" then --インデザインのバージョンによって変更。

else

BeepVolume2() of me

try

tell application "GrowlHelperApp" --Growl表示

launch

notify with name ¬

"Notification" title ¬

"CS5でない可能性があります。" description ¬

"→→→　" & Fname application name ¬

"Growl AppleScript" icon of application "Adobe InDesign CS5"

--"Growl AppleScript" icon of application "System Preferences"

end tell

end try

end if

end myDisplayEventType

on BeepVolume2()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 2 --実際に鳴らす音量　数値：0-7まで

beep 1

delay 0.5

beep 1

set volume myVol

end BeepVolume2

【置き場】

/Applications/Adobe InDesign CS5/Scripts/startup scripts

ちなみに、

↓CS4の場合は、スクリプトの作成方法がちょっと異なるのと、置き場も異なります。

/Applications/Adobe InDesign CS4/Scripts/Export As XHTML/startup scripts

【表示】

今回のスクリプトでは、

InDesign CS5以外のファイルを開くことにより、

下図のように表示されます。（なぜか2重に表示されてしまう？）

表示は「Growl」の設定でいろいろ変えられます。

【その他】

スタートアップ・スクリプトにはプリフライトを組み込むのが一般的かと思います。

機能を強化することによって、自動車で言う、自動ブレーキの役目を果たしてくれます。

「以後、気をつけます。」じゃ事故は防げないので…

インデザインで、ひらがな／カタカナを相互変換。

2015年9月29日 tetsu InDesign, JavaScript

インデザインで文章中のひらがな／カタカナを入れ替えて変換するという

イレギュラーな仕事があったのでスクリプトを作りました。

普通に作業すると、単純に文字を入力し直すことになってしまい、

修正にかなり時間が掛かってしまいます。

そこで、スクリプトを作成しようと思ったのですが、

まず、インデザインの検索機能を使うと、

(もとの文字列）　→　　インデザインで、ひらがな／カタカナを相互変換。

(カタカナ変換）　→　　インデザインデ、ヒラガナ／カタカナヲ相互変換。

(ひらがな変換）　→　　いんでざいんで、ひらがな／かたかなを相互変換。

と一方通行の変換はできるのですが、

ひらがなの時は → カタカナ、カタカナの時は → ひらがな変換という

条件つきの変換ができません。たぶん…

(目的の変換）　→　　いんでざいんデ、ヒラガナ／かたかなヲ相互変換。

そこで単純にJavaScritpのif文を使用して作成してみました。

ひらがな → カタカナ変換、カタカナ → ひらがな変換には、

下記のサイトを参考にさせていただきました。

▼JavaScript

sel = app.activeDocument.selection;
for (j=0; j<sel.length; j++)
{
selObj = sel[j];
for (i=0; i<selObj.characters.length; i++)
{
cObj = selObj.characters[i];
if (cObj.contents.match(/[ぁ-ん]/)){ 
TargetString = cObj.contents.replace(/[ぁ-ん]/g, function(s) {
   return String.fromCharCode(s.charCodeAt(0) + 0x60);
});
cObj.contents = TargetString;
}else if (cObj.contents.match(/[ァ-ン]/) ){
TargetString = cObj.contents.replace(/[ァ-ン]/g, function(s) {
   return String.fromCharCode(s.charCodeAt(0) - 0x60);
});
cObj.contents = TargetString;
}
}
}

sel = app.activeDocument.selection;

for (j=0; j<sel.length; j++)

{

selObj = sel[j];

for (i=0; i<selObj.characters.length; i++)

{

cObj = selObj.characters[i];

if (cObj.contents.match(/[ぁ-ん]/)){

TargetString = cObj.contents.replace(/[ぁ-ん]/g, function(s) {

return String.fromCharCode(s.charCodeAt(0) + 0x60);

});

cObj.contents = TargetString;

}else if (cObj.contents.match(/[ァ-ン]/) ){

TargetString = cObj.contents.replace(/[ァ-ン]/g, function(s) {

return String.fromCharCode(s.charCodeAt(0) - 0x60);

});

cObj.contents = TargetString;

}

参考情報

カタカナをひらがなに一括変換する – JavaScript TIPSふぁくとりー