Key-Methode

Legt einen Schlüssel in einem Dictionary-Objekt fest.

Syntax

object.Key(key) = newkey

Argumente:

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

• Key: Erforderlich. Zu ändernder Schlüsselwert.

• Newkey: Erforderlich. Neuer Wert, der den angegebenen Schlüssel ersetzt.

Anmerkungen

Wenn beim Ändern eines Schlüssels kein Schlüssel gefunden wird, wird ein neuer Schlüssel erstellt, und das zugehörige Element bleibt leer.

Das folgende Beispiel veranschaulicht die Verwendung der Eigenschaft "Key":

Beispiel 1:

Function ChangeKey
    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"

    ' Change the key "c" to "d"
    d.Key("c") = "d"

    ' Return the associated item for the new key "d"
    ChangeKey = d.Item("d")
End Function

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

Beispiel 2:

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

    ' Add some keys and items.
    d.Add "m", "Moscow"
    d.Add "n", "New York"
    d.Add "p", "Paris"

    ' Update keys
    d.Key("m") = "r"   ' Change "m" to "r"
    d.Key("n") = "s"   ' Change "n" to "s"

    ' Display all items with updated keys
    s = ""
    For Each Key In d.Keys
        s = s & "Key: " & Key & ", Item: " & d.Item(Key)
    Next

    UpdateKeysAndDisplay = s
End Function

' Usage
Dim result
result = UpdateKeysAndDisplay()
' Output: Key: r, Item: Moscow Key: s, Item: New York Key: p, Item: Paris