如何找到数组的维数？

Posted 2023-04-19

【中文标题】如何找到数组的维数？

【英文标题】：How to find the number of dimensions that an array has?

【发布时间】：2018-06-09 17:10:20

【问题描述】：

下面是一段代码，我需要通过传递的消息来存储有关警告消息的一些信息。自身传递的参数是一个变体，由对SAPListOfMessages 的API 调用设置，它返回一个String 数组。然而，我注意到的是，只要有超过 1 个警告，列表就是 2D 的，messageList(x-1) 显然会导致错误，因为它不是正确的索引。同样奇怪的是for each 循环似乎忽略了维度，并且以某种方式只是将数组展平并循环遍历它，就好像它是一维的一样。我看到的唯一解决方法是在做任何其他事情之前检查数组有多少维，因此我的问题。我找不到任何关于获取维度数量的信息——我只找到了关于它们的界限的信息。是否可以在 VBA 中找到数组的维数？如果不是，您建议我如何解决这个问题？

Sub getOverlapWarnings(ByRef messageList As Variant, ByRef warnings As Dictionary)

  Dim msg As Variant
  Dim x As Integer
  x = 1
 'look for an overlap warning message in the list of messages
  For Each msg In messageList
    'look for the keyword 'overlap' in the list of messages
    
    If InStr(1, msg, "overlap") <> 0 Then
       warnings.Add messageList(x - 1), msg
    End If
   x = x + 1
  Next msg
End Sub

【问题讨论】：

VBA using ubound on a multidimensional array的可能重复

这能回答你的问题吗？ How to return the number of dimensions of a (Variant) variable passed to it in VBA

【参考方案1】：

是否可以在VBA中找到数组的维数？

这种方法增加了可能的维度计数，60 是内置的最大值（参见评论）：

Private Function nDim(ByVal vArray As Variant) As Long
' Purpose: get array dimension (MS)
Dim dimnum     As Long
Dim ErrorCheck As Long    ' OP: As Variant
On Error GoTo FinalDimension

For dimnum = 1 To 60        ' 60 being the absolute dimensions limitation 
    ErrorCheck = LBound(vArray, dimnum)
Next
' It's good use to formally exit a procedure before error handling
' (though theoretically this wouldn't needed in this special case - see comment) 
Exit Function

FinalDimension:
nDim = dimnum - 1

End Function

更多链接（感谢@ChrisNeilson）

MS Using arrays

Big Array

【讨论】：

没有必要记住 dims 的限制。 Do ... Loop 就够了，而不是硬编码 60000 或其他一些......而且，顺便说一句，如果 L-UBound 肯定会返回 Long，那么 ErrorCheck As Variant 又如何呢？

回复： “我更喜欢短小。” 就个人而言，你甚至可以更喜欢加盐的咖啡。但是你向其他人建议错误的、糟糕的编程方法。此外，您向无数人宣传这一点...... Re： “..在这里，这种方式不需要......”是的。明天你拒绝Option Explicit 和变量类型分配，支持“here”。 回复： “无论如何都会发生错误” - 它是如此隐含，因此需要根据最佳实践对这种情况进行编程。但是，您以牺牲清晰度和良好的风格为代价，跳过了 1 (ONE!) exit(!) 代码行。

@user6698332 - 好的，是的，我们正在引导程序员进行最佳实践 - 我编辑了 OP

非常感谢您的编辑和正确理解！ :)

一个讨厌的黑客。但似乎是唯一的方法。请注意，Application.Evaluate 可能会返回一个标量、两个暗淡的数组，或者，有时，一个暗淡的数组！

【参考方案2】：

一个数组有 2 个边界：Upper 和 Lower。

我想你是在问下限从哪里开始。

默认情况下，下限为零。例如：

Sub test()
    Dim arr
    arr = Array("a", "b", "c")
    Debug.Print "Lower: " & LBound(arr), "Upper: " & UBound(arr)
End Sub

返回：Lower: 0 Upper: 2，因为这 3 个元素的索引分别为 0、1 和 2。

---

默认情况下，某些功能可能从1 开始，但这种情况很少见。一个例子是用一个范围填充一个数组：

Sub test()
    Dim arr
    arr = Range("A2:A4")
    Debug.Print "Lower: " & LBound(arr), "Upper: " & UBound(arr)
End Sub

...返回：Lower: 1 Upper: 3

---

如果你完全声明了数组，你可以随意设置上限和下限：

Sub test()
    Dim arr(99 To 101) As String
    arr(100) = "blah"
    Debug.Print "Lower: " & LBound(arr), "Upper: " & UBound(arr)
End Sub

...返回：Lower: 99 Upper: 101，但声明边界的数组不适用于许多函数（如前面的示例。

---

您还可以在每个模块的最顶部使用语句设置默认下限：

Option Base 1

...但是有很多地方不适用它有点没用。 （更多here。）

---

另见：

MSDN：Declaring Arrays（固定和动态）

MSDN：LBound Function

MSDN：UBound Function

【讨论】：

您能否澄清一下您所说的具有声明边界的数组不适用于许多函数 的意思？这样的数组不能使用哪些函数？

经过深思熟虑的书面答案，除了这个答案与另一个问题匹配。