vbs 数组

19870908

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

黑羽祭

回复 5# lyscser


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

lyscser

陈老师很称职～

黑羽祭

试试吧

黑羽祭

回复 1# 19870908


    既然是表格，你要方便的用所有数据，那最好还是二维的。
我建议用数组和字典结合使用：

1. Dim oTable
   
2. Set oTable = Browser("XXXX").Page("XXXX").WebTable("XXXX")
   
3. oRow = oTable.RowCount         '行
   
4. oCol = oTable.ColumnCount(1)  '列
   
5. 
   
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)("姓名") 类似这样的形式

ermine

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