Objeto de dicionário
Os objetos Dicionário são usados para armazenar informações em pares nome/valor (equivalentes a chaves e itens). Os objetos Dicionário parecem ser mais simples que os arrays, no entanto, os objetos Dicionário são uma solução mais satisfatória para lidar com dados relacionados
.
As chaves são usadas para identificar itens em um objeto Dicionário.
Não há necessidade de chamar ReDim para alterar as dimensões do objeto Dicionário.
Quando um item é excluído de um Dicionário, os itens restantes são movidos automaticamente para cima
. , enquanto os arrays são
. Dictionary tem mais em comparação com os arrays. O objeto integrado
Dictionary funciona melhor do que os arrays ao acessar elementos aleatórios.
O Dictionary funciona melhor do que os arrays ao localizar itens com base em seu conteúdo.
As propriedades e métodos do objeto Dicionário são descritos a seguir:
Propriedades
CompareMode: Define ou retorna o modo de comparação usado para comparar chaves em objetos Dicionário.
Contagem: Retorna o número de pares chave/item no objeto Dicionário.
Item: Define ou retorna o valor de um item no objeto Dicionário.
Chave: defina um novo valor de chave para o valor de chave existente no objeto Dicionário.
método
Adicionar: Adiciona um novo par chave/item ao objeto Dicionário.
Existe: Retorna um valor lógico que indica se a chave especificada existe no objeto Dicionário.
Itens: Retorna uma matriz de todos os itens do objeto Dicionário.
Chaves: Retorna uma matriz de todas as chaves no objeto Dicionário.
Remover: Remove o par chave/item especificado do objeto Dicionário.
RemoveAll: Remove todos os pares chave/item no objeto Dicionário.
código do programa
<%
Dim oDic,aItems,aKeys
Definir oDic = Server.CreateObject("Scripting.Dictionary")
'Adicionar
oDic.Adicionar "aaa",111
oDic.Add "bbb",222
oDic.Adicionar "ccc",333
oDic.Add "ddd",444
'Modificar
Se oDic.Exists("aaa") Então
oDic.key("aaa") = "eee" 'atributo chave, somente leitura
oDic.item("eee") = 555 'atributo do item, legível e gravável
Terminar se
'Lista
aKeys = oDic.Keys
aItems = oDic.Items
Para i=0 Para oDic.Count-1
Response.Write(aKeys(i) & "," & aItems(i))
Próximo
'Excluir
Resposta.Write(oDic.Count)
oDic.Remove("eee") 'Remove pares de chaves e itens do objeto Dicionário
Resposta.Write(oDic.Count)
oDic.RemoveAll() 'Remove todos os pares de chaves e itens no objeto Dicionário
Response.Write(oDic.Count)
Definir oDic = Nada
%>