0

おそらく単純なエラーを起こしているのですが、コードを正しく動作させることができないようです。このサイトの天才に助けを求めたいと思います。私は初心者のスクリプターで、コードピースのようなものです。初投稿です、お手柔らかにお願いします。

私がやろうとしていること... 画像でいっぱいのフォルダー (およびサブフォルダー) があります。このフォルダーをこのドロップレットにドラッグして、その画像の解像度とパスのテキストファイルレポートを取得できるAppleScriptドロップレットが必要です。このようにして、最終ベンダーに送信する前に、ファイルがすべて同じで正しい解像度であることを確認できます。ファイルの解像度が正しくない場合は、ファイルを調整する必要があるパスがあります。個々のファイルを処理できるドロップレットを作成できましたが、画像のフォルダーとサブフォルダーをドラッグすると、空白のテキスト ドキュメントが表示されます。

これは、ファイルのテキスト ファイルで最初の結果がどのように見えるかです。

72.0 dpi /Users/chewbacca/Desktop/untitled folder/pixels-300x232 copy 2.png
72.0 dpi /Users/chewbacca/Desktop/untitled folder/pixels-300x232 copy 3.png
72.0 dpi /Users/chewbacca/Desktop/untitled folder/ピクセル-300x232 コピー 4.png

フォルダー/サブフォルダーのドロップレットを機能させるための私の試みは次のとおりです。

on open (rawList)

set outFile to (choose file name with prompt "Output file:" default name "ResolutionReport.txt")
open for access outFile with write permission

set fileList to every file of rawList
repeat with i from 1 to number of items in fileList

    tell application "Image Events"
        launch
        set thisImage to open file (oneFile as string)
        copy the resolution of thisImage to {H_res, V_res}
        close thisImage
    end tell

    write (H_res as string) & " dpi " & (POSIX path of oneFile) & return to outFile
end repeat
close access outFile

end open

これは perl の方が簡単かもしれませんが、この言語がどのように使用されるかを理解し始めているので、今のところこの純粋な Applescript を保持したいと思います。

4

2 に答える 2