AutoHotkey v1大小写反转脚本优化咨询：解决执行延迟问题

问题说明 #

现有一款AutoHotkey v1大小写反转脚本，功能正常但执行前存在数秒延迟，代码实现冗长且调用多个函数，寻求更优实现方案或替代脚本。

现有脚本的核心问题 #

1. 不必要的延迟操作：多处使用Sleep 100/Sleep 150强制等待，是导致执行延迟的主要原因
2. 低效的字符串处理：通过循环逐个字符拼接字符串，大文本下性能极差
3. 冗余代码与全局变量：存在无用的SetCapsLockState语句、未使用的函数（GetText/PutText），全局变量增加复杂度
4. 剪贴板处理逻辑冗余：多个函数重复处理剪贴板保存，逻辑混乱

优化后的脚本（通用版） #

针对普通文本框选中内容快速反转大小写，无多余延迟：

^Numpad0::
    ; 保存原始剪贴板
    ClipSaved := ClipboardAll
    Clipboard := ""
    ; 复制选中内容
    SendInput ^c
    ; 等待剪贴板有内容，超时1秒
    ClipWait, 1
    if ErrorLevel {
        MsgBox, 复制失败
        Clipboard := ClipSaved
        return
    }
    ; 用正则批量反转大小写：匹配大写转小写，小写转大写
    reversed := RegExReplace(Clipboard, "([A-Z])|([a-z])", "$L1$U2")
    ; 将反转后的内容放入剪贴板
    Clipboard := reversed
    ; 粘贴
    SendInput ^v
    ; 恢复原始剪贴板
    Clipboard := ClipSaved
return

支持资源管理器重命名的优化版（匹配原脚本功能） #

保留原脚本对资源管理器文件重命名的支持，同时消除延迟：

^Numpad0::
    ClipSaved := ClipboardAll
    Clipboard := ""
    ; 获取当前窗口类名
    WinGetClass, winClass, A
    ; 判断是否是资源管理器/桌面
    if (winClass ~= "(Cabinet|Explore)WClass|Progman") {
        ; 进入重命名状态并选中全部文本
        SendInput {F2}^a
    }
    ; 复制选中内容
    SendInput ^c
    ClipWait, 1
    if ErrorLevel {
        Clipboard := ClipSaved
        return
    }
    ; 正则批量反转大小写
    reversed := RegExReplace(Clipboard, "([A-Z])|([a-z])", "$L1$U2")
    Clipboard := reversed
    SendInput ^v
    ; 资源管理器中重命名后自动回车确认
    if (winClass ~= "(Cabinet|Explore)WClass|Progman")
        SendInput {Enter}
    Clipboard := ClipSaved
return

关键优化点 #

• 移除强制Sleep：用ClipWait替代固定等待，仅在剪贴板就绪后继续，大幅减少不必要延迟
• 批量字符串处理：使用RegExReplace批量反转，比逐个字符循环效率提升数十倍，尤其处理长文本时
• 简化剪贴板逻辑：统一处理剪贴板保存与恢复，避免全局变量和冗余函数
• 优化资源管理器交互：添加^a确保选中完整文件名，最后自动回车确认重命名
• 清理冗余代码：删除未使用的函数和无效的状态设置语句

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