Comment créer une collection d'objets en vbscript?

ce qui devrait être le paramètre de create object le code suivant 

dim a
set a=CreateObject("Collection") //getting a runtime error saying ActiveX 
//component can't create object: 'Collection
a.add(CreateObject("Collection"))
a.Items(0).Add(1)
MsgBox(a.Items(0).count)
MsgBox(a.Items(0).Item(0))
Habituellement, vous allez importer comme ceci: CreateObject("library.class"). Je suppose que vous aviez manqué l'une des parties.
CreateObject("library.class") - en ce qui bibliothèque & classe nous devrions fourni? - nous sommes lokking pour ces détails..

OriginalL'auteur Onnesh | 2010-05-19

  1. 14

    comment propos d'un Dictionnaire

    Set a = CreateObject("Scripting.Dictionary")
a.Add 0, "5"
a.Add 4, "10"
MsgBox a.Count
MsgBox a.Item(0)
MsgBox a.Item(4)

    OriginalL'auteur Tester101

  2. 2

    Voici le code, son puissant:

    Option Explicit

dim list
Set list = CreateObject("System.Collections.ArrayList")
list.Add "Banana"
list.Add "Apple"
list.Add "Pear"

list.Sort
list.Reverse

wscript.echo list.Count                 ' --> 3
wscript.echo list.Item(0)               ' --> Pear
wscript.echo list.IndexOf("Apple", 0)   ' --> 2
wscript.echo join(list.ToArray(), ", ") ' --> Pear, Banana, Apple

    OriginalL'auteur aNirBan

  3. 0

    pour:

    dim lista : set lista = CreateObject("Scripting.Dictionary")

    vous pouvez effectuer une itération comme ceci:

    dim key
for each key in lista.keys
    Wscript.Echo key & " = " & lista.item(key)
next

    OriginalL'auteur Krzysztof Gapski