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作为name的值添加到我之前设置的myDict词典中。

如果是的话，如果我要循环五个数字问题，如何添加或添加到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)
...

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

1 个答案: