Objetos de dicionário VBScript

Um objeto Dicionário pode ser comparado a uma matriz associativa PERL. Quaisquer valores podem ser armazenados na matriz e cada item é associado a uma chave exclusiva. A chave é usada para recuperar um elemento individual e geralmente é um número inteiro ou uma string, mas pode ser qualquer coisa, exceto uma matriz.

Sintaxe

As classes VBScript são colocadas dentro de Class .... End Class.

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

Exemplo

<!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>

Existem vários métodos associados a DataDictionary Objects que permitem aos desenvolvedores trabalhar com objetos de dicionário perfeitamente.

Existe Método

O método Exist ajuda o usuário a verificar se o par de valor-chave existe ou não.

object.Exists(key)

Descrição do Parâmetro

Object, um parâmetro obrigatório. Isso representa o nome do Objeto de Dicionário.
Key, um parâmetro obrigatório. Isso representa o valor do objeto Dicionário.

Exemplo

<!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>

Salve o arquivo como .HTML e, ao executar o script acima no IE, ele exibe a seguinte mensagem em uma caixa de mensagem.

Specified key exists.

Método de Itens

O método de itens nos ajuda a obter os valores armazenados no par de valores-chave do objeto de dicionário de dados.

object.Items( )

Descrição do Parâmetro

Object, um parâmetro obrigatório. Isso representa o nome do Objeto de Dicionário.

Exemplo

<!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>

Salve o arquivo como .HTML e, ao executar o script acima no IE, ele exibe a seguinte mensagem em uma caixa de mensagem.

Apple
C++

Método de Chaves

object.Keys( )

Descrição do Parâmetro

Object, um parâmetro obrigatório. Isso representa o nome do Objeto de Dicionário.

Exemplo

<!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>

Salve o arquivo como .HTML e, ao executar o script acima no IE, ele exibe a seguinte mensagem em uma caixa de mensagem.

a
c

Método de remoção

object.Remove(key)

Descrição do Parâmetro

Object, um parâmetro obrigatório. Isso representa o nome do Objeto de Dicionário.
Key, um parâmetro obrigatório. Isso representa o par de valores-chave que precisa ser removido do Objeto de Dicionário.

Exemplo

<!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>

Salve o arquivo como .HTML e, ao executar o script acima no IE, ele exibe a seguinte mensagem em uma caixa de mensagem.

a
c

Remover todos os métodos

object.RemoveAll()

Descrição do Parâmetro

Object, um parâmetro obrigatório. Isso representa o nome do Objeto de Dicionário.

Exemplo

<!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