标题: 关于qtp正则表达式 [打印本页] 作者: helius 时间: 2010-1-27 23:22 标题: 关于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("正则表达式","原字符串"))