AppleScript | 雑スクリプト

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

オートメーターを使用して、ディスクを速く焼く方法。

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

【作成方法】

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

Automator　＞　ユーティリティ　＞　ディスク作成をダブルクリック。

AppleScriptを実行をダブルクリック。

AppleScriptは終了音を鳴らすだけのもの。

音が必要なければ無くてもOK。

ディスクを作成の項目では、

「□書き込まれたデータを検証」にチェックを入れません。

ここにチェックを入れると焼くのに時間が掛かってしまいます。

「ディスク作成」などの適当な名前で保存してアプリケーションが完成。

▼AppleScriptコード

BeepVolume3() of me
on BeepVolume3()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 2 --beep音量　数値：0-7まで
	beep 1
	delay 0.3
	beep 1
	delay 0.3
	beep 1
	set volume myVol
	--say "メディアが焼けました。" using "Kyoko"
end BeepVolume3

BeepVolume3() of me

on BeepVolume3()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 2 --beep音量　数値：0-7まで

beep 1

delay 0.3

beep 1

delay 0.3

beep 1

set volume myVol

--say "メディアが焼けました。" using "Kyoko"

end BeepVolume3

【使い方】

作成した「ディスク作成」アプリケーションに、

ファイルやフォルダーをドラッグ＆ドロップすれば、

ディスクが作成できます。

個人的には、データの検証を行っても、

書き込みに失敗しているケースがあったので、

データの検証はスルーして、

焼けたデータを1つ、2つ開いてチェックした方がいいと思います。

OS Xの「サービス」を使用して、フォルダーの中からPDFのみ収集。

2015年8月30日 tetsu AppleScript, Automator, OS X

【作成方法】

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

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

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

「PDF収集」などの適当な名前で保存。

▼AppleScriptコード

on run {input, parameters}
	set copyList to {}
	
	tell application "Finder"
		activate
		set result1 to display dialog "拡張子を入力してください。" default answer "pdf"
		set myExt to text returned of result1
		try
			repeat with ifol in input
				set aList to every file of ifol as alias list
				repeat with ifile in aList
					if (name extension of (info for ifile)) = myExt then
						set the end of copyList to ifile
					end if
				end repeat
			end repeat
		end try
		
		if (count copyList) > 0 then
			set i1 to item 1 of copyList
			set oya to parent of parent of i1
			
			try
				set makeFol to ((oya as string) & " " & myExt & "収集")
				if exists folder makeFol then
					set FolNum to 1
					repeat until not (exists folder (makeFol & FolNum))
						set FolNum to FolNum + 1
					end repeat
					set copyFol to make new folder at oya with properties {name:" " & myExt & "収集" & FolNum}
				else
					set copyFol to make new folder at oya with properties {name:" " & myExt & "収集"}
				end if
				
				activate
				reveal copyFol
			end try
			
			set folCount to (count input)
			set PDFCount to (count copyList)
			try
				duplicate copyList to copyFol --ファイル名が重複している場合の処理はしていません。
			end try
			
			BeepVolume2() of me --終了時に音を鳴らす。
			display alert myExt & "ファイルの収集は終了しました。" & return & return & "フォルダー数：" & folCount & return & myExt & "ファイル数：" & PDFCount
		else
			BeepVolume2() of me --終了時に音を鳴らす。
			display alert myExt & "ファイルは入っていませんでした。"
		end if
	end tell
	return input
end run

on BeepVolume2()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 1 --beep音量　数値：0-7まで
	beep 1
	delay 0.3
	beep 1
	set volume myVol
	--say "終了しました" using "Kyoko"
end BeepVolume2

on run {input, parameters}

set copyList to {}

tell application "Finder"

activate

set result1 to display dialog "拡張子を入力してください。" default answer "pdf"

set myExt to text returned of result1

try

repeat with ifol in input

set aList to every file of ifol as alias list

repeat with ifile in aList

if (name extension of (info for ifile)) = myExt then

set the end of copyList to ifile

end if

end repeat

end try

if (count copyList) > 0 then

set i1 to item 1 of copyList

set oya to parent of parent of i1

try

set makeFol to ((oya as string) & " " & myExt & "収集")

if exists folder makeFol then

set FolNum to 1

repeat until not (exists folder (makeFol & FolNum))

set FolNum to FolNum + 1

end repeat

set copyFol to make new folder at oya with properties {name:" " & myExt & "収集" & FolNum}

else

set copyFol to make new folder at oya with properties {name:" " & myExt & "収集"}

end if

activate

reveal copyFol

end try

set folCount to (count input)

set PDFCount to (count copyList)

try

duplicate copyList to copyFol --ファイル名が重複している場合の処理はしていません。

end try

BeepVolume2() of me --終了時に音を鳴らす。

display alert myExt & "ファイルの収集は終了しました。" & return & return & "フォルダー数：" & folCount & return & myExt & "ファイル数：" & PDFCount

else

BeepVolume2() of me --終了時に音を鳴らす。

display alert myExt & "ファイルは入っていませんでした。"

end if

end tell

return input

end run

on BeepVolume2()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 1 --beep音量　数値：0-7まで

beep 1

delay 0.3

beep 1

set volume myVol

--say "終了しました" using "Kyoko"

end BeepVolume2

【使い方】

フォルダーを選択して、右クリック。

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

PDF以外にも収集したいファイルの拡張子が入力できます。

入力すると選択したフォルダーと同階層にファイルが収集されます。

【作成したサービスが表示されない場合】

Option + Command + Esc でFinder再起動を試してください。

（ファイルコピー中は禁止、コピーが止ってしまいます。）

アプリケーションの強制終了が表示されたら、

Finderを選択して、「再度開く」ボタンをクリック。