Automator/AppleScript在同一目錄中查找具有不同擴展名的相同文件名

Question

我想創建一個automator操作來幫助管理DNG/XMP文件。我希望能夠將DNG（或多個）拖動到將把DNG和匹配的XMP文件發送到垃圾桶的操作上。除擴展名外，這些文件具有相同的名稱，它們位於相同的目錄中。例如，IMGP1361.DNG和IMGP1361.xmp

這對於shell腳本來說是一個簡單的任務，但是有沒有Automator的方法來完成它（學習更多關於Automator的知識）？有沒有辦法獲得輸入查找程序項目的文件名，將其更改爲變量並將其用作另一個操作的輸入？

謝謝。

Answer 1

好的，明白了。您可以使用下面給出的的Automator工作流內像這樣的AppleScript：

每選擇文件中查找，如果它的擴展名是ext_list，它會被移動到回收站，等等將在同一文件夾中具有相同名稱的所有其他文件的擴展名是also_these_extensions中的那些文件。

它可能是有用的，例如，也用於清洗輔助LaTeX文件的文件夾：只需將"tex"分成ext_list和所有其他分機（如"aux", "dvi", "log"）分成also_these_extensions。

所選文件不需要位於同一文件夾內;您也可以在Spotlight搜索結果窗口中選擇多個項目。

on run {input, parameters} 
    -- for every item having one of these extensions: 
    set ext_list to {"dng"} 
    -- also process items with same name but these extensions: 
    set other_ext_list to {"xmp"} 

    tell application "Finder" 
     set the_delete_list to {} 
     set delete_list to a reference to the_delete_list 
     -- populate list of items to delete 
     repeat with the_item in input 
      set the_item to (the_item as alias) 
      if name extension of the_item is in ext_list then 
       copy the_item to the end of delete_list 
       set parent_folder to (container of the_item) as alias as text 
       set item_name to text 1 thru ((length of (the_item's name as text)) - (length of (the_item's name extension as text))) of (the_item's name as text) 
       repeat with ext in other_ext_list 
        try 
         copy ((parent_folder & item_name & ext) as alias) to the end of delete_list 
        end try 
       end repeat 
      end if 
     end repeat 
     -- delete the items, show info dialog 
     move the_delete_list to the trash 
     display dialog "Moved " & (length of the_delete_list) & " files to the Trash." buttons {"OK"} 
    end tell 
end run 

Answer 2

Automator的此腳本將刪除所有共享相同前綴並且其擴展名在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