ファイル名をリネームするAppleScript

ファイル名をリネームするAppleScript

ファイル名＋連番＋日付な形式にリネームする。
各パーツ間は『＿』アンダースコアでつなぐ

on run tell application "Finder" beep display alert "ドロップレット形式です。 ファイルをドラッグ＆ドロップしてください。" as informational return end tell end run -------------------------------------------------処理の開始 on open DropObj tell application "Finder" activate -------------------------------------------------念のために各種変数をリセットする set the button_pressed to "" set the File_count to 0 set the Fcount to "" set the exeName to "" set newexeName to "" set nowTime to my DateAndTIme(current date) -------------------------------------------------ファイル名を入力するダイアログを表示 display dialog "ファイル名の頭に来る文字を入力　" default answer "" buttons {"Rename", "Cancel"} with icon 1 default button 1 with title "ファイル名を入力" cancel button "Cancel" -------------------------------------------------リネームファイルを取得 set MainFileName to text returned of the result as Unicode text -------------------------------------------------ファイルの数だけ繰り返し repeat with ObjFiles in DropObj tell application "Finder" --------------------------------------------------ファイル名を取得 set theName to name of ObjFiles ------------------------------------------------パスを取得 set theAlias to ObjFiles as alias ------------------------------------------------パスを文字列に変換 set theAliasPath to theAlias as string ------------------------------------------------拡張子を判定 set exeName to name extension of ObjFiles --------------------------------------------------拡張子を小文字に変更文字 --------------------------------------------------macwiki.sourceforge.jpより引用 repeat with aChar in every character of exeName set asNum to ASCII number aChar if (asNum > 64) and (asNum < 91) then set aChar to ASCII character (asNum + 32) -- tr/A-Z/a-z/ -- if (asNum > 96) and (asNum < 123) then set aChar to ASCII character (asNum - 32) -- tr/a-z/A-Z/ set newexeName to newexeName & aChar end repeat --------------------------------------------------連番に１を加算 set File_count to File_count + 1 --------------------------------------------------10以下の数字は01　02　形式に変換 set Fcount to my zero1(File_count) --------------------------------------------------新しいファイル名を定義 if MainFileName is "" then --------------------------------------------------ダイアログの結果が空だったらファイル名はそのままにする set MainFileName to my replace(theName, "." & exeName, "") set the new_file_name to the (the MainFileName & "_" & the Fcount & "_" & the nowTime & "." & newexeName) as Unicode text set MainFileName to "" else --------------------------------------------------ダイアログの結果をファイル名にする set the new_file_name to the (the MainFileName & "_" & the Fcount & "_" & the nowTime & "." & newexeName) as Unicode text end if -------------------------------------------------フルパスからファイル名を抜いてディレクトリ名を作る set DirName to my replace(theAliasPath, theName, "") -------------------------------------------------ファイル名を変更 set name of file theName of folder DirName to new_file_name -------------------------------------------------拡張子の名前をリセット set the exeName to "" -------------------------------------------------拡張子の名前をリセット set newexeName to "" end tell end repeat end tell end open --------------------------------------------------#サブルーチン to DateAndTIme(theDate) set y to (year of theDate) set m to my monthNumStr(month of theDate) set d to day of theDate set hms to time of theDate set hh to h of sec2hms(hms) set mm to m of sec2hms(hms) set ss to s of sec2hms(hms) return (y as text) & my zero1(m) & my zero1(d) end DateAndTIme --------------------------------------------------#サブルーチン to monthNumStr(theMonth) set monList to {January, February, March, April, May, June, July, August, September, October, November, December} repeat with i from 1 to 12 if item i of monList is theMonth then exit repeat end repeat return i end monthNumStr --------------------------------------------------#サブルーチン to zero1(n) if n < 10 then return "0" & n else return n as text end if end zero1 --------------------------------------------------#サブルーチン to replace(theText, orgStr, newStr) set oldDelim to AppleScript's text item delimiters set AppleScript's text item delimiters to orgStr set tmpList to every text item of theText set AppleScript's text item delimiters to newStr set tmpStr to tmpList as text set AppleScript's text item delimiters to oldDelim return tmpStr end replace --------------------------------------------------#サブルーチン to sec2hms(sec) set ret to {h:0, m:0, s:0} set h of ret to sec div hours set m of ret to (sec - (h of ret) * hours) div minutes set s of ret to sec mod minutes return ret end sec2hms

「Rename_No_Date.txt」をダウンロード

「Rename_No_Date.app.zip」をダウンロード