51Testing软件测试论坛

标题: 如何获取所有链接? [打印本页]

作者: kevin_swpi 时间: 2008-8-8 09:31
标题: 如何获取所有链接?
如题
图片已给出,如下~

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

作者: 假装不在 时间: 2008-8-8 11:21
我估计楼主使用了一下这个方法是不行的是吧？！
dim a
set a=browser().page().object.links

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

作者: kevin_swpi 时间: 2008-8-8 12:39
set b=browser().page().object.getElementsByTagName("SPAN")
这个b返回来是个object?

作者: 假装不在 时间: 2008-8-8 12:41
恩。
你可以通过这样操作：
b(0).outhtml
或者
b(0).click
b(1).click

作者: kevin_swpi 时间: 2008-8-8 12:54
如何能得到这个集合里的数量?
我刚试了下b.count
但是不正确

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

作者: 假装不在 时间: 2008-8-8 19:41
b(0).getroproperty("intertext")
还有
b.length或者b.count

作者: kevin_swpi 时间: 2008-8-9 09:12
b(0).getroproperty("innertext")
操作失败
提示:"Object doesn't support this property or method: 'GetRoProperty'"

作者: 陈能技 时间: 2008-8-9 21:19
可以试一下另外一种思路：
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
Set w_WebTable = Browser(XXX).Page(XXX).WebTable(XXX)
Page(XXX)后面点选不出WebTable啊？
陈老大能详细说明下吗？谢谢

作者: kevin_swpi 时间: 2008-8-11 10:50
to: 假装不在
问题已经解决还是用你那个方法
试我代码里出了点问题

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

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

作者: 假装不在 时间: 2008-8-11 12:44
标题: 回复 10# 的帖子

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

作者: 陈能技 时间: 2008-8-11 17:04

原帖由 kevin_swpi 于 2008-8-11 10:50 发表
to: 假装不在
问题已经解决还是用你那个方法
试我代码里出了点问题

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

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

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

作者: xjcool 时间: 2008-8-11 18:03
陈老大问题解决了
录制完脚本后手动去添加了下WebTable对象进对象库
现在可以点出WebTablel了

作者: xjcool 时间: 2008-8-13 14:07
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

原帖由 xjcool 于 2008-8-13 14:07 发表
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/i ... id=51&Itemid=54

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

作者: xjcool 时间: 2008-8-13 16:13
本来就点不出来啊。。
我还以为是我写错了
谢谢陈老大的回答

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)