转【QTP】WebTable里存储数据的一种方法

上一篇 / 下一篇 2013-12-30 09:01:28 / 个人分类：QTP

【QTP】WebTable里存储数据的一种方法

　　这里我就献丑写一下我在这块上的处理方式，我自己做了个简单的页面，来演示一些使用：

　　比如上面这个页面，取数据不难，主要是直观，所以我用的方法是用数组与字典结合的方式：

Dim oTable

Set Table = Browser("无标题文档").Page("无标题文档").WebTable("表格")

Dim oRow, oCol

oRow = oTable.RowCount

oCol = oTable.ColumnCount(1)

Dim arrData()

ReDim arrData(oRow)

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)

print arrData(3)("姓名")

print arrData(9)("数据3")

　　下面的是使用和打印的效果。

TAG: