Поиск в массиве строк

[Fridx]

У меня есть массив строк - NAME_OBJ()... Несколько тысяч. Помогите "организовать" поиск в этом массиве определённой строки... пожалуйста.
Нужно чтобы при повторном нажатии на command3 искалась следующая строка, что никак не получается:

Private Sub Command3_Click()
Dim P As Long

For P = T To KOLV_OBJ - 1
If InStr(RTrim(NAME_OBJ(P)), Text1.Text) Then
List1.ListIndex = P
POK = True
T = P + 1
Exit For
End If
Next P
End Sub

P - переменная глобальная чтобы не обнулялась при нажатии на кнопку поиска (command3).
List1 - в нём записаны все строки из массива (можно и в нём искать в принципе).
Text1 - в него вводим строку, которую надо найти.

[GSerg]

Во-первых, если у тебя в листбоксе несколько тысяч записей, это уже говорит о том, что всё неправильно.
Во-вторых, принцип тот же.

[tyomitch]

Во-первых, если у тебя в листбоксе несколько тысяч записей, это уже говорит о том, что всё неправильно.

Угу. См. тж. http://bbs.vbstreets.ru/viewtopic.php?p=163125#163125

[Fridx]

А что плохого в том, что много записей?

[Twister]

А что плохого в том, что много записей?

А что хорошего? Или ты не замечал тормозов при работе с такими списками? А про захламленную память не подумал?

[Nicky]

Начало-то было хорошее

"У меня есть массив строк - NAME_OBJ()... Несколько тысяч..."

Лажа пошла дальше

"...List1 - в нём записаны все строки из массива (можно и в нём искать в принципе)..."

Думаю, человек осознает и исправится

[Fridx]

Ага осознал:) Сейчас упорядочиваю данные в TreeView.
-----
А с поиском никто так и не поможет (даже если без листа)?

[Kovu]

Ну можно совсем радикальное решение- перейти на БД . Удобный поиск включен =)

[Fridx]

Не, ну какое БД... у меня свой файл, своя структура. Просто нужно, чтобы при повторном нажатии на кнопку поиска искалось следующее значение.

[Twister]

Ага осознал:) Сейчас упорядочиваю данные в TreeView.
-----
А с поиском никто так и не поможет (даже если без листа)?

Ну а что с ним помогать? Ты поиск проводишь по TreeView? Зря. Загони файл в массив и ищи там - все будет гораздо быстрее.

[Fridx]

Помогите "организовать" поиск в этом массиве определённой строки... пожалуйста.

[alibek]

Если массив упорядочен, то бинарный поиск.
Если массив неупорядочен, то только перебором.
Для упорядочивания (сортировки) массива есть куча методов, обычно оптимальной является алгоритм быстрой сортировки (Quick Sort). Еще лучше, изначально добавлять записи в массив упорядоченно (либо непосредственно в массив, либо автоматически вести индекс для массива).

[Fridx]

ничего упорядочивать нельзя, т.к. каждый индекс каждого элемента массива важен и привязан к "другим вещам". В самом первом посте написано как я ищу... можете просто подсказать что не так??? почему не ищется

[alibek]

Тогда упорядочивай не сам массив, а индексируй его и упорядочивай индекс. Либо обходись перебором.

[tyomitch]

Если массив упорядочен, то бинарный поиск.
Если массив неупорядочен, то только перебором.

Хеш-таблицы отменили?

[alibek]

Для неупорядоченного набора данных?
Все-равно ведь перебор будет.

[tyomitch]

Да, для неупорядоченного набора данных.
В худшем случае перебор, в лучшем -- константа. В среднем, как и для двоичного поиска, логарифм.

[alibek]

Я, кстати, про хэш-таблицы как-то и позабыл
Но ИМХО в данном случае выгоды от них никакой.

[tyomitch]

А в каком случае выгода есть?
Для чего ещё они нужны, кроме быстрого поиска в неупорядоченном массиве?

[Fridx]

ну нифига вы... разговорились
Про меня забыли

[tyomitch]

Fridx, что-то мешает сложить все твои строки в коллекцию?
Ключами -- сами строки, значениями -- индексы.
Тогда поиск будет быстрый.

[Fridx]

В коллекциююю?? Что ето?

[hCORe]

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

Dim cStrings As Collection
    Set cStrings = New Collection
    cStrings.Add 1, "Hi!"
    cStrings.Add 888, "Goodbye"
    MsgBox cStrings("Hi!") '1
    MsgBox cStrings("Goodbye") '888
    Set cStrings = Nothing