无分页功能的查找脚本,其主体结构为“完全匹配查找”和“模糊查找”,按照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