Referencing nested dictionaries using Items instead of key names

[Geordy]

I was wondering if anyone could help me out. I have a large dataset that I need to push into a dictionary, into that dictionary I also have to create other dictionaries and this can go on until I fill the entire dataset into the dictionary. The problem is that I do not know beforehand what the key names will be so I need to find a way to get the key names.

I have the following test code:

Dim player As New Dictionary
player.Add "val1", "hello123"
player.Add "val2", "piet123"
player.Add "dict1", New Dictionary
player("dict1").Add "val3", "bbb"
player("dict1").Add "dict2", New Dictionary
player("dict1")("dict2").Add "val4", "222"
player("dict1")("dict2").Add "val5", "444"

Now in the intermediate I can do the following

Debug.print player items(1)
Piet123
debug.Print player("dict1")(“val3”)
bbb

But I cannot do

debug.Print player("dict1").Items(0)
or
debug.Print player("dict1")(1)

Anyone have any idea on how to get reference the key in a nested dictionary not using the keyname?

Cheers

 

[shg]

Unlike a collection, you can't retrieve an intem by position, only by key.

 

[Marcelo Branco]

Not sure if this helps, but you can try something like...

Sub aTest()
    Dim player As Object, dict1 As Object, v As Variant
    
    Set player = CreateObject("Scripting.Dictionary")
    Set dict1 = CreateObject("Scripting.Dictionary")
    
    player.Add "val1", "hello123"
    player.Add "val2", "piet123"
    player.Add "dict1", dict1
    
    player.Item("dict1").Add "val3", "Hello456"
    player.Item("dict1").Add "val4", "Hello789"
    
    With player("dict1")
        For Each v In .keys
            Debug.Print v & " = " & .Item(v)
        Next v
    End With
End Sub

M.