雑スクリプト

InDesignでリンクファイル名を表示。

2015年9月4日 tetsu InDesign, JavaScript

【作成方法】

InDesign　＞　スクリプトパネル　＞　右クリックでFinder で表示。

適当に拡張子が「.JSX」のファイルを複製。

「リンクファイル名を表示」などにリネームして、

ダブルクリックして開き、

下記のJavaScriptコードを入力して保存。

if(app.documents.length > 0) {
try{
    var saveFolderPath = app.activeDocument.filePath; // アクティブなドキュメントの保存フォルダ
    }catch( e ){
        alert("ドキュメントを保存してから実行してください。");
        //alert( e ); 
}
    var actDocName = app.activeDocument.name.split('.')[0]; // アクティブなドキュメントの名前
//alert(actDocName)
  var NORMALresultArr = []; // 結果文字列の格納用配列（タブ区切りテキスト）
var MISSINGresultArr = [];
var OUTresultArr = [];
  var graphArr = app.activeDocument.allGraphics; // ページオブジェクトのコレクション

  // 全画像ループ
    var gLen = graphArr.length;

    // 全画像についてパスを取得、格納用配列に格納
    for(var g = 0 ; g < gLen ; g++) {
        myLinkstatus = graphArr[g].itemLink.status; //NORMAL/LINK_MISSING/LINK_OUT_OF_DATE/
        //alert(Linkstatus);
        if (myLinkstatus === LinkStatus.LINK_OUT_OF_DATE) {
                                  OUTresultArr.push(decodeURI(graphArr[g].itemLink.name));
               } else if (myLinkstatus === LinkStatus.LINK_MISSING) {
                      MISSINGresultArr.push(decodeURI(graphArr[g].itemLink.name));
              } else if (myLinkstatus === LinkStatus.NORMAL) {        
      NORMALresultArr.push(decodeURI(graphArr[g].itemLink.name));
            //resultArr.push(decodeURI(graphArr[g].itemLink.filePath)); //ファイルパスの場合
                          } else if (myLinkstatus === LinkStatus.LINK_EMBEDDED) {        

            }
}
      NORMALresultArr = unique(NORMALresultArr); // 重複を削除したリスト
      NORMALresultArr = NORMALresultArr.sort(); // ソート
      MISSINGresultArr = unique(MISSINGresultArr); // 重複を削除したリスト
      MISSINGresultArr = MISSINGresultArr.sort(); // ソート
      OUTresultArr = unique(OUTresultArr); // 重複を削除したリスト
      OUTresultArr = OUTresultArr.sort(); // ソート


  // 画像があったらパスの一覧をテキストファイルに保存する
  if((NORMALresultArr.length != 0) || (MISSINGresultArr.length != 0) || (OUTresultArr.length != 0)){

    // 新規ファイルオブジェクトをつくる
    var saveFile = new File(saveFolderPath + "/ " + actDocName + "_リンクファイル名情報.txt");
    
    //元コード　//var saveFile = new File(saveFolderPath + "/ ◆linkPath_" + actDocName + ".txt");

    // 書き込みモードでファイルを開き、改行でjoinした配列を書き込んで閉じる
    saveFile.open("w");
    //saveFile.write();
    if (MISSINGresultArr.length != 0){
    var success = saveFile.write("▼▼▼ 不明なリンクファイル名 ▼▼▼" + "\n" + MISSINGresultArr.join("\n") + "\n\n" +"計"+(MISSINGresultArr.length)+"点"+"\n\n\n");
    } else {
    var success = saveFile.write("▼▼▼ 不明なリンクファイル名 ▼▼▼" + "\n" + "ありません。" + "\n\n\n");
    }
    if (OUTresultArr.length != 0){
    var success = saveFile.write("▼▼▼ 更新が必要なリンクファイル名 ▼▼▼" + "\n" + OUTresultArr.join("\n") + "\n\n" +"計"+(OUTresultArr.length)+"点"+ "\n\n\n");
    } else {
    var success = saveFile.write("▼▼▼ 更新が必要なリンクファイル名 ▼▼▼" + "\n" + "ありません。" + "\n\n\n");
    }
    if (NORMALresultArr.length != 0){
    var success = saveFile.write("▼▼▼ 有効なリンクファイル名 ▼▼▼" + "\n" + NORMALresultArr.join("\n") + "\n\n" +"計"+(NORMALresultArr.length)+"点"+ "\n\n\n");
    } else {
    var success = saveFile.write("▼▼▼ 有効なリンクファイル名 ▼▼▼" + "\n" + "ありません。" + "\n\n\n");
    }
    saveFile.close();

    // 書き込みが成功したらダイアログを出す（いらない）
    if(success) {      
        alert("リンクファイル一覧を保存しました。\n" + "ファイル名 :\n" + decodeURI(saveFile.name));
        saveFile.execute();
    }

  }
  else {
    alert("リンクされた画像はありません。");
  }

}

// 重複を削除したリスト
function unique(array) {
　var storage = {};
　var uniqueArray = [];
　var i,value;
　for ( i=0; i<array.length; i++) {
   　value = array[i];
      if (!(value in storage)) {
      　storage[value] = true;
         uniqueArray.push(value);
       }
   }
   return uniqueArray;
}

if(app.documents.length > 0) {

try{

var saveFolderPath = app.activeDocument.filePath; // アクティブなドキュメントの保存フォルダ

}catch( e ){

alert("ドキュメントを保存してから実行してください。");

//alert( e );

}

var actDocName = app.activeDocument.name.split('.')[0]; // アクティブなドキュメントの名前

//alert(actDocName)

var NORMALresultArr = []; // 結果文字列の格納用配列（タブ区切りテキスト）

var MISSINGresultArr = [];

var OUTresultArr = [];

var graphArr = app.activeDocument.allGraphics; // ページオブジェクトのコレクション

// 全画像ループ

var gLen = graphArr.length;

// 全画像についてパスを取得、格納用配列に格納

for(var g = 0 ; g < gLen ; g++) {

myLinkstatus = graphArr[g].itemLink.status; //NORMAL/LINK_MISSING/LINK_OUT_OF_DATE/

//alert(Linkstatus);

if (myLinkstatus === LinkStatus.LINK_OUT_OF_DATE) {

OUTresultArr.push(decodeURI(graphArr[g].itemLink.name));

} else if (myLinkstatus === LinkStatus.LINK_MISSING) {

MISSINGresultArr.push(decodeURI(graphArr[g].itemLink.name));

} else if (myLinkstatus === LinkStatus.NORMAL) {

NORMALresultArr.push(decodeURI(graphArr[g].itemLink.name));

//resultArr.push(decodeURI(graphArr[g].itemLink.filePath)); //ファイルパスの場合

} else if (myLinkstatus === LinkStatus.LINK_EMBEDDED) {

}

NORMALresultArr = unique(NORMALresultArr); // 重複を削除したリスト

NORMALresultArr = NORMALresultArr.sort(); // ソート

MISSINGresultArr = unique(MISSINGresultArr); // 重複を削除したリスト

MISSINGresultArr = MISSINGresultArr.sort(); // ソート

OUTresultArr = unique(OUTresultArr); // 重複を削除したリスト

OUTresultArr = OUTresultArr.sort(); // ソート

// 画像があったらパスの一覧をテキストファイルに保存する

if((NORMALresultArr.length != 0) || (MISSINGresultArr.length != 0) || (OUTresultArr.length != 0)){

// 新規ファイルオブジェクトをつくる

var saveFile = new File(saveFolderPath + "/ " + actDocName + "_リンクファイル名情報.txt");

//元コード　//var saveFile = new File(saveFolderPath + "/ ◆linkPath_" + actDocName + ".txt");

// 書き込みモードでファイルを開き、改行でjoinした配列を書き込んで閉じる

saveFile.open("w");

//saveFile.write();

if (MISSINGresultArr.length != 0){

var success = saveFile.write("▼▼▼ 不明なリンクファイル名 ▼▼▼" + "\n" + MISSINGresultArr.join("\n") + "\n\n" +"計"+(MISSINGresultArr.length)+"点"+"\n\n\n");

} else {

var success = saveFile.write("▼▼▼ 不明なリンクファイル名 ▼▼▼" + "\n" + "ありません。" + "\n\n\n");

}

if (OUTresultArr.length != 0){

var success = saveFile.write("▼▼▼ 更新が必要なリンクファイル名 ▼▼▼" + "\n" + OUTresultArr.join("\n") + "\n\n" +"計"+(OUTresultArr.length)+"点"+ "\n\n\n");

} else {

var success = saveFile.write("▼▼▼ 更新が必要なリンクファイル名 ▼▼▼" + "\n" + "ありません。" + "\n\n\n");

}

if (NORMALresultArr.length != 0){

var success = saveFile.write("▼▼▼ 有効なリンクファイル名 ▼▼▼" + "\n" + NORMALresultArr.join("\n") + "\n\n" +"計"+(NORMALresultArr.length)+"点"+ "\n\n\n");

} else {

var success = saveFile.write("▼▼▼ 有効なリンクファイル名 ▼▼▼" + "\n" + "ありません。" + "\n\n\n");

}

saveFile.close();

// 書き込みが成功したらダイアログを出す（いらない）

if(success) {

alert("リンクファイル一覧を保存しました。\n" + "ファイル名 :\n" + decodeURI(saveFile.name));

saveFile.execute();

}

else {

alert("リンクされた画像はありません。");

}

// 重複を削除したリスト

function unique(array) {

　var storage = {};

　var uniqueArray = [];

　var i,value;

　for ( i=0; i<array.length; i++) {

　value = array[i];

if (!(value in storage)) {

　storage[value] = true;

uniqueArray.push(value);

}

return uniqueArray;

}

【使い方】

InDesignファイルを開いた状態で、

スクリプトパネル　＞　作成したスクリプトをダブルクリックすると、

リンクファイル名が表示されます。

参考情報

InDesign CS で文書内の画像のパス一覧を書き出す JavaScript

OS Xの「サービス」を使用して、WordをTextに変換。

2015年9月4日 tetsu AppleScript, Automator, OS X, Other

【作成方法】

アプリケーション　＞　Automator　＞　サービスを選択。

ライブラリ　＞　AppleScriptを実行をダブルクリック。

画像のように、AppleScriptコードを入力して、

「WordをTextに変換」などの適当な名前で保存。

▼AppleScriptコード

参考にしたサイトは現在、存在しませんが、

そのサイトのコードをほぼそのまま使用させていただいてます。

ありがとうございます。

on run {input, parameters}
		--activate
	--display dialog "Wordの校閲が使用されていないか注意してください。" giving up after 2
	
	repeat with f in input
		set theSuffix to name extension of (info for f)
		if theSuffix contains "doc" then
			my convertDocToText(f)
		end if
	end repeat
	BeepVolume2() of me
	return input
end run

to convertDocToText(f)
	set FilePath to (quoted form of POSIX path of f) as Unicode text
	(*
	ターミナルのコマンドtextutilは文字コード変換もAppleScriptに文字化けしないから便利。
	元のファイルがSJISでもUTF8でも問題ない
	*)
	try
		do shell script "textutil -convert txt " & FilePath
	end try
end convertDocToText

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

on run {input, parameters}

--activate

--display dialog "Wordの校閲が使用されていないか注意してください。" giving up after 2

repeat with f in input

set theSuffix to name extension of (info for f)

if theSuffix contains "doc" then

my convertDocToText(f)

end if

end repeat

BeepVolume2() of me

return input

end run

to convertDocToText(f)

set FilePath to (quoted form of POSIX path of f) as Unicode text

ターミナルのコマンドtextutilは文字コード変換もAppleScriptに文字化けしないから便利。

元のファイルがSJISでもUTF8でも問題ない

try

do shell script "textutil -convert txt " & FilePath

end try

end convertDocToText

on BeepVolume2()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

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

beep 1

delay 0.5

beep 1

set volume myVol

end BeepVolume2

【使い方】

Wordファイルを選択して右クリックして、

作成したサービスを選ぶと、

同階層にテキストが生成されます。

OS Xの「サービス」を使用して、ファイルの連番チェック。

2015年9月3日 tetsu AppleScript, Automator, OS X

【作成方法】

アプリケーション　＞　Automator　＞　サービスを選択。

ライブラリ　＞　AppleScriptを実行をダブルクリック。

画像のように、AppleScriptコードを入力して、

「連番チェック」などの適当な名前で保存。

▼AppleScriptコード

拡張子の自動取得以外は、

AS Hole（AppleScriptの穴） By Piyomaru Softwareさんの

コードをほぼそのまま使用させていただいてます。

ありがとうございます。

on run {input, parameters}
	try
		script spd
			property aList : {}
			property nameList : {}
			property aSel : {}
			property dameList : {}
		end script
		
		--変数の初期化
		set aList of spd to {}
		set nameList of spd to {}
		set aSel of spd to {}
		set dameList of spd to {}
		
		try
			tell application "Finder"
				set aSel of spd to input as alias list
			end tell
		on error
			return
		end try
		
		set aLen to length of aSel of spd
		
		--選択中ファイルの親フォルダを取得する
		set targFile to (first item of aSel of spd) as alias
		set EXT to name extension of (info for targFile)
		
		tell application "Finder"
			set ParentFol to folder of targFile
			set ParentFol to ParentFol as alias
		end tell
		set parentalFolStr to ParentFol as string
		set parentalFolStr to parentalFolStr as Unicode text
		
		
		--選択中のファイルの連番最小値、最大値を取得する
		repeat with i in aSel of spd
			set j to contents of i
			set jj to j as alias
			
			tell application "Finder"
				set aName to name of jj
			end tell
			
			set the end of nameList of spd to (text 1 thru 4 of aName)
			set the end of aList of spd to jj
			
		end repeat
		
		set aMin to minimumFromList(nameList of spd) of me
		set aMax to maximumFromList(nameList of spd) of me
		
		repeat with i from aMin to aMax by 1
			set tmpPath to parentalFolStr & retZeroPaddingText(i, 4) of me & "." & EXT
			tell application "Finder"
				set exRes to exists of file tmpPath
			end tell
			
			if exRes = false then
				set the end of dameList of spd to i
			end if
			
		end repeat
		
		
		dameList of spd
		set newdameList to {}
		if (dameList of spd) = {} then
			activate
			display dialog "連番抜けはありませんでした。"
		else
			repeat with damefile in (dameList of spd)
				set the end of newdameList to (damefile as Unicode text) & "、"
			end repeat
			activate
			display dialog (newdameList) as Unicode text
			set the clipboard to (newdameList) as Unicode text
		end if
	on error errMsg
		activate
		display dialog errMsg
	end try
end run

--最大値を取得する
on maximumFromList(nList)
	script o
		property nl : nList
	end script
	
	set max to item 1 of o's nl
	repeat with i from 2 to (count nList)
		set n to item i of o's nl
		if n > max then set max to n
	end repeat
	return max
	
end maximumFromList


--最小値を取得する
on minimumFromList(nList)
	script o
		property nl : nList
	end script
	
	set min to item 1 of o's nl
	repeat with i from 2 to (count nList)
		set n to item i of o's nl
		if n < min then set min to n
	end repeat
	return min
	
end minimumFromList


--数値にゼロパディングしたテキストを返す
on retZeroPaddingText(aNum, aLen)
	set tText to ("0000000000" & aNum as text)
	set tCount to length of tText
	set resText to text (tCount - aLen + 1) thru tCount of tText
	return resText
end retZeroPaddingText

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

on run {input, parameters}

try

script spd

property aList : {}

property nameList : {}

property aSel : {}

property dameList : {}

end script

--変数の初期化

set aList of spd to {}

set nameList of spd to {}

set aSel of spd to {}

set dameList of spd to {}

try

tell application "Finder"

set aSel of spd to input as alias list

end tell

on error

return

end try

set aLen to length of aSel of spd

--選択中ファイルの親フォルダを取得する

set targFile to (first item of aSel of spd) as alias

set EXT to name extension of (info for targFile)

tell application "Finder"

set ParentFol to folder of targFile

set ParentFol to ParentFol as alias

end tell

set parentalFolStr to ParentFol as string

set parentalFolStr to parentalFolStr as Unicode text

--選択中のファイルの連番最小値、最大値を取得する

repeat with i in aSel of spd

set j to contents of i

set jj to j as alias

tell application "Finder"

set aName to name of jj

end tell

set the end of nameList of spd to (text 1 thru 4 of aName)

set the end of aList of spd to jj

end repeat

set aMin to minimumFromList(nameList of spd) of me

set aMax to maximumFromList(nameList of spd) of me

repeat with i from aMin to aMax by 1

set tmpPath to parentalFolStr & retZeroPaddingText(i, 4) of me & "." & EXT

tell application "Finder"

set exRes to exists of file tmpPath

end tell

if exRes = false then

set the end of dameList of spd to i

end if

end repeat

dameList of spd

set newdameList to {}

if (dameList of spd) = {} then

activate

display dialog "連番抜けはありませんでした。"

else

repeat with damefile in (dameList of spd)

set the end of newdameList to (damefile as Unicode text) & "、"

end repeat

activate

display dialog (newdameList) as Unicode text

set the clipboard to (newdameList) as Unicode text

end if

on error errMsg

activate

display dialog errMsg

end try

end run

--最大値を取得する

on maximumFromList(nList)

script o

property nl : nList

end script

set max to item 1 of o's nl

repeat with i from 2 to (count nList)

set n to item i of o's nl

if n > max then set max to n

end repeat

return max

end maximumFromList

--最小値を取得する

on minimumFromList(nList)

script o

property nl : nList

end script

set min to item 1 of o's nl

repeat with i from 2 to (count nList)

set n to item i of o's nl

if n < min then set min to n

end repeat

return min

end minimumFromList

--数値にゼロパディングしたテキストを返す

on retZeroPaddingText(aNum, aLen)

set tText to ("0000000000" & aNum as text)

set tCount to length of tText

set resText to text (tCount - aLen + 1) thru tCount of tText

return resText

end retZeroPaddingText

【使い方】

チェックしたいファイルを選択して、右クリック。

作成したサービスを選択すると、

結果がダイアログ表示されます。

参考情報

AS Hole（AppleScriptの穴） By Piyomaru Software