Помогите с копированием блоков в TMemo

← →
OGR (2002-11-14 20:38) [0]

У меня следующая проблема:
Есть текст в TMemo, нужно скопировать блок текста начинающийся с подстроки например "13.11.2002" и заканчивающийся например "далее". Или удалить все кроме этого блока.
Подскажите пожалуйста как это лучше сделать, а то я все форумы перерыл ничего полезного не нашел.
Спасибо.

← →
Song (2002-11-14 20:49) [1]

With Memo1.Lines Do ClipBoard.AsText:=Copy(Text,Pos("13.11.2002",Text),Pos("Далее",Text)-Pos("13.11.2002",Text)+5);

← →
OGR (2002-11-15 16:52) [2]

Спасибо, это работает, но оказалось только в том случае если в тексте выше "13.11.2002" нет слова "Далее". А мне хотелось бы слелать чтобы считалось "Далее" , ближайшее от строки с кодстрокой "13.11.2002" . Как это можно сделать?

← →
OGR (2002-11-15 17:25) [3]

Видимо я неточно сформулировал, попробую еще раз с примером:
Есть текст в Memo:
--------------
далее
блаблаблабла
13.11.2002
нужный текст
далее
--------------

Так вот, решение предложенное Song"ом здесь не работает, т.к.
Pos("далее",Text)-Pos("13.11.2002",Text) находит строку с подстрокой "далее", которая находиться над строкой с "13.11.2002". А нужно искать только ту подстроку "далее" которая находиться под строкой "13.11.2002".
Надеюсь стало понятнее. Буду признателен за любую помощь...

← →
Manic Mechanic (2002-11-15 17:56) [4]

nPos := Pos("13.11.2002",Text);
sText:= Copy(Text,nPos,Length(Text)-nPos-1);

Copy( sText,1,Pos("Далее",sText)-1);

← →
OGR (2002-11-15 18:25) [5]

Спасибо. Теперь все работает! :)

Помогите с копированием блоков в TMemo Найти похожие ветки