如何测试多维数组？

Question

我正在尝试在我的vbscript函数中测试多维数组的存在，但我遇到了找到最佳解决方案的问题。

在我的函数中，除了字符串值或值数组之外，数组可以是单个dim或multidimensional。

我遇到的问题是尝试测试阵列是单个还是多个。有预定义的方法吗？

任何帮助都会很棒。

Answer 1

不，没有预先确定的方式;也就是说：没有功能构建会返回维度。但是，你可以建立自己的。

' Returns the amount of dimensions of an array.
' Returns 0 when it is no array
Function GetDimensions(arr)

    Dim dimension, upperBound

    On error resume next
    For dimension = 1 to 255
        upperBound = ubound(arr, dimension)
        If err.Number <> 0 Then Exit for
    Next
    On error goto 0
    GetDimensions = dimension-1
End Function

Dim myArray(41, 42, 43)
MsgBox GetDimensions(myArray) ' Will return 3.