Split, Find, Способы работы с массивами и текстом...

[Джеффи]

Здравствуйте, друзья...

У меня следующая ситуация, я пиши программу проверки орфографии... И возникла проблема скорости работы программы...

Помогите мне найти лучший способ поиска текста в масиве, функция должна выдавать только true/false т.е. есть или нет.

Также у меня возникла потребность отображения состояния процесса разбивки текста (Split) и открытия файла т.е. загрузка его в память, в переменную (Open ...). Подскажите как лучше осуществить это?

Ссылки типа http://yandex.ru гугл и т.д. не принимаются!

[Amed]

По поводу Split'а. Массив создаётся динамический? Следовательно, можно достать LBound и UBound. Прогресс понятно, как считать?

[Джеффи]

По поводу Split'а. Массив создаётся динамический? Следовательно, можно достать LBound и UBound. Прогресс понятно, как считать?

Нет не понятно...

У мя строска a = split(b, " ") пока работает сплит как мне это считать??

Напешика код раз такой умный

[GSerg]

Подсказываю
Искать в гугле по словам "бинарный поиск" и "quick sort"

[Джеффи]

Хорошо нашёл а теперь как мне мне отследить процесс Split'а??

[GSerg]

Савсэм ныкак.

Разве что свой Split написать

[Джеффи]

А открытие файла?

[Daz]

Попробуй так:
на форме две кнопки, Textbox,Label,progressbar

В разделе General

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

Dim sss As String


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

Private Sub Command1_Click()
Open "c:\forsplit.txt" For Input As #1
sss = Input$(LOF(1), 1)
Text1.Text = sss
Close #1
End Sub

Private Sub Command2_Click()
Dim bbb() As String
bbb = Split(sss, " ")
prb.Max = UBound(bbb)
For i = 1 To UBound(bbb)

prb.Value = i
Label1.Caption = prb.Value
Label1.Refresh
DoEvents
Next
End Sub