IDictionary.Exists Method

[José Roca]

The following example illustrates the use of the Exists method.

JScript

Code Select Expand


function keyExists(k)
{
   var fso, s = "";
   d = new ActiveXObject("Scripting.Dictionary");
   d.Add("a", "Athens");
   d.Add("b", "Belgrade");
   d.Add("c", "Cairo");
   if (d.Exists(k))
      s += "Specified key exists.";
   else
      s += "Specified key doesn't exist.";
   return(s);
}


VBScript

Code Select Expand


Function KeyExists
   Dim d, msg   ' 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"
   If d.Exists("c") Then
      msg = "Specified key exists."
   Else
      msg = "Specified key doesn't exist."
   End If
  KeyExists = msg
End Function


PowerBASIC

Code Select Expand


FUNCTION KeyExists () AS STRING

   LOCAL d AS IDictionary
   LOCAL vKey AS VARIANT
   LOCAL vItem AS VARIANT
   LOCAL strMsg AS STRING

   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
   vKey = "c"
   IF d.Exists(vKey) THEN
      strMesg = "Specified key exists."
   ELSE
      strMsg = "Specified key doesn't exist."
   END OF
   FUNCTION = strMsg

END FUNCTION