VBA - 使用多维数组而不是两个单独的数组？

Question

最近有很多愚蠢的问题，但我希望能就此问题提供一些意见。 我有一个来自 INI 文件的字符串。它看起来像Firstname=FIRSTNAME。这基本上是一个包含这些负载的数组。我想把它们分开，但同时保留它们。因此，我设法将 Firstname 放入它自己的数组中，将 FIRSTNAME 放入它自己的数组中。但后来我的一位同事说“你为什么不直接使用多维数组呢？”。这让我开始思考，将 Firstname 放入 0，将 FIRSTNAME 放入 1。但是我该怎么做呢？

这是我现在的代码：

    For iTeller = 0 To UBound(arrIniName)
        If Not arrIniName(iTeller) = "" Then
            arrIniName(iTeller) = Split(arrIniName(iTeller), "=")(0)
        End If
    Next

    For iTeller = 0 To UBound(arrIniValue)
        If Not arrIniValue(iTeller) = "" Then
            arrIniValue(iTeller) = Split(arrIniValue(iTeller), "=")(1)
        End If
    Next

arrIniName 和 arrIniValues 都包含完全相同的数组。看起来像这样：

arrIniName(0) "Fistname=FIRSTNAME"
arrIniName(1) "Lastname=LASTNAME"
arrIniName(2) "Initials=INITIALS"

所以我基本上按照我现在的方式将每个数组分成自己的单独数组。但是将它们放入多维数组中可能会更好吗？因为这样我就只有一个数组需要管理，并且还可以通过 For Each 循环拉动该数组。

编辑：我最终这样做了，其中 Values 是数组

For Each s In Values
    Dim strName, strValue
    s = Split(s, "=")
    strName = s(0)
    strValue = s(1)

    'Run function strName, strValue
Next

Answer 1

理想的解决方案听起来像一个 字典 （一种保存键/值对的数据结构 - 确切地说INI 文件中的内容）。

这里不需要多维数组，因为只有 2 个维度（键和值）。数组通常比字典更难使用，因为它们很难调整大小，因此您需要预先知道有多少项。

因此，我建议使用以下代码：

Dim dict As Dictionary
Set dict = new Dictionary
Dim key as String
Dim value as String

For iTeller = 0 To UBound(arrIniValue)
    If Not arrIniValue(iTeller) = "" Then
        key = Split(arrIniValue(iTeller), "=")(0)
        value = Split(arrIniValue(iTeller), "=")(1)
        dict.Add(key, value)
    End If
Next

但是，如果您想使用多维数组，则可以使用以下代码：

' Declare a 2-dimensional array, of dimensions "n by 2".
Dim results(UBound(arrIniValue), 2) As String

For iTeller = 0 To UBound(arrIniValue)
    If Not arrIniValue(iTeller) = "" Then
        key = Split(arrIniValue(iTeller), "=")(0)
        value = Split(arrIniValue(iTeller), "=")(1)
        results(iTeller, 0) = key
        results(iTeller, 1) = value
    End If
Next