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
