如何识别对象是集合还是字典？

Question

我有一个嵌套的节点树，Dictionaries或Collections（我无法控制这个结构 - 它是给我的）。如何从Dictionary分隔Collections个节点？

我发现存在IsArray()函数，但没有IsCollection或IsDict()

Answer 1

Sub TestingType()
    Dim col As New Collection
    Dim dic As New Scripting.Dictionary

    Debug.Print TypeName(col)   'Collection
    Debug.Print TypeName(dic)   'Dictionary

End Sub

Answer 2

尝试这样的事情：

If TypeOf YourObjectVariable Is Dictionary Then
    ' ...
ElseIf TypeOf YourObjectVariable Is Collection Then
    ' ...
Else
    ' Handle empty/other types here.
End If

您可以使用类似的东西来控制代码中的执行流程，或者创建自己的IsCollection（）和IsDictionary（）函数。