OS X | 雑スクリプト

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を選択して、「再度開く」ボタンをクリック。

文章中の漢字を平仮名に変換する。

2015年8月24日 tetsu OS X, Other

グーグル日本語入力を使用している状態で、

テキストエディットなどで漢字を含む文章を選択して、

「かな」キーを2回押して、「Control」＋「H」を押すと…

たまたま見つけた機能です。

他にも隠し機能があるのかも知れません。

【追加情報】

「かな」キーを2回押して、「esc」キーを押しても変換できます。

こちらは、ことえり(標準)、グーグル日本語入力、どちらも可能です。

たぶん…

▼参考情報

Japanese Input Method: 日本語入力ソース変換用のキーボードショートカット

OS Xの「サービス」を使用して、選択アイテムをリスト表示。

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

【作成方法】

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

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

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

「選択アイテムのリスト表示」など適当な名前で保存。

▼AppleScriptコード

on run {input, parameters}

set nameList to {}

repeat with dorpFile in input

set fileName to name of (info for dorpFile)

set the end of nameList to "
" & fileName

end repeat

tell application "TextEdit"

make new document

set name of front window to "選択アイテムリスト"

set text of front document to nameList as Unicode text

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

activate

end tell

--return input

end run

on run {input, parameters}

set nameList to {}

repeat with dorpFile in input

set fileName to name of (info for dorpFile)

set the end of nameList to "

" & fileName

end repeat

tell application "TextEdit"

make new document

set name of front window to "選択アイテムリスト"

set text of front document to nameList as Unicode text

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

activate

end tell

--return input

end run

【使い方】

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

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

テキストエディットでリスト表示されます。

【追加情報】

フリーソフトの「XtraFinder」でも同様のことが出来ました。

クリップボードへのコピーのみですが、いろいろ種類があります。

【追加情報2】

単純にフォルダーやファイルを選択した状態で

編集　＞　コピー

または　Command + C

次に、テキストエディットを開いて、

フォーマット　＞　標準テキストにする

の状態でペーストすると

コピーしたものがリスト表示されます。

また、テキストエディットで、

標準テキストにしていますが、

下のスクリプトやアプリを使用すれば、

直接、標準テキスト化できます。

参考までに。

Strip Styles of Text

鳶嶋工房 / AppleScript / Tips / スタイル付きテキスト

参考情報

16. コンテクストメニューの表示数を変更する

フォルダ内のサブフォルダを巡りファイル一覧をパス付きで取得する Automator のワークフロー

▼AppleScript（コンテクストメニューの表示数を変更するアップルスクリプト）

ユーティリティ　＞　AppleScript エディタに下記のコードを入力して、実行ボタンをクリック。

--ファイルコピー中は実行しない。
try
	do shell script "defaults write -g NSServicesMinimumItemCountForContextSubmenu -int 20"
end try
delay 1
try
	do shell script "killall Finder"
end try

--ファイルコピー中は実行しない。

try

do shell script "defaults write -g NSServicesMinimumItemCountForContextSubmenu -int 20"

end try

delay 1

try

do shell script "killall Finder"

end try

One comment

« 1 … 8 9 10