SetBatchLines -1

计时()
Loop 1000000 {
    字符串 := "Debug(var) `; 注释内容"
    SubStr(字符串, VarName := InStr(字符串, "Debug(")+6, InStr(字符串,")")-VarName)
}
MsgBox % "耗时：" 计时() " 毫秒"

字符串 := "var[2][[""233""]]"
; MsgBox % StrReplace(StrReplace(字符串, "[[", "["), "]]", "]")
; MsgBox % RegExReplace(字符串, "([\[\]])\1", "$1")

字符串 := "干扰字符串Debug(var) `; 注释内容"
; MsgBox % SubStr(字符串, VarName := InStr(字符串, "Debug(")+6, InStr(字符串,")")-VarName)
; MsgBox % RegExReplace(字符串, ".+Debug\((.*)\).+", "$1")
Return


计时() {
    Static
    if 开始=
        DllCall("QueryPerformanceFrequency", "Int64*", 频率), DllCall("QueryPerformanceCounter", "Int64*", 开始)
     else
        DllCall("QueryPerformanceCounter", "Int64*", 结束), 耗时:=(结束 - 开始)/频率*1000, 开始:=""
     Return 耗时
}

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。