Objetos del diccionario VBScript

Un objeto Dictionary se puede comparar con una matriz asociativa PERL. Cualquier valor se puede almacenar en la matriz y cada elemento está asociado con una clave única. La clave se usa para recuperar un elemento individual y generalmente es un número entero o una cadena, pero puede ser cualquier cosa excepto una matriz.

Sintaxis

Las clases de VBScript se incluyen en Class .... End Class.

Dim variablename
Set variablename = CreateObject("Scripting.Dictionary")
variablename.Add (key, item)

Ejemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim obj_datadict   ' Create a variable.
         Set obj_datadict = CreateObject("Scripting.Dictionary")
         
         obj_datadict.Add "a", "Apple"   ' Add some keys and items.
         obj_datadict.Add "b", "Bluetooth"
         obj_datadict.Add "c", "Clear"

      </script>
   </body>
</html>

Hay varios métodos asociados con los objetos DataDictionary que permiten a los desarrolladores trabajar con objetos de diccionario sin problemas.

Método existente

El método Exist ayuda al usuario a comprobar si existe o no el par de valor clave.

object.Exists(key)

Descripción de parámetros

Object, un parámetro obligatorio. Esto representa el nombre del objeto de diccionario.
Key, un parámetro obligatorio. Esto representa el valor del objeto de diccionario.

Ejemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim d, msg   ' Create some variables.
         Set d = CreateObject("Scripting.Dictionary")
         d.Add "a", "Apple"   ' Add some   keys and items.
         d.Add "b", "BlueTooth"
         d.Add "c", "C++"
         
         If d.Exists("c") Then
            msgbox  "Specified key exists."
         Else
            msgbox  "Specified key doesn't exist."
         End If

      </script>
   </body>
</html>

Guarde el archivo como .HTML y, al ejecutar el script anterior en IE, muestra el siguiente mensaje en un cuadro de mensaje.

Specified key exists.

Método de artículos

El método Items nos ayuda a obtener los valores almacenados en el par clave-valor del objeto del diccionario de datos.

object.Items( )

Descripción de parámetros

Object, un parámetro obligatorio. Esto representa el nombre del objeto de diccionario.

Ejemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim obj_datadict   ' Create a variable.
         Set obj_datadict = CreateObject("Scripting.Dictionary")
         obj_datadict.Add "a", "Apple"   ' Add some keys and items.
         obj_datadict.Add "b", "Bluetooth"
         obj_datadict.Add "c", "C++"
         a = obj_datadict.items
         
         msgbox a(0)
         msgbox a(2)

      </script>
   </body>
</html>

Guarde el archivo como .HTML y, al ejecutar el script anterior en IE, muestra el siguiente mensaje en un cuadro de mensaje.

Apple
C++

Método de claves

object.Keys( )

Descripción de parámetros

Object, un parámetro obligatorio. Esto representa el nombre del objeto de diccionario.

Ejemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim obj_datadict   ' Create a variable.
         Set obj_datadict = CreateObject("Scripting.Dictionary")
         obj_datadict.Add "a", "Apple"   ' Add some keys and items.
         obj_datadict.Add "b", "Bluetooth"
         obj_datadict.Add "c", "C++"
         a = obj_datadict.Keys
         
         msgbox a(0)
         msgbox a(2)

      </script>
   </body>
</html>

Guarde el archivo como .HTML y, al ejecutar el script anterior en IE, muestra el siguiente mensaje en un cuadro de mensaje.

a
c

Eliminar método

object.Remove(key)

Descripción de parámetros

Object, un parámetro obligatorio. Esto representa el nombre del objeto de diccionario.
Key, un parámetro obligatorio. Esto representa el par clave-valor que debe eliminarse del objeto de diccionario.

Ejemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim obj_datadict   ' Create a variable.
         Set obj_datadict = CreateObject("Scripting.Dictionary")
         obj_datadict.Add "a", "Apple"   ' Add some keys and items.
         obj_datadict.Add "b", "Bluetooth"
         obj_datadict.Add "c", "C++"
         a = obj_datadict.Keys
         
         msgbox a(0)
         msgbox a(2)

         obj_datadict.remove("b")  'The key value pair of "b" is removed'
         
      </script>
   </body>
</html>

Guarde el archivo como .HTML y, al ejecutar el script anterior en IE, muestra el siguiente mensaje en un cuadro de mensaje.

a
c

Eliminar todo método

object.RemoveAll()

Descripción de parámetros

Object, un parámetro obligatorio. Esto representa el nombre del objeto de diccionario.

Ejemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         Dim obj_datadict   ' Create a variable.
         Set obj_datadict = CreateObject("Scripting.Dictionary")
         obj_datadict.Add "a", "Apple"   ' Add some keys and items.
         obj_datadict.Add "b", "Bluetooth"
         obj_datadict.Add "c", "C++"
         a = obj_datadict.Keys
         
         msgbox a(0)
         msgbox a(2)

         obj_datadict.removeall

      </script>
   </body>
</html>

↰ Previous page