QTP在webtable中查找指定字符

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