软件测试工作中使用QTP的总结(5)

Function regEXfun(patrn,strng)

Dim regEX,Match,Matches

Set regEX = New RegExp

regEX.Pattern=patrn

regEX.IgnoreCase=False

Set Matches =regEX.Execute(strng)

Set Match=Matches(0)

RetStr=Match.value

regEXfun=RetStr

End Function

Dim preNO,newNO

preNO=Browser("xx").Page("xx").WebElement("NO").GetROProperty("innertext")

newNO=regEXfun("ABC……..",preNO) '虽然每次NO都不一样，但是格式是固定的：字符串长度总是11位，以ABC开始，后面的数字是随机，所以用ABC来匹配字符串

DataTable.Value("NO",dtGlobalSheet)=newNO

8、密码

如果登录页面的密码数据来源是data table，那么要提前准备密码。显然只能用明文，比如123456，

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库软件测试工作中使用QTP的总结(5)在线全文阅读。