Metodo Remove

Rimuove una coppia chiave/elemento da un oggetto Dictionary.

Sintassi

object.Remove(key)

Argomenti:

• Object: obbligatorio. Sempre il nome dell'oggetto Dictionary.

• Key: obbligatorio. Chiave associata alla coppia chiave/elemento che si desidera rimuovere dall'oggetto Dictionary.

Note

Si verifica un errore se la coppia chiave/elemento specificata non esiste.

Nel codice seguente viene illustrato l'uso del metodo Remove.

Esempio 1

Dim d   ' Create a variable.
Set d = CreateObject("Scripting.Dictionary")

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

' Remove the key "b" and its associated item
d.Remove("b")

' Output: Dictionary Object Contains Keys: a,c Items : Athens,Cairo

Esempio 2

Function RemoveKey(keyToRemove)
    Dim d, msg   ' 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"

    ' Check and remove key
    If d.Exists(keyToRemove) Then
        d.Remove(keyToRemove)
        msg = "Key '" & keyToRemove & "' removed."
    Else
        msg = "Key '" & keyToRemove & "' not found."
    End If

    ' Display remaining items
    For Each Key In d.Keys
        msg = msg & "Key: " & Key & ", Item: " & d.Item(Key)
    Next

    RemoveKey = msg
End Function

' Usage
Dim result
result = RemoveKey("y")
' Output: Key 'y' removed. Key: x, Item: Xenon Key: z, Item: Zirconium

Esempio 3

Function RemoveMultipleKeys(keysToRemove)
    Dim d, msg   ' 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"
    d.Add "t", "Tokyo"

    ' Check and remove each key
    For Each key In keysToRemove
        If d.Exists(key) Then
            d.Remove(key)
            msg = msg & "Key '" & key & "' removed."
        Else
            msg = msg & "Key '" & key & "' not found."
        End If
    Next

    ' Display remaining items
    msg = msg & "Remaining items:"
    For Each Key In d.Keys
        msg = msg & "Key: " & Key & ", Item: " & d.Item(Key)
    Next

    RemoveMultipleKeys = msg
End Function

' Usage
Dim keysToRemove
keysToRemove = Array("n", "t", "x")
Dim result
result = RemoveMultipleKeys(keysToRemove)
' Output: Key 'n' removed. Key 't' removed. Key 'x' not found. Remaining items: Key: m, Item: Moscow Key: p, Item: Paris