雑スクリプト

インデザインを保存したバージョンで開く。

2016年7月3日 tetsu AppleScript, InDesign, OS X

インデザインを保存したバージョンで開く場合、

すでに、「Glee」という素晴らしいフリーウエアが存在する訳ですが、

ネットに、いい素材があったので、

また、他人様のお力をお借りして自分でも作ってみました。

インデザインだけでなく、

イラストレーターなどにも使えるかもです。

インデザインのクリエーターは、

正しく取得できているか分かりませんし、

「Glee」のように細かなバージョンまでは取得できませんので、

あしからず…

イラストレーターで使用する場合、

プリフライト機能を組み込んだりしても、

いいかも知れません。

なお今回は、インデザインCS4、CS5、CS6がインストールされていることを

前提にしたスクリプトです。

使用する方は、各自の環境に合わせて書き換えてください。

ちなみに、先人達から見たら今さらでしょうけど、

スクリプトオブジェクトなるものも初めて使用しました。

【作成方法】

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

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

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

script DefaultApplicaiton
	property application_name : "Finder"
	property extension_list : {}
	
	on open theseItems
		repeat with thisItem in theseItems
			tell application id "com.apple.SystemEvents"
				set filename to name of thisItem
				set ext to name extension of thisItem
			end tell
			
			set application_name to my inddVesionCheck(thisItem)
			
			if my extension_list contains ext then
				tell application (my application_name)
					activate
					open thisItem
				end tell
			else
				try
					tell parent to open theseItems
				on error
					tell application application_name
						activate
						display dialog ("拡張子「" & ext & "」のファイルを開くアプリケーションは設定されていません。代わりに Finder で開いてみます") with icon 2
						open thisItem
					end tell
				end try
			end if
		end repeat
	end open
end script


script OpenInCotEditor
	property parent : DefaultApplicaiton
	--property application_name : "Adobe InDesign CS6"
	property extension_list : {"indd"}
	--property extension_list : {"txt", "html", "applescript", "md", "py"}
end script


on open theseItems
	with timeout of 600 seconds --10分間は待つ。
		tell OpenInCotEditor
			activate
			delay 0.1
			open theseItems
			activate
		end tell
	end timeout
end open


on inddVesionCheck(thisItem)
	set POSIXpath to quoted form of POSIX path of thisItem
	
	try
		set myNumber to do shell script "sed -n '/<xmp:CreatorTool>Adobe InDesign /=' " & POSIXpath
	on error
		set myNumber to ""
	end try
	if myNumber = "" then
		try
			set myNumber to do shell script "sed -n '/<xap:CreatorTool>Adobe InDesign /=' " & POSIXpath
		on error
			set myNumber to ""
		end try
	end if
	try
		set T1 to last paragraph of myNumber
		set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath
--set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath & " | sed -e 's/<[^>]*>//g' | sed -e 's/^[ ]*//g' "
	on error
		set ResVersion to ""
	end try
	
	
	--↓↓↓各自の環境に合わせて書き換えてください。
	if ResVersion contains "Adobe InDesign 6.0" then
		set application_name to "Adobe InDesign CS4"
		
	else if ResVersion contains "Adobe InDesign 7.0" then
		set application_name to "Adobe InDesign CS5"
		
	else if ResVersion contains "Adobe InDesign CS6" then
		set application_name to "Adobe InDesign CS6"
	else
		set application_name to "Adobe InDesign CS6"
	end if
	
	return application_name
	
end inddVesionCheck

script DefaultApplicaiton

property application_name : "Finder"

property extension_list : {}

on open theseItems

repeat with thisItem in theseItems

tell application id "com.apple.SystemEvents"

set filename to name of thisItem

set ext to name extension of thisItem

end tell

set application_name to my inddVesionCheck(thisItem)

if my extension_list contains ext then

tell application (my application_name)

activate

open thisItem

end tell

else

try

tell parent to open theseItems

on error

tell application application_name

activate

display dialog ("拡張子「" & ext & "」のファイルを開くアプリケーションは設定されていません。代わりに Finder で開いてみます") with icon 2

open thisItem

end tell

end try

end if

end repeat

end open

end script

script OpenInCotEditor

property parent : DefaultApplicaiton

--property application_name : "Adobe InDesign CS6"

property extension_list : {"indd"}

--property extension_list : {"txt", "html", "applescript", "md", "py"}

end script

on open theseItems

with timeout of 600 seconds --10分間は待つ。

tell OpenInCotEditor

activate

delay 0.1

open theseItems

activate

end tell

end timeout

end open

on inddVesionCheck(thisItem)

set POSIXpath to quoted form of POSIX path of thisItem

try

set myNumber to do shell script "sed -n '/<xmp:CreatorTool>Adobe InDesign /=' " & POSIXpath

on error

set myNumber to ""

end try

if myNumber = "" then

try

set myNumber to do shell script "sed -n '/<xap:CreatorTool>Adobe InDesign /=' " & POSIXpath

on error

set myNumber to ""

end try

end if

try

set T1 to last paragraph of myNumber

set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath

--set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath & " | sed -e 's/<[^>]*>//g' | sed -e 's/^[ ]*//g' "

on error

set ResVersion to ""

end try

--↓↓↓各自の環境に合わせて書き換えてください。

if ResVersion contains "Adobe InDesign 6.0" then

set application_name to "Adobe InDesign CS4"

else if ResVersion contains "Adobe InDesign 7.0" then

set application_name to "Adobe InDesign CS5"

else if ResVersion contains "Adobe InDesign CS6" then

set application_name to "Adobe InDesign CS6"

else

set application_name to "Adobe InDesign CS6"

end if

return application_name

end inddVesionCheck

【使用方法】

古いバージョンのInDesignファイルの

情報を見ます( ファイルを選択して、command + i )。

その中の「このアプリケーションで開く：」の項目で

作成したスクリプト(アプリケーション)を設定します。（上図、赤枠）

それでは、動作確認に入ります。

いま設定したInDesignファイルをダブルクリックして開きます。

古いバージョンのInDesignが起動し、

問題なくファイルが開くようでしたら正常に動作しています。

さらに、すべてのInDesignファイルを

作成したスクリプト(アプリケーション)で開くようにします。

再度、InDesignファイルの情報を見て、

「すべてを変更…」をクリックすると、（上図、青枠）

すべてのInDesignファイルが

作成したスクリプト(アプリケーション)に関連づけられます。

（まあ、長々と書いていますが「Glee」と一緒です。）

【注意点】

上手く動作しなかった場合は、

Dockで起動している作成したスクリプト(アプリケーション)を

右クリック or クリック長押しなどで強制終了してください。

【少し修正】

InDesignだけなら右側の方がいいので…

‘/<xmp:CreatorTool>/=’　＞　’/<xmp:CreatorTool>Adobe InDesign /=’
‘/<xap:CreatorTool>/=’　＞　’/<xap:CreatorTool>Adobe InDesign /=’

参考情報

ASH Planning: AppleScript でファイルを開いてみましょ

ASH Planning: スクリプトオブジェクトを理解してみる

鳶嶋工房 / AppleScript / 入門 / スクリプトオブジェクト

Glee | for InDesign

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

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

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

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

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

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

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

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

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

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

OSXでのPDFの画像変換は、

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

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

【作成方法】

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

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

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

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

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

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

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

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

▼AppleScript

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

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

set workFlow to quoted form of POSIX path of workFlow

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

try

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

on error

return

end try

tell application "Finder"

set oya to parent of item 1 of sourceFiles

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

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

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

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

end tell

set workFlow to quoted form of POSIX path of workFlow

repeat with sourceFile in sourceFiles

-- get base name of the source file

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

-- Strip off the extension

set text item delimiters to "."

set bName to text item 2 of bName

try

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

on error msg number n

error msg & space & n

end try

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

set text item delimiters to "\""

set theList to text items of res

set cnt to 0

repeat with convertedFile in theList

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

set fullPath to quoted form of POSIX path of convertedFile

if cnt ≠ 0 then

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

else

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

end if

set cnt to cnt + 1

end if

end repeat

【使い方】

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

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

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

【注意点】

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

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

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

参考情報

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

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

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

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

OSXで大量のファイルをコピーする。

2016年2月27日 tetsu OS X, Other

1TBくらいのデータ移行をFinderでやろうとすると、

たぶん上手くいきません。コピーに失敗してしまいます。

そこで、ここでもスクリプトの出番です。

今回は、ターミナルを使用します。

まあ、どこにでもあるネタなので、

自分用のメモということで…

【使い方】

ユーティリティ　＞　ターミナル　を起動。

そこに、

$ cp -R -p -v コピー元パスコピー先パスで入力。

パスはターミナルに直接、フォルダーをドラッグ＆ドロップできます。

例）$ cp -R -p -v /Users/tetsu/Desktop/test1 /Users/tetsu/Desktop/test2

一時停止：Control + Z

中止：Control + C

再開：fg

など

【注意点】

まずは、軽いデータで動作を確認してください。

また、コピー完了後は「FreeFileSync」などで

全データが完全にコピーされているかチェックした方がいいと思います。

あと、マシンにあまり負荷をかけたくない場合は、

rsync コマンドを検討した方がいいようです。

参考情報

FreeFileSync の使い方ファイルのバックアップ

Macで大量のファイルをコピーするときの対処法。 – モカ式

裏と表のジョブを使い分ける – ザリガニが見ていた…。