AppleScript在Automator中偶尔卡顿崩溃的问题排查

问题根源 #

你的脚本存在几个致命问题，直接导致Automator运行不稳定、TextEdit崩溃：

• 依赖不可靠的键盘模拟：用System Events发送按键指令完全依赖TextEdit的实时状态（窗口激活状态、光标位置、程序响应速度）。一旦TextEdit处理速度跟不上按键节奏，就会出现操作混乱，甚至触发崩溃。
• 固定延迟无适配性：硬编码的delay 2无法适配不同系统负载下的操作耗时，比如TextEdit保存文件的时间可能因文件大小、系统状态变化，延迟过短会导致剪贴板内容读取错误，过长则浪费时间。
• 索引无校验：直接把剪贴板内容当列表索引用，但AppleScript要求索引必须是整数。如果剪贴板内容不是有效整数，会触发未捕获错误，导致脚本停滞。
• 冗余操作引发冲突：连续的全选、删除、粘贴、保存、关闭操作如果没等TextEdit完成前一步，会导致程序内部状态混乱，增加崩溃概率。

修复后的稳定脚本 #

改用直接操作TextEdit文档内容的方式替代键盘模拟，同时添加错误校验，大幅提升稳定性：

on run {input, parameters}
    tell application "TextEdit"
        activate
        -- 检查是否有打开的文档
        if not (exists document 1) then
            display alert "错误" message "请先打开目标TextEdit文档"
            return input
        end if
        
        set targetDoc to document 1
        set docContent to text of targetDoc
        
        -- 提取文本中的整数索引（根据你的实际需求调整逻辑）
        set thePath to my extractInteger(docContent)
        
        -- 保留你的完整链接列表
        set myList to {"link1","link2","link3",...,"link298"}
        
        -- 校验索引有效性
        if thePath < 1 or thePath > length of myList then
            display alert "错误" message "无效的索引值"
            return input
        end if
        
        -- 将对应链接复制到剪贴板
        set the clipboard to item thePath of myList
        
        -- 保存并关闭文档（可选，按需保留）
        save targetDoc
        close targetDoc
    end tell
    
    return input
end run

-- 辅助函数：从文本中提取整数
on extractInteger(inputText)
    set numChars to {"0","1","2","3","4","5","6","7","8","9"}
    set numText to ""
    repeat with c in every character of inputText
        if c is in numChars then set numText to numText & c
    end repeat
    return if numText ≠ "" then numText as integer else 0
end extractInteger

核心优化点 #

• 直接操作文档对象：通过TextEdit的原生AppleScript接口读写内容，彻底避免键盘模拟的不确定性。
• 前置错误校验：提前检查文档状态、索引有效性，拦截错误防止脚本无响应。
• 动态索引提取：用辅助函数精准提取文本中的整数索引，确保符合列表使用要求。
• 同步操作流程：所有操作在TextEdit的tell块内执行，保证程序状态同步，避免冲突。

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