Items Method

Returns an array containing all the items in a Dictionary object.

Syntax

object.Items( )

Arguments

Object: Required. Always the name of a Dictionary object.

Remarks

The following code illustrates use of the Items method:

Example 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 items.
    a = d.Items

    ' 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: Athens Belgrade Cairo

Example 2:

Function DicItemsWithKeys
    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 items.
    a = d.Items
    keysArray = d.Keys

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

    DicItemsWithKeys = s
End Function

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

Example 3:

Function CountSpecificItems(targetItem)
    Dim a, d, i, count
    Set d = CreateObject("Scripting.Dictionary")

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

    ' Add duplicate items for counting
    d.Add "s", "Paris"
    d.Add "y", "Tokyo"

    ' Get the items.
    a = d.Items

    ' Count the target item
    count = 0
    For i = 0 To d.Count - 1
        If a(i) = targetItem Then
            count = count + 1
        End If
    Next

    CountSpecificItems = targetItem & " occurs " & count & " times."
End Function

' Usage
Dim result
result = CountSpecificItems("Paris")
' Output: Paris occurs 2 times.