VBscript 二维动态数组349

在 VBscript 中，使用二维动态数组可以轻松存储和处理表格或矩阵形式的数据。二维动态数组允许您在运行时创建、调整大小和访问数组元素，从而为动态数据结构提供了极大的灵活性。

创建二维动态数组

要创建二维动态数组，请使用以下语法：```vbscript
Dim arrArray()
Set arrArray = CreateObject("")
```

此代码创建一个名为 arrArray 的二维动态数组，它是一个使用 VBScript 对象实现的关联数组。与标准数组不同，动态数组不需要预先定义大小，并且可以随着需要进行增长或收缩。

调整数组大小

只需使用 ReDim 语句，即可在运行时调整二维动态数组的大小：```vbscript
ReDim Preserve arrArray(0 to nRows - 1, 0 to nCols - 1)
```

此代码将 arrArray 调整为 nRows 行和 nCols 列，同时保留其现有值（如果任何）。Preserve 关键字可确保在调整数组大小时不会丢失数据。

访问数组元素

您可以使用 (行号, 列号) 索引语法访问二维动态数组中的元素。例如：```vbscript
arrArray(2, 3) = "Cell Value"
```

这将值 "Cell Value" 存储在 arrArray 的第 3 行第 4 列（从 0 开始计数）。

遍历数组

可以使用 For Each...Next 循环遍历二维动态数组的所有元素。例如：```vbscript
For Each arrRow In arrArray
For Each arrCol In arrRow
arrCol
Next
Next
```

这将打印 arrArray 中的所有元素。

高级用法

除了基本用法外，二维动态数组还支持一些高级功能：* 键值对存储：您可以使用字符串键和值创建键值对，提供了一种灵活且易于访问数据的方式。
* 排序：您可以使用的 Sort 方法对数组中的元素进行排序。
* 合并：您可以使用的 AddAll 方法将另一个动态数组合并到当前数组中。

示例

以下示例展示了如何使用二维动态数组来创建和操作一个 2D 表格：```vbscript
Dim arrTable
' 设置标题和数据
Set arrTable = CreateObject("")
arrTable("Header1") = "Column 1"
arrTable("Header2") = "Column 2"
arrTable(1, 1) = "Cell 1,1"
arrTable(1, 2) = "Cell 1,2"
arrTable(2, 1) = "Cell 2,1"
arrTable(2, 2) = "Cell 2,2"
' 访问数据
arrTable("Header1") ' 输出："Column 1"
arrTable(1, 2) ' 输出："Cell 1,2"
' 遍历数据
For Each arrRow In arrTable
For Each arrCol In arrRow
arrCol
Next
Next
```