qileilove

blog已经转移至github,大家请访问 http://qaseven.github.io/

QTP在webtable中查找指定字符

’ 首先获取WebTable对象,然后通过ChildItem获取指定单元格中的链接对象,并单击该链接:
  ’ 获取WebTable对象
  Set objTable = Browser("请登录 博都网").Page("我的文章").WebTable("文章标题")
  intRow = 2
  intCol = 1
  ’ 通过ChildItem获取单元格中的链接对象
  Set objLink = objTable.ChildItem(intRow, intCol, "Link" , 0)
  ’ 单击链接
  objLink.click
  _______________________________________________
  ’获取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("&currentPage&")"
  pageObj.Link("text:="&currentPage).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,"搜索成功","元素位于第"&currentPage&"页,第"&i&"行"
  Finded = true
  Exit For
  End If
  Next
  ’找到了,退出
  If finded = true Then
  Exit For
  End If
  Next
  If finded = false Then
  msgbox "没有找到数据!"
  End If

posted on 2014-07-17 09:43 顺其自然EVO 阅读(465) 评论(0)  编辑  收藏 所属分类: 测试学习专栏qtp


只有注册用户登录后才能发表评论。


网站导航:
 
<2014年7月>
293012345
6789101112
13141516171819
20212223242526
272829303112
3456789

导航

统计

常用链接

留言簿(55)

随笔分类

随笔档案

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜