Author Topic: IDictionary.Keys Method  (Read 2792 times)

0 Members and 1 Guest are viewing this topic.

Offline José Roca

  • Administrator
  • Hero Member
  • *****
  • Posts: 2517
  • User-Rate: +209/-0
  • Gender: Male
IDictionary.Keys Method
« on: July 13, 2008, 10:15:18 PM »

The following example illustrates the use of the Keys method

JScript

Code: [Select]
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.
}

VBScript

Code: [Select]
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

PowerBASIC

Code: [Select]
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
« Last Edit: July 13, 2008, 10:57:54 PM by José Roca »