尝试移动榛色文件时出现Applescript错误

Question

因此，我有一个applescript（波纹管），用于清理电视节目的名称，并将该节目移至其正确的文件夹。我使用淡褐色激活与正确的文件的脚本。在苹果脚本编辑器中，脚本似乎很好，但Hazel在第12行给了我一个错误。下面是脚本：

set theSample to theFile 
set a to RemoveListFromString(theSample, {"720p", "HDTV", "x264", "IMMERSE", "-", "E01"}) 
set b to RemoveListFromString(a, {"..."}) 
set c to RemoveListFromString(b, {".."}) 
set d to replaceString(c, "S0", "Season ") 
set e to replaceString(d, ".", " ") 
if e contains "Season" then 
    move theFile to "/Volumes/LaCie/Midia/Series/" & e 
end if 
if e does not contain "Season" then 
    move theFile to "/Volumes/LaCie/Midia/Filmes" 
end if 
on RemoveFromString(theText, CharOrString) 
    -- ljr (http://applescript.bratis-lover.net/library/string/) 
    local ASTID, theText, CharOrString, lst 
    set ASTID to AppleScript's text item delimiters 
    try 
     considering case 
      if theText does not contain CharOrString then ¬ 
       return theText 
      set AppleScript's text item delimiters to CharOrString 
      set lst to theText's text items 
     end considering 
     set AppleScript's text item delimiters to ASTID 
     return lst as text 
    on error eMsg number eNum 
     set AppleScript's text item delimiters to ASTID 
     error "Can't RemoveFromString: " & eMsg number eNum 
    end try 
end RemoveFromString 

on RemoveListFromString(theText, listOfCharsOrStrings) 
    -- ljr (http://applescript.bratis-lover.net/library/string/) 
    local ASTID, theText, CharOrString, lst 
    try 
     script k 
      property l : listOfCharsOrStrings 
     end script 
     set len to count k's l 
     repeat with i from 1 to len 
      set cur_ to k's l's item i 
      set theText to my RemoveFromString(theText, cur_) 
     end repeat 
     return theText 
    on error eMsg number eNum 
     error "Can't RemoveListFromString: " & eMsg number eNum 
    end try 
end RemoveListFromString 

-- e.g. replaceString("Hello hello", "hello", "Bye") --> "Hello Bye" 

on replaceString(theText, oldString, newString) 
    -- ljr (http://applescript.bratis-lover.net/library/string/) 
    local ASTID, theText, oldString, newString, lst 
    set ASTID to AppleScript's text item delimiters 
    try 
     considering case 
      set AppleScript's text item delimiters to oldString 
      set lst to every text item of theText 
      set AppleScript's text item delimiters to newString 
      set theText to lst as string 
     end considering 
     set AppleScript's text item delimiters to ASTID 
     return theText 
    on error eMsg number eNum 
     set AppleScript's text item delimiters to ASTID 
     error "Can't replaceString: " & eMsg number eNum 
    end try 
end replaceString 

任何想法？ 谢谢！

编辑：

所以，现在我得到这样的：

on hazelProcessFile(theFile) 
set text item delimiters to ":" 
set filename to last text item of (theFile as text) 
set text item delimiters to "." 
if filename contains "." then 
    set base to text items 1 thru -2 of filename as text 
    set extension to "." & text item -1 of filename 
else 
    set base to filename 
    set extension to "" 
end if 
set text item delimiters to {"720p", "HDTV", "x264", "IMMERSE", "-", "E01", "…", "E02", "EVOLVE"} 
set ti to text items of base 
set text item delimiters to "" 
set newbase to ti as text 
set newbase to Replace(newbase, "S0", "Season ") 
set newbase to Replace(newbase, ".", " ") 
set newbase to Replace(newbase, " ", "") 
set newbase to Replace(newbase, " ", "") 
set folderLocation to "/Volumes/LaCie/Midia/Series/" 
set folderName to newbase as text 
tell application "Finder" 
    if newbase contains "Season" then 
     if not (exists folder (POSIX file "/Volumes/LaCie/Midia/Series/" & newbase as text)) then 
      set p to path to "/Volumes/LaCie/Midia/Series/" 
      --make new folder at p with properties {name:newbase} 
      make new folder with properties {name:folderName, location:p} 
     else 
      move theFile to POSIX file "/Volumes/LaCie/Midia/Series/" & newbase as text 
      set name of result to newbase 
     end if 
    else 
     move theFile to POSIX file "/Volumes/LaCie/Midia/Filmes/" 
    end if 
end tell 
end hazelProcessFile 

on Replace(input, x, y) 
    set text item delimiters to x 
    set ti to text items of input 
    set text item delimiters to y 
    ti as text 
end Replace 

即不工作是部分至极只有一部分使该文件夹，如果犯规存在，它...任何想法？

Answer 1

这将是更容易使用shell脚本，但尝试这样的事：

on hazelProcessFile(theFile) 
    set text item delimiters to ":" 
    set filename to last text item of (theFile as text) 
    set text item delimiters to "." 
    if filename contains "." then 
     set base to text items 1 thru -2 of filename as text 
     set extension to "." & text item -1 of filename 
    else 
     set base to filename 
     set extension to "" 
    end if 
    set text item delimiters to {"720p", "HDTV", "x264", "IMMERSE", "-", "E01", "..."} 
    set ti to text items of base 
    set text item delimiters to "" 
    set newbase to ti as text 
    set newbase to replace(newbase, "S0", "Season ") 
    set newbase to replace(newbase, ".", " ") & extension 
    tell application "Finder" 
     if newbase contains "Season" then 
      move theFile to POSIX file "/Volumes/LaCie/Midia/Series/" 
      set name of result to newbase 
     else 
      move theFile to POSIX file "/Volumes/LaCie/Midia/Filmes/" 
     end if 
    end tell 
end hazelProcessFile 

on replace(input, x, y) 
    set text item delimiters to x 
    set ti to text items of input 
    set text item delimiters to y 
    ti as text 
end replace 

• 嵌入的脚本不能包含处理器
• 外部脚本已使用hazelProcessFile
• theFile是一个别名，所以你必须强制它到文本
• 你必须告诉Finder移动文件并将路径转换为文件对象POSIX file
• Restoring text item delimiters is not necessary据我所知

编辑：这里是一个shell脚本版本：

basename=${1##*/} 
base=${basename%.*} 
[[ $basename = *.* ]] && ext=".${basename##*.}" || ext= 
for x in 720p HDTV x264 IMMERSE - E01 ...; do base=${base//"$x"}; done 
base=${base//S0/Season} 
base=${base//./ } 
if [[ $base = *Season* ]]; then 
    mv "$1" "/Volumes/LaCie/Midia/Series/$base$ext" 
else 
    mv "$1" /Volumes/LaCie/Midia/Movies/ 
fi 

编辑2：这将例如移动here.comes.honey.boo.boo.s01e04.720p-killers.mkv到名为Here Comes Honey Boo Boo Season 1的文件夹：

d=${1##*/} 
if [[ $d =~ [Ss][0-9][0-9][Ee][0-9][0-9] ]]; then 
    d=$(sed -E 's/[ .][Ss]([0-9][0-9])[Ee][0-9][0-9].*/ Season \1/;s/ Season 0/ Season /;s/\./ /g' <<< "$d") 
    d=$(ruby -r rubygems -e 'require "titlecase"; puts ARGV[0].titlecase' "$d") 
    target="/Volumes/LaCie/Midia/Series/$d" 
    mkdir -p "$target" 
    mv "$1" "$target" 
else 
    mv "$1" "/Volumes/LaCie/Midia/Movies" 
fi 

标题宝石可以与sudo gem install titlecase一起安装。