Dictionary Object (Scripting Runtime Library)

Add Method:

Dim d   ' Create a variable.

Set d =CreateObject("Scripting.Dictionary")

d.Add "a","Athens"   ' Add some keys anditems.

d.Add "b","Belgrade"

d.Add "c","Cairo"

Exists Method:

Function KeyExistsDemo

  Dim d, msg   ' Create somevariables.

   Set d= CreateObject("Scripting.Dictionary")

  d.Add "a", "Athens"  ' Add some   keys and items.

  d.Add "b", "Belgrade"

  d.Add "c", "Cairo"

  If d.Exists("c") Then

      msg = "Specified key exists."

  Else

      msg = "Specified key doesn't exist."

  End If

  KeyExistsDemo = msg

End Function

Items Method:

Function DicDemo

  Dim a, d, i, s   ' Create somevariables.

  Set d = CreateObject("Scripting.Dictionary")

  d.Add "a", "Athens"  ' Add some keys and items.

  d.Add "b", "Belgrade"

  d.Add "c", "Cairo"

  a = d.Items   ' Get theitems.

  For i = 0 To d.Count -1 ' Iterate the array.

      s = s & a(i) &"<BR>" ' Create return string.

  Next

  DicDemo = s

End Function

Keys Method:

Function DicDemo

   Dim a, d, i   ' Create some variables.

   Set d =CreateObject("Scripting.Dictionary")

   d.Add"a", "Athens"   ' Addsome keys and items.

   d.Add"b", "Belgrade"

   d.Add"c", "Cairo"

   a = d.Keys   ' Get the keys.

   For i = 0 Tod.Count -1 ' Iterate the array.

      s = s &a(i) & "<BR>" ' Return results.

   Next

   DicDemo = s

End Function

Remove Method:

Dim a, d   ' Createsome variables.

Set d = CreateObject("Scripting.Dictionary")

d.Add "a", "Athens"   ' Add some keys and items.

d.Add "b", "Belgrade"

d.Add "c", "Cairo"

...

d.Remove("b")   ' Remove second pair.

RemoveAll Method:

Dim a, d, i   'Create some variables.

Set d = CreateObject("Scripting.Dictionary")

d.Add "a", "Athens"   ' Add some keys and items.

d.Add "b", "Belgrade"

d.Add "c", "Cairo"

...

a = d.RemoveAll  ' Clear the dictionary.