vbscript - 如何清除vbscript中数组的内容？

Question

我已经在函数库中声明了一个二维数组并将其与测试相关联。在测试的 action1 中，我尝试使用“erase”语句清除数组。
我的代码 -
在函数库中，

Dim strVerifyAry(25,6)

在行动1中，

erase strVerifyAry

错误信息

Run Error - Type mismatch: 'Erase'

如何清除这个数组的内容？

Answer 1

在纯 VBScript 中对我有用，因此很可能是 QTP 用于运行 VBScript 代码的任何引擎的问题。您应该能够模拟 Erase 的行为对于这样的二维数组:

Sub EraseArray(ByRef arr)
  For i = 0 To UBound(arr, 1)
    For j = 0 To UBound(arr, 2)
      If IsObject(arr(i, j)) Then
        Set arr(i, j) = Nothing
      Else
        arr(i, j) = Empty
      End If
    Next
  Next
End Sub

或者像这样，如果您不想将包含对象的字段设置为 Nothing :

Sub EraseArray(ByRef arr)
  For i = 0 To UBound(arr, 1)
    For j = 0 To UBound(arr, 2)
      arr(i, j) = Empty
    Next
  Next
End Sub