Keys 方法

返回包含 Dictionary 对象中所有现有键的数组。

语法

object.Keys( )

参数

Object：必需。始终为 Dictionary 对象的名称。

注释

以下代码说明了 Keys 方法的用法：

示例 1：

Function DicDemo
    Dim a, d, i, s   ' 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 keys.
    a = d.Keys

    ' Iterate the array
    For i = 0 To d.Count - 1
        s = s & a(i) ' Create return string
    Next

    DicDemo = s
End Function

' Usage
Dim result
result = DicDemo
' Output: a b c

示例 2：

Function DicKeysWithItems
    Dim a, d, i, s   ' 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"

    ' Get the keys.
    a = d.Keys

    ' Iterate the array
    For i = 0 To d.Count - 1
        s = s & "Key: " & a(i) & ", Item: " & d.Item(a(i))
    Next

    DicKeysWithItems = s
End Function

' Usage
Dim result
result = DicKeysWithItems
' Output: Key: x, Item: Xenon Key: y, Item: Yttrium Key: z, Item: Zirconium

示例 3：

Function CheckAndRemoveKey(keyToRemove)
    Dim a, d, i, s   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "m", "Moscow"
    d.Add "t", "Tokyo"
    d.Add "n", "New York"

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

    ' Get the remaining keys.
    a = d.Keys
    For i = 0 To d.Count - 1
        s = s & "Remaining Key: " & a(i)
    Next

    CheckAndRemoveKey = s
End Function

' Usage
Dim result
result = CheckAndRemoveKey("t")
' Output: Key 't' removed. Remaining Key: m Remaining Key: n