关于qtp正则表达式

helius

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.
这是什么原因？该怎么改？ 谢谢

yujie6832

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

说不定是你别的地方写错了，你看下这个函数的上方代码，下方代码有没有错，比如多个空格，少个括号什么的

mzhy

脚本应该没有问题

wugecat

没错的

zzxxbb112

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