正则表达式的运用—测试输入框的限制

上一篇 / 下一篇  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:

 

评分:0

我来说两句

Open Toolbar