Método Remove

Remove um par de chave/item de um objeto Dictionary.

Sintaxe

object.Remove(key)

Argumentos:

• Object: Obrigatório. Sempre o nome de um objeto Dictionary.

• Key: Obrigatório. Chave associada par de chave/item a ser removido do objeto Dictionary.

Comentários

Ocorrerá um erro se o par de chave/item especificado não existir.

O código a seguir ilustra o uso do método Remove:

Exemplo 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

Exemplo 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

Exemplo 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