Основы офисного программирования и язык VBA


         

Dim MyDict As New BinTree


Public Sub WorkwithBinTree() Dim MyDict As New BinTree Dim englword As String, rusword As String 'Создание словаря
MyDict.SearchAndInsert key:="dictionary", info:="словарь" MyDict.SearchAndInsert key:="hardware", info:="аппаратура, аппаратные средства" MyDict.SearchAndInsert key:="processor", info:="процессор" MyDict.SearchAndInsert key:="backup", info:="резервная копия" MyDict.SearchAndInsert key:="token", info:="лексема" MyDict.SearchAndInsert key:="file", info:="файл" MyDict.SearchAndInsert key:="compiler", info:="компилятор" MyDict.SearchAndInsert key:="account", info:="учетная запись"
'Обход словаря MyDict.PrefixOrder
'Поиск в словаре englword = "account": rusword = "" MyDict.SearchAndInsert key:=englword, info:=rusword Debug.Print englword, rusword
'Удаление из словаря MyDict.DelInTree englword englword = "hardware" MyDict.DelInTree englword
'Обход словаря MyDict.PrefixOrder
End Sub
Пример 9.5.
Закрыть окно



Содержание  Назад  Вперед