Learn QTP
VBS正则表达式:识别是否为邮件地址的函数
Function IsEmailStr(strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*" ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
IsEmailStr = retVal
End Function