vbscript - 如何将字典添加到数组

Question

简单的例子:

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))

输出:
Variant()
我看不到如何访问此对象的任何方法，它计数 3，但它似乎是空的

我感到惊讶的是，Google 没有为这个问题列出任何有用的结果 - 如何在数组中分配字典？

我发现最接近的是这个未答复 link

我的问题是我有一个创建临时字典的循环，我计划用字典对象输入简单的一维数组，但没有成功

我也发现了这样的东西 link其中分别为字典键和字典项(值)创建了两个数组，这对我来说太复杂了

那么这完全可以用 VBScript 实现吗？

Answer 1

我可能误解了你的问题，但你可以像这样访问字典:

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

编辑

这段代码:

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

在我的 Windows 7 机器上产生这个输出:

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

Belgrade
Athens
Belgrade
Cairo

C:\>