[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:399) rename

ファイルの作成日の日付をつけます。for OS X

on open of theFiles
	tell application "Finder"
		repeat with i in theFiles
			set my_date to creation date of contents of i
			set y to (year of my_date) as Unicode text
			set m to my zero2(my monthNumStr((month of my_date)))
			set d to my zero2(day of my_date)
			set h to my sec2hour(time of my_date)
			set old_name to name of contents of i
			if old_name contains ("." as Unicode text) then
				set ext to "." & last item of my as_split("." as Unicode text, old_name)
				set ext to ""
			end if
			set file_name to (y & "." & m & ". " & d & "_" & h & ext) as Unicode text
			set name of file i to (file_name as Unicode text)
		end repeat
	end tell
end open

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 sec2hour(sec)
	set m to sec div 60
	set s to my zero2(sec mod 60)
	if m > 60 then
		set h to my zero2(sec div 3600)
		set m to my zero2((sec mod 3600) div 60)
		set h to "00"
	end if
	return h & "." & m & "." & s
end sec2hour

to zero2(n)
	if n < 10 then
		return "0" & n
		return n as text
	end if
end zero2

to as_split(thedelimit, theText)
	set oldDelim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to thedelimit
	set tmpList to every text item of theText
	set AppleScript's text item delimiters to oldDelim
	return tmpList
end as_split