51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3612|回复: 5
打印 上一主题 下一主题

[求助] email 的正则表达式格式验证问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-9-9 10:12:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在系统中,如果输入错误格式的email地址,在文本框后就会出现一个提示信息的小图标,鼠标放在小图标上,显示“email格式不正确”。
在QTP中,写了如下代码来验证email格式是否正确,但是不管是输入正确,还是错误的email信息,测试报告中都显示格式输入的是不正确的。

Function RegExpTest(patrn,str)
     Dim regEx
     Set regEx = new RegExp
     regEx.Pattern= patrn
     regEx.Ignorecase =True
     regEx.Global = True
        msgbox (str)
     RegExpTest = regEx.Test(str)
     If  RegExpTest = True Then   
        Reporter.ReportEvent micPass,"Email格式测试","输入格式正确"
    else  If  Browser("CFS-CRM V 6.4.0.05").Window("客户信息 -- 网页对话框").Page("客户信息").Frame("Frame").Image("Email格式不正确").Exist Then  
                Reporter.ReportEvent micPass,"Email格式测试","输入格式错误,提示信息存在"
                else
        Reporter.ReportEvent micFail,"Email格式测试","输入格式错误,提示信息不存在"
            End If
          End If
End Function

email的值是取的datatable里的值,循环进行验证好几种情况。
问题是:当输入正确的email时,结果显示输入的仍是错误的,到底是哪里写的不对呢。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2009-9-9 10:13:15 | 只看该作者
var_email=datatable.Value("email","新建客户")
If var_email <>"" Then
mail_patrn="/^([a-zA-Z0-9_-])+@([a-zA-Z0-9_-])+(\.[a-zA-Z0-9_-])+/"
result_message=RegExpTest(mail_patrn,var_email)
End If

这是来调用function
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-9-9 11:00:19 | 只看该作者
正则表达式用  ^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$   试试
或者  ^w+[-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*$
你的好像写错了  /^[a-zA-Z0-9_\.]+@[a-zA-Z0-9-]+[\.a-zA-Z]+$/

[ 本帖最后由 zero0223 于 2009-9-9 11:56 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-9-9 12:31:46 | 只看该作者
If  RegExpTest = True Then
上面变赋值了吧
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-9-9 13:35:55 | 只看该作者
好像是 .*吧?
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2009-9-9 13:55:05 | 只看该作者
3楼对了,正则表达式写错了,
改下就OK了~~
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 07:37 , Processed in 0.073921 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表