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


Пример 9.5


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




Начало  Назад  Вперед