Resumen del uso del objeto Diccionario ASP

Objeto de diccionario

(

equivalentes a claves y elementos). Los objetos de diccionario parecen ser más simples que las matrices; sin embargo, los objetos de diccionario son una solución más satisfactoria para manejar datos relacionados.

Las claves se utilizan para identificar elementos en un objeto Diccionario.

No es necesario llamar a ReDim para cambiar las dimensiones del objeto Diccionario.

Cuando se elimina un elemento de un Diccionario, los elementos restantes se mueven hacia arriba automáticamente

. , mientras que las matrices son

. El diccionario tiene más en comparación con las matrices. El diccionario de objetos integrado

que las

matrices cuando se accede a elementos aleatorios con frecuencia.

Las propiedades y métodos del objeto Diccionario se describen a continuación:

Propiedades
CompareMode: establece o devuelve el modo de comparación utilizado para comparar claves en objetos del Diccionario.
Recuento: Devuelve el número de pares clave/elemento en el objeto Diccionario.
Elemento: establece o devuelve el valor de un elemento en el objeto Diccionario.
Clave: establezca un nuevo valor de clave para el valor de clave existente en el objeto Diccionario.

método
Agregar: agrega un nuevo par clave/elemento al objeto Diccionario.
Existe: devuelve un valor lógico que indica si la clave especificada existe en el objeto Diccionario.
Elementos: devuelve una matriz de todos los elementos del objeto Diccionario.
Claves: devuelve una matriz de todas las claves del objeto Diccionario.
Eliminar: elimina el par clave/elemento especificado del objeto Diccionario.
RemoveAll: Elimina todos los pares clave/elemento en el objeto Diccionario.

código de programa
<%
Dim oDic,aItems,aKeys
Establecer oDic = Server.CreateObject("Scripting.Dictionary")

'Agregar
oDic.Añadir "aaa",111
oDic.Añadir "bbb",222
oDic.Añadir "ccc",333
oDic.Add "ddd",444

'Modificar
Si oDic.Exists("aaa") Entonces
oDic.key("aaa") = "eee" 'atributo clave, solo lectura
oDic.item("eee") = 555 'atributo de elemento, legible y escribible
Terminar si

'lista
aKeys = oDic.Keys
aItems = oDic.Items
Para i=0 a oDic.Count-1
Respuesta.Escribir(aKeys(i) & "," & aItems(i))
Siguiente

'Eliminar
Respuesta.Escribir(oDic.Count)
oDic.Remove("eee") 'Eliminar pares de clave y elemento del objeto Diccionario
Respuesta.Escribir(oDic.Count)
oDic.RemoveAll() 'Elimina todos los pares de claves y elementos en el objeto Diccionario
Response.Write(oDic.Count)

Establecer oDic = Nada
%>