Collection (gb)
Implémente une table de hachage dont les clefs (keys) sont des
String et les valeurs associées des
Variant.
NULL
est utilisé lorsqu'aucun élément est associé à la clef donnée. En conséquence, associer
NULL
à une clef revient
au même qu'enlever celle-ci de la collection.
La taille de la table interne de hachage grossit dynamiquement au fur et à mesure que des données y sont insérées.
Propriétés
Count
|
Renvoie le nombre d'éléments enregistrés dans la collection.
|
Default
|
|
Empty
|
|
First
|
|
Key
|
Retourne la clef (key) du dernier élément lu ou énuméré.
|
Keys
|
|
Last
|
|
Length
|
Retourne le nombre d'éléments enregistrés dans la collection.
|
ReadOnly
|
|
Méthodes
Add
|
Ajoute un élément à la collection.
|
Clear
|
Efface la collection.
|
Copy
|
Retourne une copie de la collection.
|
Equals
|
|
Exist
|
Retourne si un élément est associé avec cette clef (key) dans la collection.
|
Remove
|
Supprime un élément de la collection.
|
Exemple
PUBLIC SUB Main()
DIM cAbbr2Weekday AS Collection = ["mo": "Monday", "tu": "Tuesday", "we": "Wednesday", "th": "Thursday", "fr": "Friday", "sa": "Saturday", "su": "Sunday"]
DIM cCopy AS Collection
DIM sAbbr AS String
' Pour accéder aux données
PRINT cAbbr2Weekday["fr"]
' Afficher clef et la valeur correspondante
FOR EACH sAbbr IN cAbbr2Weekday
PRINT cAbbr2Weekday.Key & " --> " & sAbbr
NEXT
' Longueur/Compte retournent tous les deux 7
PRINT cAbbr2Weekday.Count
PRINT cAbbr2Weekday.Length
' Ajouter un élément et le supprimer de nouveau
cAbbr2Weekday.Add("sat", "Saturday")
cAbbr2Weekday.Remove("sat")
' Tester si une clef est présente
PRINT cAbbr2Weekday.Exist("we")
' Faire une copie et effacer la collection originale
cCopy = cAbbr2Weekday.Copy()
cAbbr2Weekday.Clear()
END