Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

вытащить кусок текста   Найти похожие ветки 

 
ivc_andr ©   (2003-10-14 11:50) [0]

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


 
KSergey ©   (2003-10-14 11:52) [1]

Бижим по файлу, ищщем нужную комбинацию символов. Если нашлясть - бежим дальше. но сохраняя пройденное. Как только встретилась комбинация2 - прикращаем это гнилое дело.


 
clickmaker ©   (2003-10-14 12:16) [2]

SL := TStringList.Create;
SL.LoadFromFile(FileName);
Pos1 := Pos("слово1", SL.Text);
Pos2 := Pos("слово2", SL.Text);
if (Pos1 > 0) and (Pos2 > 0) then begin
Inc(Pos1, Length("слово1"));
S := Copy(SL.Text, Pos1, Pos2-Pos1);
end;


 
ivc_andr ©   (2003-10-14 13:17) [3]

получилось!!!! УРРРРРААА!.....спасибо, то что надо!!!!



Страницы: 1 вся ветка

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
11-89196
nsvi
2003-02-06 01:38
2003.10.27
Я офигеваю! RichEdit.


1-89291
Lam
2003-10-14 10:39
2003.10.27
Компонент


14-89538
Soft
2003-10-07 22:56
2003.10.27
Kylix Open Edition он бесплатный для любого применения?


1-89257
Lam
2003-10-14 17:51
2003.10.27
Дата


1-89236
ilka
2003-10-14 22:38
2003.10.27
Сервисы.