| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с копированием блоков в TMemo [D6, Win2k, WinXP]
OGR © (2002-11-14 20:38:00)У меня следующая проблема:
Есть текст в TMemo, нужно скопировать блок текста начинающийся с подстроки например "13.11.2002" и заканчивающийся например "далее". Или удалить все кроме этого блока.
Подскажите пожалуйста как это лучше сделать, а то я все форумы перерыл ничего полезного не нашел.
Спасибо.
OGR (2002-11-15 18:25:00) [1]Спасибо. Теперь все работает! :)
Manic Mechanic (2002-11-15 17:56:00) [2]nPos := Pos("13.11.2002",Text);
sText:= Copy(Text,nPos,Length(Text)-nPos-1);
Copy( sText,1,Pos("Далее",sText)-1);
OGR (2002-11-15 17:25:00) [3]Видимо я неточно сформулировал, попробую еще раз с примером:
Есть текст в Memo:
--------------
далее
блаблаблабла
13.11.2002
нужный текст
далее
--------------
Так вот, решение предложенное Song"ом здесь не работает, т.к.
Pos("далее",Text)-Pos("13.11.2002",Text)находит строку с подстрокой "далее", которая находиться над строкой с "13.11.2002". А нужно искать только ту подстроку "далее" которая находиться под строкой "13.11.2002".
Надеюсь стало понятнее. Буду признателен за любую помощь...
OGR (2002-11-15 16:52:00) [4]Спасибо, это работает, но оказалось только в том случае если в тексте выше "13.11.2002" нет слова "Далее". А мне хотелось бы слелать чтобы считалось "Далее" , ближайшее от строки с кодстрокой "13.11.2002" . Как это можно сделать?
Song (2002-11-14 20:49:00) [5]With Memo1.Lines Do ClipBoard.AsText:=Copy(Text,Pos("13.11.2002",Text),Pos("Далее",Text)-Pos("13.11.2002",Text)+5);
| |
