Returns an array containing all existing keys in a Dictionary object.
Visual Basic |
---|
Public Function Keys() As Variant |
function KeysDemo() { 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 DicDemo 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 DicDemo = s End Function