vb6 - 迭代 VB6 字典

Question

我是一个非 VB6 人，不幸继承了一个有缺陷的遗留 VB6/Classic ASP 项目。有一个部分将很多条目放入 Dictionary 中，我想查看它包含的所有内容。我尝试了这个(oParams 是字典):

Dim o As Object
Dim sDicTempAggr As String
sDicTempAggr = ""
For Each o In oParams
    sDicTempAggr = sDicTempAggr & ", " & o
Next

返回:

Object doesn't support this property or method : 438

使用 Option Explicit，如何迭代 VB6 Dictionary 以找出它包含的所有内容？

Answer 1

这是一个迭代示例，如果您仍然遇到问题，请查看第二个循环以检查字典中值的类型

  Dim oParams As New Dictionary
    oParams.Add 1, "This"
    oParams.Add 2, "That"
    oParams.Add 3, "The other"
    Dim key As Variant
    Dim sDicTempAggr  As String
    Dim sTypes As String
    For Each key In oParams.Keys
        sDicTempAggr = sDicTempAggr & IIf(sDicTempAggr <> "", ",", "") & oParams(key)
    Next key
    For Each key In oParams.Keys
          sTypes = sTypes & IIf(sTypes <> "", ",", "") & TypeName(oParams(key))
    Next key