【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を置き換えるをテキストで見る