2
A
回答
7
Ubound(MySingleDimensionalArray, 2) ' Number of Array Elements
Ubound(MyMultiDimensionalArray, 1) ' Number of Columns
Ubound(MyMultiDimensionalArray, 2) ' Number of Rows
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
+0
有趣,它获得了正确的维度!但是如何从未知维度的数组中获取值,如何遍历所有“数组单元格”?如果维度已知,则语法是Response.Write(myArr(1,2,3,4))! – armen 2013-04-18 07:52:05
4
类似的方法来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
这是一个有点蹩脚,但它会做你的要求。
相关问题
- 1. 我有一个数组多维数组
- 2. Excel VBA:在多维数组中获得最小1维度
- 3. 一维数组到多维数组
- 4. 将多维数组合并到另一个多维数组中
- 5. 将多维数组插入到另一个多维数组中
- 6. 如何获得多维数组与另一个一维数组
- 7. Laravel的PHP获得最后一个元素的多维数组
- 8. 添加多维数组到mysql我有多维数组
- 9. Java:投入或参考多维数组到一维数组
- 10. 我有一个多维数组下面
- 11. PHP插入多维数组到另一个多维数组
- 12. 计数多维数组的第一个维度
- 13. 最有效的方法把单个一维到多维数组在c#中?
- 14. 如何计算多维数组中有多少个数组具有相同名称的多维数组?
- 15. PHP多维数组 - foreach循环显示最后一个数组
- 16. 将多维数组嵌套到单个多维数组中
- 17. 如何复制numpy数组中最后一个维度的值?
- 18. 多维数组与一维
- 19. 将多维数组一起追加到一维数组中?
- 20. 如何得到这个多维数组
- 21. 使多维数组一维没有foreach
- 22. 处理空维度的多维数组
- 23. 减少多维数组
- 24. 减少多维数组
- 25. php修复另一个多维数组的多维数组
- 26. 从一维数组到二维数组的丰度
- 27. 在同一个多维数组中转换一个不同的多维数组
- 28. 将一维数组插入到多维数组中
- 29. Implode一个多维数组
- 30. 仅查找第一个维度的长度在一个多维数组
如果MySingleDimensionalArray是一维数组,那么你的第一行会出错。 – jammus 2009-08-27 16:04:26