вытащить кусок текста

← →
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]

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

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