AppleScript多replaceText语句合并失效问题求助

下面是满足你需求的完整AppleScript，同时解决崩溃、性能及合并替换失效的问题：

-- 获取当前选中的文本
set selectedText to ""
try
    tell application "System Events"
        set frontApp to name of first application process whose frontmost is true
    end tell
    tell application frontApp
        set selectedText to the selection as text
    end tell
on error
    display dialog "无法获取选中的文本，请确认已选中路径内容" buttons {"确定"} default button 1
    return
end try

-- 自动识别路径类型并完成双向转换
set convertedPath to ""
if selectedText starts with "/" then
    -- Mac路径转Windows共享路径：/Volumes/Share → \\server\Share
    set tempPath to replaceText(selectedText, "/Volumes/", "\\\\")
    set convertedPath to replaceText(tempPath, "/", "\\")
else if selectedText starts with "\\" or selectedText starts with "//" then
    -- Windows共享路径转Mac路径：\\server\Share → /Volumes/Share
    set tempPath to replaceText(selectedText, "\\\\", "/Volumes/")
    set convertedPath to replaceText(tempPath, "\\", "/")
else
    display dialog "无法识别路径格式，请输入标准Mac或Windows共享路径" buttons {"确定"} default button 1
    return
end if

-- 将转换后的路径复制到剪贴板
set the clipboard to convertedPath

-- 尝试在Finder中打开转换后的Mac路径
try
    if convertedPath starts with "/" then
        tell application "Finder"
            open POSIX file convertedPath
            activate
        end tell
    end if
on error errMsg
    display dialog "无法打开路径：" & errMsg buttons {"确定"} default button 1
end try

-- 通用文本替换函数（统一处理分隔符，避免冲突）
on replaceText(findText, replaceWith, sourceText)
    set AppleScript's text item delimiters to findText
    set textItems to text items of sourceText
    set AppleScript's text item delimiters to replaceWith
    return textItems as text
end replaceText

核心问题解释 #

1. 合并replaceText失效的原因
   你之前的问题多是因为未正确处理AppleScript's text item delimiters——这个参数是全局的，多次替换后若未重置，会导致后续文本解析混乱。上面的脚本将替换逻辑封装成独立函数，每次调用都会自动重置分隔符，避免冲突。

2. 解决崩溃与性能问题的关键

   • 加入try/on error错误捕获：避免因无法获取选中文本、路径格式错误或文件不存在导致脚本崩溃。
   • 统一替换函数：减少代码冗余，避免重复定义逻辑，提升运行效率。
   • 自动路径识别：无需手动指定转换方向，脚本根据路径开头自动判断处理逻辑。

使用说明 #

• 确保选中的是纯路径文本，不要包含多余字符。
• Windows路径需为共享路径格式（如\\server\SharedFolder\file.txt），本地Windows路径（如C:\xxx）无法直接转换为Mac可访问路径（除非通过SMB映射磁盘）。

内容的提问来源于stack exchange，提问作者Grainmetall