возможные варианты текстовой информации в переменной

[sergey-911]

Доброго времени уважаемые.
Прошу прощение за беспокойство и за нечеткое формирование вопроса!

Мне нужно создать переменную, или константу, которая будет предлагать возможные варианты текстовой информации, скажем три варианта строк:
1) "aaa"
2) "bbb"
3) "ccc"
Создание структуры врядли подойдет...

[Денис]

Код: Выделить всё

    Private Enum A1 As Integer
        aaa = 1
        bbb = 2
        ccc = 3
    End Enum

И еще: В этом энуме хоть и будет выводиться "текстовая информация" с вариантами значений, но значения тем не менее, будут числовыми. если нужно чтобы были именно текстовые значения - придется писать класс.

[sergey-911]

Код: Выделить всё

    Private Enum A1 As Integer
        aaa = 1
        bbb = 2
        ccc = 3
    End Enum

И еще: В этом энуме хоть и будет выводиться "текстовая информация" с вариантами значений, но значения тем не менее, будут числовыми. если нужно чтобы были именно текстовые значения - придется писать класс.

Спасибо Денис.
Не знал, что значения перечисления A1.aaa.ToString в данном случае могут подойти.
Но как быть с реальной ситуацией, где вместо "aaa" должно быть "System.Data.SqlClient", а вместо "bbb" должно быть "System.Data.OleDb" и т.п.?

Разумеется код:

Код: Выделить всё

Private Enum A1 As Integer
        System.Data.SqlClient = 1
        System.Data.OleDb = 2
End Enum


Выдает ошибку.

[Денис]

Но как быть с реальной ситуацией, где вместо "aaa" должно быть "System.Data.SqlClient", а вместо "bbb" должно быть "System.Data.OleDb" и т.п.?

Удалил

Ну, вобщем, да, я как всегда нагородил огород с классами, методами. А как сказал Viper в следующем сообщении, достаточно воспользоваться коллекцией:

Код: Выделить всё

        Private N1 As Collection = New Collection

    sub Example()

        With N1
            .Add("sdfsd.df.fdfd", "aaa")
            .Add("sdewr.ui.ertd", "bbb")
            .Add("wqwqw.yt.ytyf", "ccc")
        End With

        MsgBox(N1.Item("bbb")

    End Sub

Век живи — век учись.

[Viper]

Но как быть с реальной ситуацией, где вместо "aaa" должно быть "System.Data.SqlClient", а вместо "bbb" должно быть "System.Data.OleDb" и т.п.?

Коллекция, где "aaa" есть ключ, а "System.Data.SqlClient", соответственно, значение.

[sergey-911]

Спасибо Денис!

[Williams]

Dim Dic As New Dictionary(Of String, Нужный_тип) позволит находить объекты пользуясь ключом (String), а также добавлять и удалять их.

[sergey-911]

Спасибо уважаемые. Объясните популярно плиз преимущества коллекции... Чем код:

Код: Выделить всё

       Private N1 As Collection = New Collection

    sub Example()

        With N1
            .Add("sdfsd.df.fdfd", "aaa")
            .Add("sdewr.ui.ertd", "bbb")
            .Add("wqwqw.yt.ytyf", "ccc")
        End With

        MsgBox(N1.Item("bbb")

    End Sub


предпочтительнее:

Код: Выделить всё

       'Перечисление в роли Alias-a
       Public Enum _StringProvider As Integer
           SqlClient = 1
           OleDbClient = 2
       End Enum

        'Функция, перечисляющая строки провайдеров
        Public Function GetStringProvider(ByVal Index As _StringProvider) As String
            Select Case Index
                Case MyConnect._StringProvider.SqlClient
                    Return "System.Data.SqlClient"
                Case MyConnect._StringProvider.OleDbClient
                    Return "System.Data.OleDb"
                Case Else
                    MsgBox("Укажите провайдера подключения!")
                    Return Nothing
            End Select
        End Function
   
   'Выводим значение
        MsgBox(GetStringProvider(_StringProvider.OleDbClient))


?
По-моему вызов значения

Код: Выделить всё

StringProvider = GetStringProvider(_StringProvider.OleDbClient)


удобнее

Код: Выделить всё

MsgBox(N1.Item("bbb")


В коллекции нужно помнить порядок индексов...

[MIT]

Если у тебя количество элементов не велико, то разница, в общем-то, только в удобстве. Однако если элементов у тебя будет тысяч 10, то представь себе код, написанный вторым способом. Коллекция (и все ей подобное) предназначено для хранения большова числа значений.

_____________________
added: Также при использовании второго способа невозможно добавить элементы во время работы, состав коллекции же можно изменять как и когда угодно.

[sergey-911]

А как же самому запомнить 10 тысяч индексов коллекции? Как ассоциировать нужное значение с индексом. Нужно помнить индекс? Или смотреть его постоянно в коде?

[Williams]

А как же самому запомнить 10 тысяч индексов коллекции? Как ассоциировать нужное значение с индексом. Нужно помнить индекс? Или смотреть его постоянно в коде?

Смотри выше, поиск элементов производится по ключу, а не индексу. В дотнет есть разные типы коллекций и массивов, следует выбрать тот, что соответствует твоим требованиям.

[sergey-911]

Спасибо Williams.
Но, если не ошибаюсь, то

Код: Выделить всё

MsgBox(N1.Item("bbb")

и есть вызов по ключу.
В данном случае нужно помнить, что есть ключ "bbb" коллекции "N1". Ведь все возможные ключи не выпадают в виде комбика при наэатии"N1.Item....", или ошибаюсь? Так как все ключи запомнить? Чем отличае от индексов?
Хочу разобраться раз и навсегда, и не поднимать больше таких вопросов.
Спасибо.

[Денис]

Ведь все возможные ключи не выпадают в виде комбика при наэатии"N1.Item....", или ошибаюсь?

Да. Ошибаешься. Извини, надо было не упускать этот момент. В качестве ключей можешь использовать перечисляемые типы.

Код: Выделить всё

       'Вот твой тип.

       Public Enum _StringProvider As Integer
           SqlClient = 1
           OleDbClient = 2
       End Enum

Код: Выделить всё

       'Вот мой код

       Private N1 As Collection = New Collection

    sub Example()

        With N1
            .Add("sdfsd.df.fdfd", _StringProvider.SqlClient)
            .Add("sdewr.ui.ertd", _StringProvider.OleDbClient)
        End With

        MsgBox(N1.Item(_StringProvider.OleDbClient))

    End Sub

[sergey-911]

Спасибо Денис!
Спасибо всем!