如何通过给定的项目值显示 Motobit Multi.Dictionary 中的键？

Question

我是编程新手，所以如果我的问题看起来很愚蠢，我很抱歉。我想问一下，Multi.Dictionary当我有值时，是否有任何方法可以返回键？

这是我的代码：

Dim myDict
Set myDict= Server.CreateObject("Multi.Dictionary")
myDict.UniqueKeys = False 

'Fill dictionary with some data
myDict("param1") = "value1"
myDict.Add "param2", "value2"
myDict.Add "param2", "value2.2"

'Get dictionary Keys
Keys = myDict.Keys
Items = myDict.Items

For Z = 0 To UBound(Items)
  Response.Write(Keys(Z) & " " & Items(Z) & "<br>")
Next

现在返回

下标超出范围：'2'

这是正常的，因为我循环了 3 次而我只有 2 个键。

那么是否有可能得到这样的结果：

参数 1：“值 1”
参数 2：“值 2” 
参数 2：“value2.2”

Answer 1

myDict您可以通过多次检查或不检查项目来 循环遍历键。

Dim myDict
Set myDict= Server.CreateObject("Multi.Dictionary")
myDict.UniqueKeys = False 

myDict("param1") = "value1"
myDict.Add "param2", "value2"
myDict.Add "param2", "value2.2"

Dim key, subItem
For Each key In myDict.Keys
    If IsArray(myDict(key)) Then ' item is an array
        For Each subItem In myDict(key)
            Response.Write key & ": " & subItem & "<br>"
        Next
    Else
        Response.Write key & ": " & myDict(key) & "<br>"
    End If
Next