Как эффективно реализовать коллекцию Индекс-Значение

[GSerg]

Да собственно, выбирай из system.collections...
sortedlist, hashtable, stringdictionary...

[Alex_2005]

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


        oCol.Add("A", "1")
        oCol.Add("B", "2")
        oCol.Add("C", "3")
        '

        Debug.Print(oCol.Item("1"))
        Debug.Print(oCol.Item("2"))
        Debug.Print(oCol.Item("3"))


может я чего не так понял...

[Sebas]

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


        oCol.Add("A", "1")
        oCol.Add("B", "2")
        oCol.Add("C", "3")
        '

        Debug.Print(oCol.Item("1"))
        Debug.Print(oCol.Item("2"))
        Debug.Print(oCol.Item("3"))


может я чего не так понял...

Причём, не только вопрос...))))))))))))

[Alex_2005]

так о чём речь??? что - то не могу въехать...

[Alex_2005]

э поясните, плиз, что мы сейчас тут обсуждали? а то в друг мне тоже пригодиться!!

[temur]

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

        Dim CL01 As New Collections.Hashtable
        CL01.Add("1", "qwerfwq1")
        CL01.Add("2", "qwerfwq2")
        CL01.Add("3", "qwerfwq3")
        CL01.Add("4", "qwerfwq4")
        CL01.Add("5", "qwerfwq5")
        Dim DEntry As New DictionaryEntry
        For Each DEntry In CL01
            If Equals(DEntry.Key, "5") Then
                Me.lblTest01.Text = DEntry.Key
                Me.lblTest02.Text = DEntry.Value
                Exit For
            End If
        Next

[GSerg]

temur
Ты правда думаешь, что этот код имеет какое-то отношение к оптимальности?
Хуже могло бы быть только отсутствие exit for, но даже при его наличии это вопиющий misusing коллекции.

[temur]

Ну я немного не дочитал вопрос

Вариант с перебором массива ключей не предлагать

[GSerg]

Вроде нет - т.е. типа не misusing?

Допустим, есть задача вывести девятый элемент массива.

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

Dim arr(10) as integer

for i as integer = 0 to 10
  if i=9 then
    console.writeline(arr(i))
    exit for
  end if
next

Крутой код?
Твой один в один с ним.

[temur]

Да ладно не совсем такой....

[GSerg]

В точности такой.
С той лишь разницей, что твой будет работать ещё медленнее.
Так нельзя. RTFM.

[temur]

Ошибся, бывает.
Так устроит?

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

  Dim CL01 As New Collections.Hashtable
        CL01.Add("1", "qwerfwq1")
        CL01.Add("2", "qwerfwq2")
        CL01.Add("3", "qwerfwq3")
        CL01.Add("4", "qwerfwq4")
        CL01.Add("5", "qwerfwq5")

        Me.lblTest01.Text = "5"
        Me.lblTest02.Text =  CL01("5")