Método Item

Define ou retorna um item para uma chave especificada em um objeto Dictionary. Para coleções, retorna um item com base na chave especificada. Leitura/gravação.

Sintaxe

object.Item(key)[ = newitem]

Argumentos:

• Object: Obrigatório. Sempre o nome de um objeto Dictionary ou de uma coleção.

• Key: Obrigatório. Chave associada ao item a ser recuperado ou adicionado.

• Newitem: Opcional. Usado somente para o objeto Dictionary; não aplicável a coleções. Se fornecido, o newitem será o novo valor associado à chave especificada.

Comentários

Se a chave não for encontrada durante a alteração de um item, uma nova chave será criada com o newitem especificado. Se a chave não for encontrada durante a tentativa de retornar um item existente, uma nova chave será criada e seu item correspondente será deixado em branco.

O exemplo a seguir ilustra o uso da propriedade Item.

Exemplo 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

Exemplo 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

Exemplo 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