TUTOS.EU

Utiliser un dictionnaire en VbScript

Comment se servir d'un dictionnaire en VbScript

Exemple de création d'un dictionnaire, d'ajout d’éléments et de listage des éléments

Option Explicit
'2015 04 15 version

Dim odjDictionary, varMesCles, varCompteur, varUneCle, varUneValeur 'Pour un dictionnaire qui va contenir la liste des adresses MAC
set odjDictionary = CreateObject("Scripting.Dictionary") 'Création du dictionnaire
	

Wscript.echo "Ajout d'éléments au dictionnaire"

odjDictionary.Add "Key1", "Item1"
odjDictionary.Add "Key2", "Item2"
odjDictionary.Add "Key3", "Item3"

varUneCle = "Key4"
varUneValeur = "Item4"

'On va ajouter une clé et une valeur associée uniquement si la clé n'existe pas déjà
if odjDictionary.Exists(varUneCle) then
	'Do Nothing
else
	odjDictionary.Add varUneCle, varUneValeur
end if	

'Affichage du contenu du dictionnaire
Wscript.Echo "Affichage du contenu du dictionnaire"
varMesCles=odjDictionary.keys 'Récupération des clés du dictionnaire
For varCompteur=0 To ubound(varMesCles) 'Pour toutes les clés du dictionnaire
	Wscript.echo (varMesCles(varCompteur)) & " : " & odjDictionary.item(varMesCles(varCompteur)) 'On affiche dans un premier temps la clé puis juste à côté la valeur associée
Next
Wscript.Echo ""

set odjDictionary = Nothing
Lien vers le fichier : cliquez ici Copier le code

Pages Web

Site WebDescription
Tahe.developpez.comLes bases de la programmation VBSCRIP : Les dictionnaires
Technet.microsoft.comThe Dictionary Object

2