Método Item

Define o devuelve un elemento para una clave especificada en un objeto Dictionary. Para las recopilaciones, devuelve un elemento basado en la clave especificada. Lectura/escritura.

Sintaxis

object.Item(key)[ = newitem]

Argumentos:

• Object: necesario. Siempre es el nombre de una recopilación o un objeto Dictionary.

• Key: necesario. Clave asociada al elemento que se está recuperando o agregando.

• Newitem: opcional. Se utiliza solo para objetos Dictionary; no se aplica a las recopilaciones. Si se proporciona, newitem es el nuevo valor asociado a la clave especificada.

Observaciones

Si no se encuentra la clave al cambiar un elemento, se crea una nueva clave con el valor newitem especificado. Si no se encuentra la clave al intentar devolver un elemento existente, se crea una nueva clave y el elemento correspondiente se deja vacío.

En el siguiente ejemplo se muestra el uso de la propiedad Item.

Ejemplo 1:

Function GetItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "a", "Athens"
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"

    ' Get the item for key "c".
    GetItem = d.Item("c")
End Function

' Usage
Dim result
result = GetItem()
' Output: Cairo

Ejemplo 2:

Function SetExistingItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "x", "Xenon"
    d.Add "y", "Yttrium"
    d.Add "z", "Zirconium"

    ' Set a new item for key "y".
    d.Item("y") = "Yosemite"

    ' Get the item for key "y".
    SetExistingItem = d.Item("y")
End Function

' Usage
Dim result
result = SetExistingItem()
' Output: Yosemite

Ejemplo 3:

Function AddNewItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "m", "Moscow"
    d.Add "n", "New York"
    d.Add "t", "Tokyo"

    ' Attempt to get an item for a non-existing key and set a new item.
    d.Item("p") = "Paris"

    ' Get the item for the newly added key "p".
    AddNewItem = d.Item("p")
End Function

' Usage
Dim result
result = AddNewItem()
' Output: Paris