Работа с текстом.

← →
MadGhost © (2003-08-29 13:43) [0]

Уважаемые мастера, ещё раз прошу вашей помощи.
Проблема такая. Есть файл, тектовый (рапорта), один рапорт от другого разделен символами #2 ... #3
для разделения я использую регулярные выражения, TRegExpr
но файлы большущие, и в общем программа в даун уходит, я пока с отдельными потоками работать толком не научился, надеюсь скоро научусь применять их на практике, но а пока....
r:=TRegExpr.Create; r.Expression:="\x02(.+)\x03"; //собственно само регулярное выражение. f:=TStringList.Create; f.LoadFromFile("file.txt"); while r.Exec(f.Text) do begin //тут уже разрезанные (разделенные) рапорта, и каждый рапорт обрабатывается по очереди raport:=r.Match[1]; if (AnsiPos(raport,"OBSERVATION")>0) then begin //тут ещё, очень большой анализ рапорта идет, из котрого выдирается то что нужно, и как бы должно ложиться в базу данных, а пока я сделал чтобы в Memo например часть выводилась. end; end;
вот что то примерно типа этого, мне нужно как то программными средствами самой делфи резать рапорта по символам #2 ... #3
и потом находить, в самом рапорте, отдельные его эелементы, в принципе я это немного представляю как делать, а вот как резать :( подскажите плиззз.

← →
KSergey © (2003-08-29 14:42) [1]

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

Работа с текстом. Найти похожие ветки