如何获取所有链接?

kevin_swpi 发表于 2008-8-8 09:31:08

如题
图片已给出,如下~

html tag是他们的共性
其余都是变化的值
如何来获取所有的链接?

假装不在 发表于 2008-8-8 11:21:44

我估计楼主使用了一下这个方法是不行的是吧？！
dim a
set a=browser().page().object.links

但我们可以使用这样的方法：
dim b
set b=browser().page().object.getElementsByTagName("SPAN")
......
........

kevin_swpi 发表于 2008-8-8 12:39:17

set b=browser().page().object.getElementsByTagName("SPAN")
这个b返回来是个object?

假装不在 发表于 2008-8-8 12:41:26

恩。
你可以通过这样操作：
b(0).outhtml
或者
b(0).click
b(1).click

kevin_swpi 发表于 2008-8-8 12:54:25

如何能得到这个集合里的数量?
我刚试了下b.count
但是不正确

另外如果我要查看它的其他属性又该如何
比如我要看intertext

假装不在 发表于 2008-8-8 19:41:33

b(0).getroproperty("intertext")
还有
b.length或者b.count

kevin_swpi 发表于 2008-8-9 09:12:59

b(0).getroproperty("innertext")
操作失败
提示:"Object doesn't support this property or method: 'GetRoProperty'"

陈能技 发表于 2008-8-9 21:19:57

可以试一下另外一种思路：
Set w_WebTable = Browser(XXX).Page(XXX).WebTable(XXX)
For I = 1 To w_WebTable.RowCount
For J =1 To w_WebTable.ColumnCount(I)
Set oCellLink = w_WebTable.ChildItem(I, J, "Link" , 0 )
Next
Next

这样应该可以获得那个WebTable下的所有链接对象。

xjcool 发表于 2008-8-11 10:24:32

Set w_WebTable = Browser(XXX).Page(XXX).WebTable(XXX)
Page(XXX)后面点选不出WebTable啊？
陈老大能详细说明下吗？谢谢

kevin_swpi 发表于 2008-8-11 10:50:50

to: 假装不在
问题已经解决还是用你那个方法
试我代码里出了点问题:lol

to: 陈能技
谢谢,我这个程序里不是link类型,所以你那办法处理不了
不过思路很好学习了 :)

TO: xjcool
你点选不出WebTable
因为你OR中没有录制WebTable的对象所以点选不出来
你录制了再试下

假装不在 发表于 2008-8-11 12:44:35

回复 10# 的帖子

:hug:
看样子你是yebest的徒弟吧....哈哈。
不用添加到对象库中也是可以写出来的。

陈能技 发表于 2008-8-11 17:04:00

原帖由 kevin_swpi 于 2008-8-11 10:50 发表 http://bbs.51testing.com/images/common/back.gif
to: 假装不在
问题已经解决还是用你那个方法
试我代码里出了点问题:lol

to: 陈能技
谢谢,我这个程序里不是link类型,所以你那办法处理不了
不过思路很好学习了 :)

TO: xjcool
你点选不出WebTable
...

请把代码看清楚了，再把帮助文档中的ChildItem的描述看清楚了，并非只有Link类型才可以用ChildItem。

xjcool 发表于 2008-8-11 18:03:29

陈老大问题解决了
录制完脚本后手动去添加了下WebTable对象进对象库
现在可以点出WebTablel了

xjcool 发表于 2008-8-13 14:07:12

Set w_WebTable = Browser(XXX).Page(XXX).WebTable(XXX)
For I = 1 To w_WebTable.RowCount
For J =1 To w_WebTable.ColumnCount(I)
Set oCellLink = w_WebTable.ChildItem(I, J, "Link" , 0 )
Next
Next
第一行的WebTable(XXX)能点出来了下面的w_WebTable.RowCount和w_WebTable.ColumnCount(I)和w_WebTable.ChildItem(I, J, "Link" , 0 )都点不出来是什么原因呢？

陈能技 发表于 2008-8-13 15:39:01

原帖由 xjcool 于 2008-8-13 14:07 发表 http://bbs.51testing.com/images/common/back.gif
Set w_WebTable = Browser(XXX).Page(XXX).WebTable(XXX)
For I = 1 To w_WebTable.RowCount
For J =1 To w_WebTable.ColumnCount(I)
Set oCellLink = w_WebTable.ChildItem(I, J, "Link" , 0 )
Next
...

这个等QTP10版本出来后就可以“点”出来了。:)

看看QTP10新特性预览：
http://www.itestware.com/ctest/index.php?option=com_idoblog&task=viewpost&id=51&Itemid=54

目前版本的QTP还不支持对象赋值传递后的Intelisense。

xjcool 发表于 2008-8-13 16:13:57

本来就点不出来啊。。
我还以为是我写错了
谢谢陈老大的回答

页: [1]

51Testing软件测试论坛 's Archiver

如何获取所有链接?

回复 10# 的帖子