Classe Dictionary - dictionnaire (Scripting VBA)
Objet qui stocke les paires de clés/éléments de données. Pour utiliser une variable de classe Dictionary, elle doit d'abord être instanciée, par exemple
Add
Ajoute une clé et une paire d’éléments à un objet dictionary .
Une erreur se produit si la clé existe.
Arguments
Les arguments nommés :
Key (Variant) - Clé associée à l'élément ajouté.
Item (Variant) - Élément associé à la clé ajoutée.
CompareMode
Définit et renvoie le mode de comparaison pour comparer des clés de chaîne dans un objet dictionary . Les valeurs de retour possibles sont BinaryCompare, DatabaseCompare, TextCompare.
Une erreur se produit si vous tentez de changer le mode de comparaison d’un objet Dictionary qui contient déjà des données. La propriété CompareMode utilise les mêmes valeurs que l’argument compare de la fonction StrComp. Les valeurs supérieures à 2 peuvent être utilisées pour faire référence à des comparaisons à l’aide d’identificateurs de paramètres régionaux (LCID) spécifiques.
Count
Renvoie un type long (entier long) contenant le nombre d’éléments dans une collection ou un objet dictionary . En lecture seule.
Le code suivant illustre l’utilisation de la propriété Count .
Dim a, d, i 'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" 'Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Keys 'Get the keys
For i = 0 To d.Count -1 'Iterate the array
Print a(i) 'Print key
Next
...
Exists
Renvoie la valeur true si une clé spécifiée existe dans l’objet dictionary ; False dans le cas contraire.
Exists (Key)
Key: Valeur clé recherchée dans l'objet Dictionary.
Items
Renvoie un tableau contenant tous les éléments d’un objet dictionary .
Le code suivant illustre l’utilisation de la méthode Items :
Dim a, d, i 'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" 'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Items 'Get the items
For i = 0 To d.Count -1 'Iterate the array
Print a(i) 'Print item
Next
...
Key
Définit une clé dans un objet dictionary .
Si l’argument key est introuvable lors de la modification d’une clé, une erreur d’exécution se produit.
Key (Key)
Key: Valeur de clé modifiée.
Keys
Renvoie un tableau contenant toutes les clés existantes dans un objet dictionary .
Le code suivant illustre l’utilisation de la méthode Keys :
Dim a, d, i 'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" 'Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.keys 'Get the keys
For i = 0 To d.Count -1 'Iterate the array
Print a(i) 'Print key
Next
...
Remove
Supprime un membre d’une collection ou supprime un contrôle d’un cadre, d’une pageou d’un formulaire.
Cette méthode supprime tous les contrôles ajoutés à l’exécution. Toutefois, la tentative de suppression des contrôles ajoutés au moment de la conception provoquera une erreur.
Remove (Key)
Key: Position d’un membre, ou index, dans une collection. Les valeurs numériques et de type String sont valides. Si la valeur est un nombre, la valeur minimale est zéro et la valeur maximale correspond au nombre de membres de la collection moins un. Si la valeur est une chaîne, elle doit correspondre à un nom de membre valide.
RemoveAll
La méthode RemoveAll supprime toutes les paires clé/élément d’un objet dictionary .
Le code suivant illustre l’utilisation de la méthode RemoveAll .
Dim a, d, i 'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" 'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
a = d.RemoveAll 'Clear the dictionary