[0]ファイルの縦横サイズ付きでリネーム

順番に記事を読む場合はこちら[LINK]からどうぞ


 

WEBの仕事なんかしていると
画像データの縦横サイズが結構必要な場面が多い
そこで
ファイル名に画像の縦横サイズを入れておけば
ファイル名を見れば良いわけです。

■ドロップレット形式で考えます。

【1】ドロップ
【2】繰り返しの始まり
【3】メインになるファイル名の定義
【4】ドロップOBJをリストにして
【5】パス
【6】ファイル名
【7】拡張子
【8】ディレクトリのパスを取得
【9】縦横サイズを取得
【10】縦横サイズから『.0』を取る
【11】縦x横＿ファイル名.拡張子にファイル名を定義
【12】ファイル名をリネームする
【13】繰り返しの終わり

となります。
後はエラー制御を考えておきます。
考えられるエラーは
■ダブルクリックして開けた場合
■画像以外のファイルがドロップされた場合
■リネーム後のファイル名が同名になる
ぐらいで良いでしょうか？
流れとしては

ファイル名の変更部分だけですが
このような流れになります。
続く

[LINK]

[1]ファイルの縦横サイズ付きでリネーム

【1】ドロップの始まり

ドロップレット形式ですので
ドロップ＝オープンです。

on open DropObj ここにスクリプト end open

これで『DropObj』って名前に
ドロップされてファイルがリストとして格納されます

[2]ファイルの縦横サイズ付きでリネーム

【2】繰り返しの始まり

ドロップされたオブジェクト（ファイル一覧）を
ひとつずつ処理していきます。

繰り返しです。

on open DropObj repeat with ObjFiles in DropObj ここにスクリプト end repeat end open

ドロップされた『open DropObj』を
『repeat』繰り返します。
『with ObjFiles in DropObj』
『DropObj』に格納されたリストを
ひとつずつ『ObjFiles』として処理します。

って感じかな

[3]ファイルの縦横サイズ付きでリネーム

【3】メインになるファイル名の定義

display dialog を使います。
用語解説の『StandardAdditions』にあります

選択種は
[1]ただリネームする。
[2]今日の日付を付ける
[3]キャンセル


buttons {"Rename", "RenameDate","Cancel"} default button 1

で良いでしょう

display dialog "変更後のファイル名を入力" default answer "" buttons {"Rename", "RenameDate","Cancel"} with icon 1 default button 1

でもこれだけではダメですね。
ボタンを押した結果を取得しましょう

button returned of the result
です。
リザルト（結果）を取得出来ます。

日本語にすると

もし"RenameDate"なら結果コードとして2を設定
もし"Rename"なら結果コードとして1を設定
そして答えanswerを『MainFileName』として格納する。
キャンセルなら終了する。
って感じですね。

if button returned of the result is "RenameDate" then set MainFileName to text returned of the result as Unicode text set the NameSelect to "2" as Unicode text else if button returned of the result is "Rename" then set MainFileName to text returned of the result as Unicode text set the NameSelect to "1" as Unicode text end if

となります。
これでファイル名の基本的な所は決まりました。


ここまでをテキストで見ると

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

では今の所をまとめると
DropObj ドロップされたオブジェクト（リスト）
ObjFiles リストされたDropObjのひとつずつ

NameSelect ダイアログの結果で1か2のどちらか
MainFileName ダイアログの結果（テキスト）

[4]ファイルの縦横サイズ付きでリネーム

【4】ドロップOBJのリストから
【5】パス
【6】ファイル名
【7】拡張子
を取得しましょう。


【5】パス
■theAliasNameとして『エリアス』としての名前を格納して
set theAliasName to ObjFiles as alias
■その『theAliasName』をテキスト形式に変換
set theAliasPassName to theAliasName as Unicode text

■これは番外ですがUNIXパス形式のテキストとしてパスを格納
set thePosixPass to POSIX path of ObjFiles as Unicode text


【6】ファイル名
■theFileNameとしてファイル名をテキストとして格納
set theFileName to name of ObjFiles as Unicode text


【7】拡張子
■theExeName拡張子をテキストとして格納
set theExeName to name extension of ObjFiles as Unicode text

on open DropObj repeat with ObjFiles in DropObj tell application "Finder" display dialog "変更後のファイル名を入力" default answer "" buttons {"Rename", "RenameDate","Cancel"} with icon 1 default button 1 if button returned of the result is "RenameDate" then set MainFileName to text returned of the result as Unicode text set the NameSelect to "2" as Unicode text else if button returned of the result is "Rename" then set MainFileName to text returned of the result as Unicode text set the NameSelect to "1" as Unicode text end if set theAliasName to ObjFiles as alias set theAliasPassName to theAliasName as Unicode text set theFileName to name of ObjFiles as Unicode text set theExeName to name extension of ObjFiles as Unicode text end tell end repeat end open

でここまでが

「Obj.txt」をダウンロードこちら

解説入りは

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

【10】縦横サイズから『.0』を取る

主要な画像データは"Image Events"を使えば
縦横サイズを取得出来ます。

主要なスクリプトは

tell application "Image Events" launch set ImgObj to open ImgFile set {GetImgWidth, GetImgHeight} to dimensions of ImgObj close ImgObj end tell

このロジックで取得したイメージのサイズは
XXXX.Xpx形式で
小数点以下１位の値（といっても必ず0なんですが）
を含んでいますので
取得した値から『.0』を取り除かなくてはいけません
そこで、文字を置き換えます。

set ReplaceName to ".0" as Unicode text set ImgHeight to my ReplaceText((GetImgHeight as Unicode text), ReplaceName, "") as Unicode text set ImgWidth to my ReplaceText((GetImgWidth as Unicode text), ReplaceName, "") as Unicode text to ReplaceText(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 ReplaceText

これで
例えばGetImgHeightの帰り値が360.0な場合
360
にする事が出来ます。

ImageEventsの主要部のサンプルをテキストで見る

0を置き換えるをテキストで見る

【13】繰り返しの終わり

完成品はこちら

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

このファイルはCC0を選択しています。


CC0についてはこちらを読んでみてください。

アップルスクリプト　エディタを開いて
新規書類を作り

上のテキストをコピーペースとして
「493x337_rename_02.png」をダウンロード

別名で保存

アプリケーションで保存して使ってください。