QTP之无分页功能的查找脚本-自动化测试

　　无分页功能的查找脚本，其主体结构为“完全匹配查找”和“模糊查找”，按照Case的逻辑需要进行修改,缺点是当表列的数据很多时，检查的速度太慢了，有没有更高的效率去查找，目前还不得而知。

　　Dim compterName '本机名

　　Dim fucationPath '函数地址

　　fucationPath="F:\qtptest\fucation\fucations.vbs" '函数组件

　　ExecuteFile fucationPath

　　CloseIE() '调用组件中的CloseIE()，结束IE进程

　　CloseExcel() '调用组件中的CloseExcel()，结束Excel进程

　　Url "XXXXXXXXXXXXXXX" '导航

　　login(username,password) '登录

　　Dim checkTest1

　　Dim checkTest2

　　Dim check

　　Dim totalRowNumber

　　Dim totalColumNumbe

　　'下拉框的值

　　checkTest1="技术预研"

　　'输入框的值从global表中获得

　　checkTest2=DataTable.RawValue("test2","Global")

　　Browser(" ").Page(" ").Frame(" ").WebList("Value0").Select checkTest1 '查找字段

　　Browser(" ").Page(" ").Frame(" ").WebEdit("Value1").Set checkTest2 '查找字段

　　Browser(" ").Page(" ").Frame(" ").WebButton(" ").Click

　　totalRowNumber=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").RowCount

　　完全匹配查找，即所查找的列必须与关键字的字段一致，如果某一行不一致，则退出fail

　　For i=2 to totalRowNumber

　　获取某列的值

　　text1=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").GetCellData(i,2)

　　如果没有trim()方法，老是报错，不晓得为啥子，仔细看text1里面也没有空格

　　If trim(text1)=trim(checkTest1) Then

　　check=true

　　else

　　check=false

　　i=totalRowNumber

　　End If

　　Next

　　模糊查找，使用qtp自带函数RegExpTest()，经试验这里的检查作用相当于模糊查询了，不需要自己再构造正则表达式,只要存在checkTest2则返回，否则为空

　　For j=2 to totalRowNumber

　　获取某列的值

　　text2=Browser(" ").Page(" ").Frame("name:=RightBottomFrame").WebTable("class:=CommonTable CommonSubTable BugMode").GetCellData(j,3)

　　If RegExpTest(checkTest2,text2)<>"" Then

　　check=true

　　else

　　check=false

　　i=totalRowNumber

　　end if

　　Next

　　If check=true Then

　　CloseMsgByTime "pass"

　　else

　　CloseMsgByTime "fail"

　　End If

　　Browser(" ").Page(" ").Sync

　　Browser(" ").CloseAllTabs

　　以上内容为大家介绍了自动化测试中的QTP之无分页功能的查找脚本，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/