The following example illustrates the use of the
Keys method
JScript
function GetKeys()
{
var a, d, i, s; // Create some variables.
d = new ActiveXObject("Scripting.Dictionary");
d.Add ("a", "Athens"); // Add some keys and items.
d.Add ("b", "Belgrade");
d.Add ("c", "Cairo");
a = (new VBArray(d.Keys())).toArray(); // Get the keys.
s = "";
for (i in a) // Iterate the dictionary.
{
s += a[i] + " - " + d(a[i]) + "<br>";
}
return(s); // Return the results.
}
Function GetKeys
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.Keys ' Get the keys.
For i = 0 To d.Count -1 ' Iterate the array.
s = s & a(i) & "<BR>" ' Return results.
Next
GetKeys = s
End Function
FUNCTION GetKeys () AS STRING
LOCAL d AS IDictionary
LOCAL vKey AS VARIANT
LOCAL vItem AS VARIANT
LOCAL vKeys AS VARIANT
LOCAL i AS LONG
LOCAL s AS STRING
DIM vArray(0) AS VARIANT
d = NEWCOM "Scripting.Dictionary"
vKey = "a" : vItem = "Athens"
d.Add vKey, vItem
vKey = "b" : vItem = "Belgrade"
d.Add vKey, vItem
vKey = "c" : vItem = "Cairo"
d.Add vKey, vItem
vKeys = d.Keys
vArray() = vKeys
FOR i = LBOUND(vArray) TO UBOUND(vArray)
s = s & VARIANT$(vArray(i)) & $CRLF
NEXT
FUNCTION = s
END FUNCTION