Объект словаря
Объекты словаря используются для хранения информации в парах имя/значение (эквивалентно ключам и элементам). Объекты словаря кажутся более простыми, чем массивы, однако объекты словаря являются более удовлетворительным решением для обработки связанных данных.
Сравните словарь и массив:
Ключи используются для идентификации элементов в объекте Dictionary.
Нет необходимости вызывать ReDim для изменения размеров объекта Dictionary.
Когда элемент удаляется из Dictionary, оставшиеся элементы автоматически перемещаются вверх
. , тогда как массивы
. Словарь имеет больше возможностей по сравнению с массивами. Встроенный
словарь объектов работает лучше, чем массивы, при частом доступе к случайным элементам.
Словарь работает лучше, чем массивы, при поиске элементов на основе их содержимого.
Свойства и методы объекта Dictionary описаны следующим образом:
Свойства
CompareMode: устанавливает или возвращает режим сравнения, используемый для сравнения ключей в объектах словаря.
Count: возвращает количество пар ключ/элемент в объекте Dictionary.
Item: устанавливает или возвращает значение элемента в объекте Dictionary.
Ключ: установите новое значение ключа для существующего значения ключа в объекте «Словарь».
метод
Добавить: добавляет новую пару ключ/элемент в объект словаря.
Exists: возвращает логическое значение, указывающее, существует ли указанный ключ в объекте Dictionary.
Items: возвращает массив всех элементов объекта Dictionary.
Ключи: возвращает массив всех ключей в объекте Dictionary.
Удалить: удаляет указанную пару ключ/элемент из объекта Dictionary.
RemoveAll: удаляет все пары ключ/элемент в объекте Dictionary.
программный код
<%
Dim oDic,aItems,aKeys
Set oDic = Server.CreateObject("Scripting.Dictionary")
'Добавить
oDic.Добавьте "ааа",111
oDic.Добавьте "bbb",222
oDic.Добавьте "ccc",333
oDic.Add "ddd",444
'Изменить
Если oDic.Exists("aaa") Тогда
oDic.key("aaa") = "eee" 'ключевой атрибут, только для чтения
oDic.item("eee") = 555 'атрибут элемента, доступный для чтения и записи
Завершить
список
if
aKeys = oDic.Keys
aItems = oDic.Items
Для i=0 в oDic.Count-1
Response.Write(aKeys(i) & "," & aItems(i))
Далее
'Удалить
Ответ.Запись(oDic.Count)
oDic.Remove("eee") 'Удалить пары ключей и элементов из объекта Dictionary
Ответ.Запись(oDic.Count)
oDic.RemoveAll() 'Удалить все пары ключей и элементов в объекте Dictionary
Response.Write(oDic.Count)
Установить oDic = Ничего
%>