19870908 发表于 2013-9-11 16:07:09

vbs 数组

请问:如何用vbs实现: 动态获取webtable中的每一列的列名,并将其生成一个一维数组呢

ermine 发表于 2013-9-11 22:10:44

如果要测的table是标准的,可以用GetROProperty("column names")获取所有的列名,然后用split,就可以分成一个数组了

黑羽祭 发表于 2013-9-13 13:12:50

本帖最后由 黑羽祭 于 2013-9-13 13:14 编辑

回复 1# 19870908


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

Dim arrData(200)
Dim i , j
For i = 1 to oRow-1
   Set arrData(i)=CreateObject("Scripting.Dictionary")
   For j = 1 to oCol
          arrData(i).Add Trim(oTable.GetCellData(1,j)) , oTable.GetCellData(i+1,j)
   Next
Next
Set oTable = Nothing到时候用就可以直接用 arrData(2)("姓名") 类似这样的形式

黑羽祭 发表于 2013-9-13 13:29:22

试试吧

lyscser 发表于 2013-9-15 21:44:08

陈老师很称职~

黑羽祭 发表于 2013-9-16 09:07:10

回复 5# lyscser


    哎呀,槽神哥~没想到你还出没于这里啊,用了个美女头像完全没发现过啊~
页: [1]
查看完整版本: vbs 数组