如何附加到作为字典中键值的数组？

Question

如果我这样设置字典：

set myDict = CreateObject("Scripting.Dictionary")

我问一个用户他的名字。

Wscript.StdOut.WriteLine "What is your name: "
name = Wscript.StdIn.ReadLine

然后我向用户询问五个数字。

Wscript.StdOut.WriteLine "Enter a number: "
    num1 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num2 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num3 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num4 = cint(Wscript.StdIn.ReadLine)
Wscript.StdOut.WriteLine "Enter a number: "
    num5 = cint(Wscript.StdIn.ReadLine)

并使用 ArrayList

将提示的五个数字放入任意数组

Set myArrayList = CreateObject( "System.Collections.ArrayList" )
myArrayList.Add num1
myArrayList.Add num2
myArrayList.Add num3
myArrayList.Add num4
myArrayList.Add num5

如果我在我设置的字典中添加一个带有 name 的键。

myDict.Add name

我可以将 myArrayList 作为值添加到我之前设置的 myDict 词典中的 name 中吗？

如果是这样，如果我要循环五个数字问题，我该如何追加或添加到 myArrayList？

Answer 1

字典的值可以是原始值，也可以是数组或对象（如ArrayList），如下所示：

myDict.Add name, myArrayList

或者像这样：

Set myDict(name) = myArrayList

您可以通过按名称选择对象来使用它。以下将值 42 作为新元素附加到数组列表：

myDict(name).Add 42

您还可以将一个新的（空）数组列表放入字典中，然后在后面附加您的数字：

Set myDict(name) = CreateObject("System.Collections.ArrayList")
Wscript.StdOut.WriteLine "Enter a number: "
myDict(name).Add CInt(WScript.StdIn.ReadLine)
...

如何附加到作为字典中键值的数组？

How do I append to an array that is a value of a key in a dictionary?

vbscript

arraylist

scripting.dictionary