- Сообщения
- 7,989
- Решения
- 11
- Реакции
- 6,758
Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Set Dict = CreateObject("Scripting.Dictionary")
Возвращаемое значение: число, количество элементов коллекции.Count
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add 1, "One"
Dict.Add 2, "Two"
MsgBox Dict.Count
Возвращаемое значение: элемент коллекции, соответствующий заданному ключу.Item(<Key>)
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add 1, "One"
Dict.Add 2, "Two"
Dict.Item(1) = "Один"
MsgBox Dict.Item(1)
MsgBox Dict.Item(2)
Возвращаемое значение: устанавливает новое значение ключа в коллекции.Key(<Key>)=<NewKey>
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add 1, "One"
Dict.Add 2, "Two"
Dict.Key(1) = "Eins"
MsgBox Dict.Item("Eins")
MsgBox Dict.Item(2)
Возвращаемое значение: устанавливает способ сравнения ключей коллекции. Установка свойства возможна, только если коллекция пуста. Возможные значения:CompareMode
On Error Resume Next
Set Dict = CreateObject("Scripting.Dictionary")
Dict.CompareMode = 1
Dict.Add "a", "One"
Dict.Add "A", "Two"
If Not Err.Number=0 Then MsgBox "CompareMode = 1" & vbCrLf & Err.Description
Err.Clear
Dict.RemoveAll
Dict.CompareMode = 0
Dict.Add "a", "One"
Dict.Add "A", "Two"
If Not Err.Number=0 Then MsgBox "CompareMode = 0" & vbCrLf & Err.Description
Назначение: добавляет элемент в коллекцию.Add(<Key>,<Item>)
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "a", "One"
Dict.Add 1, "Two"
Назначение: проверяет существование ключа в коллекции. Если да, возвращает True, иначе - False.Exists(<Key>)
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "a", "One"
Dict.Add 1, "Two"
If Dict.Exists(1) Then MsgBox "Ключ существует!"
Назначение: удаляет ключ и его элемент из коллекции. Если такой ключ не существует, возникнет ошибка.Remove(<Key>)
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "a", "One"
Dict.Add 1, "Two"
If Dict.Exists(1) Then Dict.Remove(1)
Назначение: очищает коллекцию.RemoveAll
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "a", "One"
Dict.Add 1, "Two"
Dict.RemoveAll
MsgBox Dict.Count
Назначение: возвращает массив элементов коллекции. Позволяет перебрать коллекцию в цикле.Items
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "a", "One"
Dict.Add 1, "Two"
Arr = Dict.Items
For i=0 To Dict.Count-1
MsgBox Arr(i)
Next
Назначение: возвращает массив ключей коллекции. Позволяет перебрать коллекцию в цикле.
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "a", "One"
Dict.Add 1, "Two"
Arr = Dict.Keys
For i=0 To Dict.Count-1
MsgBox Arr(i)
Next