зависание программы (работа с текстовым файлом 2)

[Сергей К..]

Снова прошу помочь.
Ситуация следующая: есть большой текстовый файл (4 Мб).
Мне нужно вырезать определенные текстовые блоки начинающиеся
определенными симолами. Каждый из этих блоков нужно записать в переменную и поместить в массив, чтобы затем перемешать блоки в произвольном порядке.
написанный мною код вырезания блоков почему-то виснит при обработке большого n. Т.е. если n = 30 работает , а если 3000 программа виснит

RichText1.Text = ""
b = 0
n = Ubound(TempString)' посчитали количество блоков (выше)
k = 1

For i = 1 To n
a = InStr(k, myString, "&START!") 'ищем вхожднние
If a = 0 Then Exit Sub 'если нет выходим
b = InStr(a, myString, "&END!") 'ищем окончания блока
k = b
c = Mid(myString, a, (b + 4 - a)) 'вырезаем блок

RichText1.Text = RichText1.Text + c & Chr(13) & Chr(10) & Chr(10)
Next i

Прошу помочь и указать на ошибку. Что нужно сделать?

[FaKk2]

Наверняка не виснет а просто считает. Прочто у виндов стоит задержка после которой прога считается зависшей. попробуй просто подождать.

[Damage]

Вставь внутрь DoEvents

[Gigahard]

Вставь внутрь DoEvents

А че это DoEvents дает? Это же просто указание человеку, где код вписывать!

[Damage]

просто если вписать DoEvents то винда не будет ругаться на то, что прога зависла(неотвечает)


Вышли весю софтину на мыло - поправлю. Дописывать влом.

[alibek]

После For i = ... вставь

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

If I Mod 100 = 0 Then DoEvents

[Сергей K.]

После For i = ... вставь

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

If I Mod 100 = 0 Then DoEvents

не работает.
Она все таки виснет!

[alibek]

Проверь, в каком месте виснет, внутри цикла или при Ubound(TempString). Если первое, то попробуй использовать I Mod 10. Если второе, тогда в настройках виртуальной памяти Windows вручную выставь использовать своп размером 512 Мб.

[Сергей К..]

Да, действительно, она не виснит, а так жутко долго выполняется.
Проверял на старой машине, поэтому так и не смог дождаться
окончания обработки текста 3,5 Мб. Кстати а почему винда считает,
что приложение повисло?

У меня еще вопрос: как можно перемешать элементы массива в произвольном порядке. Т.е. есть массив из переменных, которые string, их нужно перемешать и слит в файл.
Как ?

И еще неужели нет более быстрого способа, чем применяемый, вырезания текстовых блоков с разделителями.? А то уж слишком долго.

Спасибо!

[alibek]

Так долго потому, что ты используешь Split() для очень большого объема данных. Используй свой алгоритм для загрузки данных из файлов непосредственно блоками, будет быстрее.

[RayShade]

В Windows у каждого приложения есть очередь сообщений (message queue) в которыую попадают все сообщения для этой программы. Сообщения обрабатываются так называемой оконной функцией программы. В случае работы длинного цикла эта оконная функция не получает управление долгое время и очередь сообщений переполняется. Поэтому система и считает что программа "висит".