Search for specific Key using only split number from composite key in dictionary

Hi,

Sub test()

Dim dic As Object

Set dic = CreateObject("scripting.dictionary")

KeyValue = Join(Array("EntityName", 1), Chr(2))
KeyValue2 = Join(Array("EntityName2", 2), Chr(2))
KeyValue3 = Join(Array("EntityName3", 3), Chr(2))

dic.Add KeyValue, "ok"
dic.Add KeyValue2, "ok2"
dic.Add KeyValue3, "ok3"

End Sub

in this code i am adding pairs text and number as keys.
And i want to check what key is for number 3.

So for number 3 i will have "EntityName3" and item "ok3".
How to lookup in all keys and find the one what i need?

For exists property of dictionary i would use whole Key but what if i have only Number?
Like if dic.exists(KeyValue)...

Best,
Jacek

Is this what you want?

msgbox dic.keys()(2)
msgbox dic.items()(2)

thank you Jindon.

not exactly.

Assume that you have a cell A1 when you will input "1".

And you want to find this "1" value in dictionary and know that this is key "KeyValue".

What you have provided it would be good idea if i will have numbers in order.
What i will add first "KeyValue3" to dictionary?

So i want to somehow search within keys of dictionary using number.

Best,
Jacek

Then you will need to loop through the items to find the value and the value possibly have multiple keys...

This is something confusing you, but I normally do like this.

Sub test()
    Dim e, s, dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    dic("Jack") = Array(CreateObject("Scripting.Dictionary"), 3)
    For Each e In Array(Array("Paul", 5, "Black"), Array("Michael", 10, "Blue"))
        dic("Jack")(0)(e(0)) = Array(CreateObject("Scripting.Dictionary"), e(1), e(2))
        For Each s In Array(Array("Superman", "Figurine", 7), Array("Batman", "Car", 6))
            dic("Jack")(0)(e(0))(0)(s(0)) = Array(e(1), e(2))
        Next
    Next
    MsgBox "Parent: Jack" & vbLf & "Child: Paul" & vbLf & "Toy : Superman" & vbLf & _
            Join(dic("Jack")(0)("Paul")(0)("Superman"), ",")
End Sub

wow thank you very much my friends!

rorya, your code will be useful to check what i have.

jindon, your code is not from this earth like usually but very helpful.
It is possible to check if for example Child Michael appeared already and was assigned to dic before?

With exists function?

Best,
Jacek

Something like this.

Sub test()
    Dim e, s, dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    dic("Jack") = Array(CreateObject("Scripting.Dictionary"), 3)
    For Each e In Array(Array("Paul", 5, "Black"), Array("Michael", 10, "Blue"))
        dic("Jack")(0)(e(0)) = Array(CreateObject("Scripting.Dictionary"), e(1), e(2))
        For Each s In Array(Array("Superman", "Figurine", 7), Array("Batman", "Car", 6))
            dic("Jack")(0)(e(0))(0)(s(0)) = Array(e(1), e(2))
        Next
    Next
    MsgBox dic("Jack")(0).exists("Michael"), , "Check if ""Jack"" has ""Michael"""
    MsgBox dic("Jack")(0)("Michael")(0).exists("Astro Boy"), , "Check if ""Michael"" has ""Astro Boy"""
End Sub

THANK YOU Master,

with this code i can build hierarchy in this topic

https://www.excelforum.com/excel-pro...a-objects.html


what i have to undestand is assigning here:

dic("Jack")(0)(e(0))(0)(s(0))

this is adding to key "Jack" to childDictionary key = e(0) the item (0) value from s(0)?

Best,
Jacek

I have set the Dictionary in first element in the array, so
dic("Jack")(0) = dictionary for child
dic("Jack")(0)("Michael")(0) = dictionary for toy for "Michael" of "Jack"

If you want ParentId then dic("Jack")(1), "Age" of "Michael" of "Jack" = dic("Jack")(0)("Michael")(1) and 2 for color etc...

Helps?

thank you !

Helped a lot!

Jacek