[AppleScript] Finderで選択中の項目をリネーム

今日からApple Scriptの書き溜めをブログにしていこうと思います。

スクリプト書くとき、簡単なルーチンはEvernoteにメモで残してるんですが、それだとあんまり実用性が無いので。

というのも、ただコピペするだけだと、こんな感じになるから。

もう目も当てられません・・・

つーことで、「Webクリップしたソースコードならそのまま使えるだろ！」＆「Webに置いときゃ誰が見るかもね！」と思った次第。

どこまで続くか分からないし、実際スクリプト書いてる最中にチマチマとブログにメモするの？って疑問はありますが、とりあえず続けてみます！

リネーム

ほんでは、さっそく一つ。

巷で大流行のAlfred拡張で使う予定の、リネームルーチン。

連番とかはつけてないので、必要に応じて変えてください。

拡張子は保護しますが、フォルダ名がファイル名まがいな記述("エロフォルダ.jpg"とか)だとエラー。(理由分からず)

あと二重拡張子も無視。.tar.gzとか、うちのHDDに入ってない無いものは興味なし。

on rename(new_name)
	tell application "Finder"
		repeat with select_item in (selection as list)
			set file_path to select_item as text
			if file_path contains "." then --ファイルのとき
				set oldDelim to AppleScript's text item delimiters
				set AppleScript's text item delimiters to "." --二重拡張子は無視
				set item_ext to text item 2 of file_path
				set AppleScript's text item delimiters to oldDelim
				set name of select_item to new_name & "." & item_ext
				delay 0.05 --タマに重複することがある(うちだけ？)
			else --フォルダのとき
				set name of select_item to new_name
				delay 0.05 --タマに重複することがある(うちだけ？)
			end if
		end repeat
	end tell
end rename

おお、割と見れる感じに整いますね。

ただ、色が・・・(´・ω・｀) まあ、いいか。

これでEvernoteにもクリップ出来てることでしょう。(まだ未確認ですが)

こういうの、サクッとブログに上げるスクリプトも欲しいですねぇ。