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

17727591462

联系电话

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

QTP在webtable中查找指定字符-自动化测试

更新时间:2022-05-07 09:27:33 作者:多测师 浏览:127

  ’ 首先获取WebTable对象,然后通过ChildItem获取指定单元格中的链接对象,并单击该链接:

  ’ 获取WebTable对象

  Set objTable = Browser("请登录 xx网").Page("我的文章").WebTable("文章标题")

  intRow = 2

  intCol = 1

  ’ 通过ChildItem获取单元格中的链接对象

  Set objLink = objTable.ChildItem(intRow, intCol, "Link" , 0)

  ’ 单击链接

  objLink.click

  _______________________________________________

QTP在webtable中查找指定字符-自动化测试

  ’获取webtable的行数,并查找指定的内容

  numRows = Browser("请登录 博都网_2").Page("我的文章").WebTable("文章标题").RowCount

  For i=2 to numRows

  title_text =Browser("请登录 博都网_2").Page("我的文章").WebTable("文章标题").GetCellData(i,1)

  If trim(title_text) = trim(articleTitle) Then

  reporter.ReportEvent 0,"测试成功","文章列表显示新添加的文章标题"

  Exit For

  End If

  Next

  ’如果table有很多页,数据不在第一页,怎么查找?

  ’’’’’’’’’’’Function : 在webTable中查找元素’’’’’’’’’

  Function FindedItemInTable(pageObj1,WebTable_Obj1,searchStr,PageNum)

  ’ Finded :标记是否从table里找到数据

  ’ currentPage:当前页;numRows:当前页的行数

  Dim Finded,currentPage

  Finded = false

  ’从第一页开始查找。

  For currentPage = 1 to PageNum

  ’==================初始化:保证从第一页开始搜索==========================

  ’ If currentPage = 1 Then

  ’ pageObj.Link("pageLink").SetTOProperty "text",1

  ’ pageObj.Link("pageLink").SetTOProperty "href","javascript:forward(1)"

  ’ If pageObj.Link("text:=1","href:=javascript:forward(1)").Exist(1) Then

  ’ pageObj.Link("text:=1").Click

  ’ End If

  ’ End If

  ’============================================

  If currentPage >1 Then

  pageObj.Link("pageLink").SetTOProperty "text",currentPage

  pageObj.Link("pageLink").SetTOProperty "href","javascript:forward("¤tPage&")"

  pageObj.Link("text:="¤tPage).Click

  pageObj.Sync

  msgbox pageObj.GetROProperty("url")

  End If

  ’获得当前页的行数,开始逐行搜索

  numRows = WebTable_Obj.GetROProperty("rows")

  msgbox numRows

  For i=2 to numRows

  ItemStr =Cstr(WebTable_Obj.GetCellData(i,1))

  If trim(ItemStr) = trim(searchStr) Then

  reporter.ReportEvent 0,"搜索成功","元素位于第"¤tPage&"页,第"&i&"行"

  Finded = true

  Exit For

  End If

  Next

  ’找到了,退出

  If finded = true Then

  Exit For

  End If

  Next

  If finded = false Then

  msgbox "没有找到数据!"

  End If

  以上内容为大家介绍了自动化测试中的QTP在webtable中查找指定字符,本文由多测师亲自撰写,希望对大家有所帮助。了解更多自动化测试相关知识:https://www.aichudan.com/xwzx/

联系电话

17727591462

返回顶部