Question

Simple example:

Dim d, a(0)
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
Set a(0) = d

WScript.Echo(TypeName(a))

Output:

Variant()

I don’t see any way how to access this object, it counts 3, but it seems like empty

I find it surprising that Google does not list any useful result for this question – how to assign dictionary in array?

Closest I found was this unanswered link

My problem is that I have a loop that creates temporary dictionary, which I planned to feed in simple one dimensional array with dictionary objects, but without success

I also found something like this link where two arrays are created for dictionary keys and for dictionary items (values) separately, which just complicated things too much for my case

So is this possible at all with VBScript?

Answer 1

I might have misunderstood your question, but you can access the Dictionary like this:

WScript.Echo(a(0).Item("b"))

Edit

This code:

Dim d, a(0)
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
Set a(0) = d
WScript.Echo(a(0).Item("b"))

dim x
x = d.Items

dim i
for i = lbound(x) to ubound(x)
    WScript.Echo(x(i))
next

Produces this output on my Windows 7 machine:

C:\>cscript test.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

Belgrade
Athens
Belgrade
Cairo

C:\>