Méthode Item

Définit ou renvoie un élément pour une clé spécifiée dans un objet Dictionary. Pour les collections, renvoie un élément en fonction de la clé spécifiée. Lecture/écriture.

Syntaxe

object.Item(key)[ = newitem]

Arguments :

• object : requis. Toujours le nom d'une collection ou d'un objet Dictionary.

• key : requis. Clé associée à l'élément qui est extrait ou ajouté.

• newitem : facultatif. Utilisé pour l'objet Dictionary uniquement. Non applicable pour les collections. Si l'argument newitem est renseigné, il représente la nouvelle valeur associée à la clé indiquée.

Remarques

Si la clé est introuvable lors de la modification d'un élément, une autre clé est créée avec la valeur indiquée pour newitem. Si la clé est introuvable lors de la tentative de renvoi d'un élément existant, une autre clé est créée et l'élément correspondant est laissé vide.

Les exemples suivants illustrent l'utilisation de la propriété Item.

Exemple 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

Exemple 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

Exemple 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