多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

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

更新时间:2022-05-20 09:00:22 作者:多测师 浏览:182

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

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

  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/

联系电话

17727591462

返回顶部