我的数组中有多少维数或得到最后一个维度

Question

如何查找经典ASP（VBScript）中数组中的维数。

我正在传递一个具有多维度的数组，但我只想看看最后一个。在其他语言似乎很容易。

Answer 1

Ubound(MySingleDimensionalArray, 2) ' Number of Array Elements 

Ubound(MyMultiDimensionalArray, 1) ' Number of Columns 
Ubound(MyMultiDimensionalArray, 2) ' Number of Rows 

Answer 2

function ArrayDimensions(theArray) 
    dim Result,test 
    Result = 0 
    if isarray(theArray) then 
     on error resume next 
      do 
       test = -2 
       test = ubound(theArray,result+1) 
       if test > -2 then result = result + 1 
      loop until test=-2 
     on error goto 0 
    end if 
    ArrayDimensions = Result 
end function 

Answer 3

类似的方法来feihtthief的回答这里我想这是你想要的，而不是特定的尺寸大小。

Function NumDimensions(arr) 
    Dim dimensions : dimensions = 0 
    On Error Resume Next 
    Do While Err.number = 0 
     dimensions = dimensions + 1 
     UBound arr, dimensions 
    Loop 
    On Error Goto 0 
    NumDimensions = dimensions - 1 
End Function 

然后调用它像这样：

Dim test(9, 5, 4, 3, 9, 1, 3, 5) 
NumDimensions(test) 

会给你的价值8

这是一个有点蹩脚，但它会做你的要求。