Collection (gb)

Implementa una tabla hash (en la cual se pueden buscar rápidamente pares clave-valor), en la que los elementos tienen una clave de tipo cadena y los valores son de tipo variant.

Cuando no hay nada asociado a una clave, se emplea el valor NULL. En consecuencia, asociar el valor NULL con una clave, tiene el mismo efecto que eliminarlo de la colección.

El tamaño de la tabla hash interna crece automáticamente al insertar datos.

This class is creatable.

This class acts like a read / write array.

This class is enumerable with the FOR EACH keyword.

Properties

Count	Devuelve el número de elementos almacenados en la colección.
Default
Empty
First
Key	Devuelve la clave del último elemento leído o enumerado.
Keys
Last
Length	Devuelve el número de elementos almacenados en la colección.
ReadOnly

Methods

Add	Añade un elemento a la colección.
Clear	Elimina todos los elementos de la colección.
Copy
Equals
Exist	Devuelve TRUE si hay algo asociado con la clave indicada en la colección.
Insert
Remove	Elimina un elemento de la colección.

Ejemplo

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

  ' To access the data
  PRINT cAbbr2Weekday["fr"]

  ' Print mapping key to value
  FOR EACH sAbbr IN cAbbr2Weekday
    PRINT cAbbr2Weekday.Key & " --> " & sAbbr
  NEXT

  ' Lenght/Count return both 7
  PRINT cAbbr2Weekday.Count
  PRINT cAbbr2Weekday.Length

  ' Add element and remove it again
  cAbbr2Weekday.Add("sat", "Saturday")
  cAbbr2Weekday.Remove("sat")

  ' Test if a key is present
  PRINT cAbbr2Weekday.Exist("we")

  ' Make a copy and clear the original collection
  cCopy = cAbbr2Weekday.Copy()
  cAbbr2Weekday.Clear()

END