正则表达式的运用—测试输入框的限制
上一篇 /
下一篇 2013-06-28 14:27:25
/ 个人分类:QTP自动化测试
环境:windows7,数据库mysql
工具:QTP11.0
采用的方法:1.测试数据放在Excel表中,输入不同数据对应的不同的预期结果与测试数据相对应放在Excel相应的表格中,写一个正则函数,通过取输入数据和预期结果做比较。正则函数的脚本如下
Function RegExpTest(patrn,strng)
Dim myReg,Match,Matches
Set myReg= New RegExp '建立正则表达式
myReg.Pattern =patrn '确定匹配模式
myReg.IgnoreCase = True '不区分大小写
myReg.Global = True '设置全局可用性
If myReg.Test(strng)= true Then 'test函数表示是否匹配
myExcelSheet.Cells(i,5) = "Pass"
Report pass,"实际结果与预期结果一致"
Else
myExcelSheet.Cells(i,5) = "Fail"
Report fail,"实际结果与预期结果不一致"
End If
myExcelBook.Save
End Function
收藏
举报
TAG: