我的數組中有多少維數或得到最後一個維度

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

這是一個有點蹩腳，但它會做你的要求。