helius 发表于 2010-1-27 23:22:25

关于qtp正则表达式

Function RegExpTest(patm,strng)
Dim regEx,retVal
Set regEX = New RegExp
regEx.Pattern=patm
regEx.IgnoreCase=False
retVal = regEx.Test(strng)
If retVal Then
   RegExpTest = "匹配成功."
   Else
   RegExpTest = "匹配失败."
End If
End Function
MsgBox(RegExpTest("正则表达式","原字符串"))


在qtp9.2上运行 在红字上提示General run error.
这是什么原因？该怎么改？ 谢谢

zzxxbb112 发表于 2010-1-28 09:47:31

是不是加载了LIB，脚本没问题~~~

wugecat 发表于 2010-1-28 10:40:20

没错的

mzhy 发表于 2010-1-28 10:44:39

脚本应该没有问题

yujie6832 发表于 2010-1-28 12:20:43

脚本是按F1来的，没有错，一个字节一个字节仔细看了遍，呵呵
我很讨厌这个错误General run error.

说不定是你别的地方写错了，你看下这个函数的上方代码，下方代码有没有错，比如多个空格，少个括号什么的
页: [1]
查看完整版本: 关于qtp正则表达式