Ассоциативные массивы

[Bloodius Baggins]

Есть ли они уже готовые в VB.NET?
А если нет, то кто-нибудь занимался их реализацией?

 

[Bloodius Baggins]

Вот... написал чего-то...
В архиве библиотечка и текстовый файл-ридми с описанием.
Да не озлятся на меня товарищи модераторы-администраторы за то, что кидаю сюда, а не в Авторское ПО - все-таки продукт еще не готов
Прошу смотреть, советовать, критиковать (пжлст конструктивно )

Ссылка скрыта от гостей

 

[Bloodius Baggins]

Новая версия, исправленная и дополненная (как водится )
Добавил метод для переприсваивания значений элементам и оформил для любого типа данных.

Ссылка скрыта от гостей

З.Ы. Кто-нить вообще смотрел?..

 

[Bloodius Baggins]

Свежачок-с )
Поправил ошибку, добавил свойство.
Смотрите.

Ссылка скрыта от гостей

 

[Dottik]

А чем вам не подходят стандартные
Dictionary<,>
Hashtable
?


упс, VB.NET
повторюсь, в C# есть готовые Dictionary<,> Hashtable, если в VB нету, то на их основе можна легко написать ClassLibrary под VB

 

[Bloodius Baggins]

Всем подходят, за исключением того, что я пока не знаю C# :angry:

Как только познакомлюсь с ним, сразу же перепишу класс с их использованием.

 

[Bloodius Baggins]

Добавил в этой версии индексер (дефолтовое свойство Item), поэтому больше нет методов Value() и SetVal(). Теперь к элементу хэша можно обратиться строкой

value = hash("Key")

и присвоить ему значение таким же самым образом (ну, только операнды местами поменять :blink
Если элемента с таким ключом нет, то он не добавится, а свойство выдаст ошибку или вернет Nothing

Ссылка скрыта от гостей

Очень надеюсь, что это-таки последняя версия
Разве что перепишу это все на C#

 

[Pasha]

Хм. так а чем все-таки не понравились System.Collection.Hashtable и System.Collections.Generic.Dictionary(Of TKey, TValue)? Вот пример использования, прямо из MSDN, на VB.NET:

' Create a new dictionary of strings, with string keys.
'
Dim openWith As New Dictionary(Of String, String)

' Add some elements to the dictionary. There are no 
' duplicate keys, but some of the values are duplicates.
openWith.Add("txt", "notepad.exe")
openWith.Add("bmp", "paint.exe")
openWith.Add("dib", "paint.exe")
openWith.Add("rtf", "wordpad.exe")

' The Add method throws an exception if the new key is 
' already in the dictionary.
Try
openWith.Add("txt", "winword.exe")
Catch 
Console.WriteLine("An element with Key = ""txt"" already exists.")
End Try

 

[Bloodius Baggins]

Гм...
Спасибо. Впредь буду лучше курить МСДН )
Правда, вовремя Я уже свой написать успел... Ну да ладно.