Tableaux dynamiques dans VBScript avec Split(). Y a-t-il un meilleur moyen?

Question

La plupart des scripts que j'écris sur mon travail dépendent de la création de tableaux de taille dynamique. Les tableaux dans VBScript rendent cette tâche très ardue, car il faut des tableaux chaque fois que l'on veut les redimensionner. Pour contourner ce problème, j'ai commencé à créer des chaînes délimitées par des virgules et à utiliser Split(...) pour créer des tableaux 1D. Bien que cela fonctionne fantastique pour moi, je me suis demandé si VBScript a un moyen plus efficace de gérer cela. Donc, je demande à StackOverflow; sont là?

Responsabilité: Je suis pleinement conscient que VBScript est un langage de script assez de qualité inférieure, mais Python nécessite un logiciel supplémentaire, ce qui est un peu embêtant pour l'automatisation du serveur, et PowerShell n'est pas une composante essentielle encore. Je les apprends tous les deux, cependant!

Answer 1

La solution que j'utilise habituellement consiste à redimensionner la matrice chaque fois que j'y ajoute un nouvel élément. De cette façon, le tableau de fin n'aura jamais d'entrées inutilisées.

ReDim aArray(-1) 

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

MsgBox Join(aArray, "," & vbNewLine) 

Autre solution proposée par Carlos est de le faire en utilisant objet Dictionary qui est une solution probablement plus propre:

Set dic = CreateObject("Scripting.Dictionary") 

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

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

Merci, Maciej

Answer 2

Que diriez-vous d'un objet Dictionary?