51Testing软件测试论坛

标题: vbs 数组 [打印本页]
作者: 19870908    时间: 2013-9-11 16:07
标题: vbs 数组
请问：如何用vbs实现： 动态获取webtable中的每一列的列名，并将其生成一个一维数组呢
作者: ermine    时间: 2013-9-11 22:10
如果要测的table是标准的，可以用GetROProperty("column names")获取所有的列名，然后用split，就可以分成一个数组了
作者: 黑羽祭    时间: 2013-9-13 13:12
本帖最后由 黑羽祭 于 2013-9-13 13:14 编辑

回复 1# 19870908


    既然是表格，你要方便的用所有数据，那最好还是二维的。
我建议用数组和字典结合使用：
  1. Dim oTable
  2. Set oTable = Browser("XXXX").Page("XXXX").WebTable("XXXX")
  3. oRow = oTable.RowCount         '行
  4. oCol = oTable.ColumnCount(1)  '列

  6. Dim arrData(200)
  7. Dim i , j
  8. For i = 1 to oRow-1
  9.      Set arrData(i)=CreateObject("Scripting.Dictionary")
  10.      For j = 1 to oCol
  11.           arrData(i).Add Trim(oTable.GetCellData(1,j)) , oTable.GetCellData(i+1,j)
  12.      Next
  13. Next
  14. Set oTable = Nothing
复制代码
到时候用就可以直接用 arrData(2)("姓名") 类似这样的形式
作者: 黑羽祭    时间: 2013-9-13 13:29
试试吧
作者: lyscser    时间: 2013-9-15 21:44
陈老师很称职～
作者: 黑羽祭    时间: 2013-9-16 09:07
回复 5# lyscser


    哎呀，槽神哥~没想到你还出没于这里啊，用了个美女头像完全没发现过啊~



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2