Twitter の画像の後ろについている"-large"を削除するAppleScriptを作った

前からあの "-large" が邪魔だと思ってました。

on open dorp_Items
	tell application "Finder"
		repeat with obj in dorp_Items
			set filenameOrigine to name of obj as string
			set filenameLength to (count of filenameOrigine)
			set startpos to filenameLength - 5
			set tail to text startpos thru filenameLength of filenameOrigine
			-- ファイル名の末尾に -large が含まれている場合は削除する
			-- delete "-large" when exist in the end of filename
			if tail = "-large" then
				set endpos to filenameLength - 6
				set filenameNew to text 1 thru endpos of filenameOrigine
				set name of obj to filenameNew
			end if
		end repeat
	end tell
end open

動かし方は
http://d.hatena.ne.jp/seika_m/20140713
と同じで、囲みの中を変えるだけです。