根据页面结构使用描述性编程读取页面中经常变动的内容
上一篇 /
下一篇 2008-07-29 17:50:56
根据页面结构使用描述行编程读取页面中经常变动的内容 ---- 无需依赖对象,本章注意介绍如何读取页面中Table(QTP中是WebTable)中的数据(子对象)
'在脚本中设定开启哪个网页,这样会更方便一些
InvokeApplication "C:\Program Files\Internet Explorer\IEXPLORE.EXEhttp://www.google.cn/"
'定义Browser对象
Dim descBrowser
Set descBrowser = Descrīption.Create()
descBrowser("openurl").value="http://www.google.cn"
'定义Page对象
Dim descPage
Set descPage = Descrīption.Create()
descPage("url").value="http://www.google.cn"
'定义WebTable对象
Dim descTable
Set descTable = Descrīption.Create()
descTable("html tag").value="TABLE"
descTable("height").value="363"
descTable("width").value="510"
'(使用Descrīption定义描述性对象的时候,最好使用一些不经常变动的对象)
'获取表格的行数
rowCount = Browser(descBrowser).Page(descPage).WebTable(descTable).RowCount
'循环行
For row = 1 to rowCount
'获取每一行中表格的列数
colCount = Browser(descBrowser).Page(descPage).WebTable(descTable).ColumnCount(row)
'循环列
For col = 1 to colCount
'获取每列中包含的link数
linkCount = Browser(descBrowser).Page(descPage).WebTable(descTable).ChildItemCount (row,col,"Link")
For i = 0 to linkCount -1
'根据行数、列数、对象名以及index属性值定位表格中的ChildItem对象,并点击
Browser(descBrowser).Page(descPage).WebTable(descTable).ChildItem(row, col, "Link", i).Click
'返回首页
Browser(descBrowser).Back
Next
Next
Next
收藏
举报
TAG: