同じディレクトリに同じ拡張子を持つ同じファイル名を見つけるAutomator/AppleScript

Question

DNG/XMPファイルを管理するのに役立つ自動化アクションを作成したいと思います。私はDNG（または複数）をDNGと一致するXMPファイルをゴミ箱に送るアクションにDNGをドラッグできるようにしたいと思います。ファイルは拡張子を除いて同じ名前を持ち、同じディレクトリにあります。例えば、IMGP1361.DNGとIMGP1361.xmp

これはシェルスクリプトにとっては簡単な作業ですが、それを行うAutomatorの方法があります（Automatorの詳細はこちら）。入力ファインダ項目のファイル名を取得し、変数で変更し、それを別のアクションの入力として使用する方法はありますか？

ありがとうございました。

Answer 1

よろしくお願いします。あなたはこのようなAutomatorのワークフロー内で下記のAppleScriptを使用することができます。

ファインダー内のすべての選択たファイルについて、その拡張子がext_listであれば、それは、ゴミ箱に移動されますので、拡張子がalso_these_extensionsのものと同じフォルダ内にある、同じ名前の他のすべてのファイルが表示されます。

などです。補助LaTeXファイルがあるフォルダをクリーニングする場合："tex"をext_listに、他のすべての拡張子（"aux", "dvi", "log"など）をalso_these_extensionsに入力するだけです。

選択したファイルは同じフォルダ内にある必要はありません。 Spotlightの検索結果ウィンドウで複数の項目を選択することもできます。

Answer 2

このスクリプトは、同じプレフィックスを共有し、grepコマンドに名前拡張子がリストされているすべてのファイルを削除します。追加の拡張機能を追加することもできます。 （XMP | DNG | PDF | xlsファイル）

on run {input, parameters} 
try 
    repeat with anItem in input 
     tell (info for anItem) to set {theName, theExt} to {name, name extension} 
     set shortName to text 1 thru ((get offset of "." & theExt in theName) - 1) of theName 
     tell application "Finder" 
      set parentFolder to parent of anItem as alias 
      set matchList to every paragraph of (do shell script "ls " & POSIX path of parentFolder & " | grep -E '" & shortName & ".(xmp|DNG)'") 
      delete (every file of parentFolder whose name is in matchList) 
     end tell 
    end repeat 
end try 
end run