Item-Methode

Legt ein Element für einen angegebenen Schlüssel in einem Dictionary-Objekt fest oder gibt es zurück. Gibt bei Collections ein Element basierend auf dem angegebenen Schlüssel zurück. Lesen/Schreiben.

Syntax

object.Item(key)[ = newitem]

Argumente:

• Object: Erforderlich. Immer der Name eines Collection- oder Dictionary-Objekts.

• Key: Erforderlich. Schlüssel, der dem abgerufenen oder hinzugefügten Element zugeordnet ist.

• Newitem: Optional. Wird nur für Dictionary-Objekte verwendet; keine Anwendung bei Collections. Wenn diese Option angegeben wird, ist newitem der neue Wert, der dem angegebenen Schlüssel zugeordnet wird.

Anmerkungen

Wenn beim Ändern eines Elements kein Schlüssel gefunden wird, wird ein neuer Schlüssel mit dem angegebenen newitem-Wert erstellt. Wenn beim Versuch, ein vorhandenes Element zurückzugeben, kein Schlüssel gefunden wird, wird ein neuer Schlüssel erstellt, und das entsprechende Element bleibt leer.

Das folgende Beispiel veranschaulicht die Verwendung der Eigenschaft Item.

Beispiel 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

Beispiel 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

Beispiel 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