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


       Консультант по сну на www.fsirussia.ru. | На www.promcar.net аренда дизельных генераторов. |   

Dim englword As String, rusword


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

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