QTP- 对输入格式的检查

1.这个函数是判断输入的字符串是否符合格式要求，格式可以根据需要进行实例化
Function RegExpTest(patrn,strng)
     Dim regEx
     Set regEx = new RegExp
     regEx.Pattern= patrn
     regEx.Ingorecase =True
     regEx.Global = True
     RegExpTest = regEx.Test("strng")
     If RegExpTest = True Then
        Reporter.ReportEvent micPass,"输入格式测试","输入格式正确"
    else
        Reporter.ReportEvent micFail,"输入格式测试","输入格式不正确"
    End If
End Function
2.以Email地址为例
   mail_patrn ="^[a-zA-Z0-9_\-]@[a-zA-Z0-9_\-]\.[a-zA-Z0-9_\-.]{1,}$"
  strng = Browser("后台管理").Page("用户管理_2").WebEdit("vo.email").GetROProperty("value")  
  result_message=RegExpTest(mail_pattern,strng)
   

转载于:https://www.cnblogs.com/cherry/archive/2009/07/30/1535093.html

总结

以上是生活随笔为你收集整理的QTP- 对输入格式的检查的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。