QTP- 对输入格式的检查
生活随笔
收集整理的這篇文章主要介紹了
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)
???
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- 对输入格式的检查的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: DataGridView加入CheckB
- 下一篇: 033-Unit 5 Standard