Retrieving items from scripting.dictionary

[HerrSober]

Sub MyQuestion()

' First populate the scripting.dictionary
Dim d
Set d = CreateObject("Scripting.Dictionary")

d.Add "a", "Athens" d.Add "b", "Belgrade"
d.Add "c", "Cairo"


Debug.Print d.Item(1) ' Why does this return blank?

' How can I retreive items from this dictionary?
' I am very grateful for any tips and hints!

End Sub

 

[Fluff]

Hi
Try

d.item[COLOR=#ff0000]s[/COLOR](1)

HTH

 

[HerrSober]

Hi
Try

d.item[COLOR=#ff0000]s[/COLOR](1)

HTH

Thanks for your attempt.

I still didn't get any result with "d.items(1)" with the code I posted. When I tried with the collections, I got it working (see code under. I edited the variables on the code under to make it easier to read.)

Sub With_Collection()
   
   Dim d As Collection
    Set d = New Collection
    d.Add "Athens", "1"
    d.Add "Belgrade", "2"
    d.Add "Cairo", "3"

    Debug.Print d.Item(2)   'This code returns "Belgrade"


End Sub

But the same code with scripting.dictionary didn't work.

The reason I want to get scripting.dictionary to work is that I am working on an old code where the previous programmer used this object. I have otherwise understood that it runs faster than normal arrays.

Sub With_ScriptingDictionary()

Dim d
Set d = CreateObject("Scripting.Dictionary")

d.Add "Athens", "1"
d.Add "Belgrade", "2"
d.Add "Cairo", "3"

Debug.Print d.Items(1)  ' This code returns this errormessage:

'Run-time error '451'
'"Property let procedure not defined and property get procedure did not return an object"

End Sub

 

[HerrSober]

Looks like I finally got it working now!

Sub With_ScriptingDictionary_Working()

Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
Dim i As Integer

d.Add 1, "Athens"
d.Add 2, "Belgrade"
d.Add 3, "Cairo"

Debug.Print d.Item(2)  ' Returns "Belgrade"

End Sub

'And then it works for the type of loop I wanted to use it for:

For i = 1 To d.Count
Debug.Print d.Item(i)
Next i
' Returns "Athens", "Belgrade" and "Cairo"

 

[solotrek]

Sub MyQuestion()

' First populate the scripting.dictionary
Dim d
Set d = CreateObject("Scripting.Dictionary")

d.Add "a", "Athens" d.Add "b", "Belgrade"
d.Add "c", "Cairo"


Debug.Print d.Items()(1)

' How can I retreive items from this dictionary?
' I am very grateful for any tips and hints!

End Sub

Please see updated line above. Worked for me. Items needs() then index number.