您的位置:首页 > 编程语言 > VB

VBS正则表达式:识别是否为邮件地址的函数

2011-03-07 08:56 148 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: