VBScript中带有Split()的动态数组。有更好的办法吗?

我通常选择的解决方案是每次向数组中添加新项时调整数组的大小。这样,结束数组将永远不会有任何未使用的条目。

ReDim aArray(-1)

For i = 1 To 10
    ReDim Preserve aArray(UBound(aArray) + 1)
    aArray(UBound(aArray)) = i
Next

MsgBox Join(aArray, "," & vbNewLine)

Carlos提出的另一个解决方案是使用Dictionary对象,这可能是更干净的解决方案:

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "Item1", ""
dic.Add "Item2", ""
dic.Add "Item3", ""

msgbox Join(dic.Keys, "," & vbNewLine)

谢谢,

来一杯怎么样 Dictionary 反对?