“天街小雨润如酥,草色遥看近却无。最是一年春好处,绝胜烟柳满皇都。”读一首古诗,心情也随之平静下来
根据页面结构使用描述性编程读取页面中经常变动的内容 ---- 无需依赖对象-2
上一篇 /
下一篇 2008-07-09 11:59:41 / 天气: 晴朗
/ 心情: 高兴
/ 精华(1)
/ 置顶(1)
/ 个人分类:测试工具
根据页面结构使用描述行编程读取页面中经常变动的内容 ---- 无需依赖对象,本章注意介绍如何读取页面中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:
QTP
对象
测试工具
描述性编程
WebTalbe
页面结构
变动内容