51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4203|回复: 15
打印 上一主题 下一主题

[讨论] 求WebElement属性值的读取方法

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-9-24 13:13:53 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这是我录制的脚本和一张附带的图。我想把图中表格中所有的数据都读取出来,请大家在百忙之中抽点时间看下怎么办,谢谢了,我偿试了好多次都没有成功。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2011-9-24 15:06:11 | 只看该作者
直接用webtable。。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2011-9-24 17:29:22 | 只看该作者
回复 2# Ganve_001


    WebTable 加在Link后面么?
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2011-9-24 17:50:12 | 只看该作者
本帖最后由 Ganve_001 于 2011-9-24 17:59 编辑

你先定位具体是哪个webtable,
然后获取row
Browser().Page().WebTable().RowCount
循环row,
Browser().Page().WebTable().ColumnCount(row)获取column
循环column 取值Browser().Page().WebTable().GetCellData(row,column)

Eg.
iRow = Browser().Page().WebTable().RowCount

For i = 1 to iRow
   iColumn = Browser().Page().WebTable().ColumnCount(i)
   For j = 1 to iColumn
     cellData = Browser().Page().WebTable().GetCellData(i,j)
     ******'值要用来干什么或者放哪里
    Next
Next  

只是思路 具体要看你怎么用
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2011-9-24 19:02:16 | 只看该作者
回复 4# Ganve_001
我在属性库里已经添加了些属性,提示对象不支持此属性和方法如图

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2011-9-24 19:03:17 | 只看该作者

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2011-9-24 19:29:37 | 只看该作者
1.Link后面不能跟Webtable的,通俗来说 WebTable是Page上面的东西,不是Link 上面的东西
你那上面写的都有问题,For 循环你直接Copy也有问题
2.你把webtable抓到对象库内,具体操作就是 打开object repository ,先点add object再去点那个表格点边沿(注意要抓对),抓到对象库里面后,把对象库截个图贴上来。
3.其他我来写
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2011-9-24 20:55:04 | 只看该作者
回复 7# Ganve_001


    好的,如图先谢谢了,呵呵

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2011-9-25 00:14:58 | 只看该作者
对新人来讲,最简单暴力的方法应该是对web table直接用Out put value的方法
回复 支持 反对

使用道具 举报

该用户从未签到

10#
发表于 2011-9-25 00:16:39 | 只看该作者
1.里面节点东西挺多啊·  没抓到啊.你要看到底是那个webtable

上面那张图 你把鼠标选中【WebTable:最近更新 】那个节点 点击OK

msgbox Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").Row

看下等于多少,如果跟一楼那个表格的行数一致 那就是“最近更新”那个webtable  。不是 那就换其他的webtable试

确定webtable之后

iRow = Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").RowCount

For i = 1 to iRow
   iColumn = Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").ColumnCount(i)
   For j = 1 to iColumn
     cellData = Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").GetCellData(i,j)
     msgbox cellData
   Next
Next
回复 支持 反对

使用道具 举报

该用户从未签到

11#
 楼主| 发表于 2011-9-26 12:42:59 | 只看该作者
回复 10# Ganve_001


    谢谢了,我晚上回去偿试下,呵呵.
回复 支持 反对

使用道具 举报

该用户从未签到

12#
 楼主| 发表于 2011-9-26 20:57:47 | 只看该作者
回复 10# Ganve_001


    谢谢你,你真帅,呵呵,方法完全正确,高手啊
不过怎样将读出来的数据全部存进EXCEL表中呀?
回复 支持 反对

使用道具 举报

该用户从未签到

13#
发表于 2011-9-27 09:45:03 | 只看该作者
写到E盘,运行完会自己出现一个实习名单的xls,下面的可以参考下,直接写的 没调试。。有问题你就调调看
FilePath = "E:\实习名单.xls"
Set Fso  = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(FilePath) = False Then
  Set objExcel  = CreateObject("Excel.Application")
  Set objWorkBook = objExcel.Workbooks.Add
  Set objWorkSheet = objWorkBook.ActiveSheet

iRow = Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").RowCount

For i = 1 to iRow
   iColumn = Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").ColumnCount(i)
   For j = 1 to iColumn
     cellData = Browser("09级已办理离校顶岗实习名单-新闻中心").Page("09级已办理离校顶岗实习名单-新闻中心").WebTable("最近更新").GetCellData(i,j)
     objWorkSheet.Cells(i,chr(64+j)) = cellData
   Next
Next
objWorkBook.SaveAs(FilePath)
objExcel.Workbooks.Close
objExcel.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing
End If
回复 支持 反对

使用道具 举报

该用户从未签到

14#
 楼主| 发表于 2011-9-27 21:37:47 | 只看该作者
不得不佩服你啊,呵呵。
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2015-1-10 09:52
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    15#
    发表于 2011-9-27 22:27:22 | 只看该作者
    按F1
    选择 webelement属性
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2018-5-29 09:28
  • 签到天数: 8 天

    连续签到: 1 天

    [LV.3]测试连长

    16#
    发表于 2011-9-27 23:11:52 | 只看该作者
    学习中。。。
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-27 23:01 , Processed in 0.076952 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表