Как загрузить данные из файла между определёнными словами.

← →
Артём К (2003-01-13 15:08) [0]

Привет всем!
Как загрузить данные из файла между определёнными словами.
Заранее спасибо!

← →
Smithson © (2003-01-13 15:15) [1]

Открыть файл для чтения.
Считать файл до первого слова.
Считать символы до последнего слова.
Закрыть файл.

← →
Артём К (2003-01-13 15:18) [2]

А можешь дать исходный код! А то я так не врубаюсь!

Что-то типа этого:

var f:textfile; s,res:string; est:boolean; begin Assignfile(f,"Tvoifail.txt"); while not eof(f) do begin readln(f,s); if pos("Slovo1",s)<>0 then est:=true; if pos("Slovo2",s)<>0 then est:=false; if est then if pos("Slovo1",s)<>0 then begin res:=res+copy(s,pos("Slovo1",s)+length("Slovo1"),length(s)-(pos("Slovo1",s)+length("Slovo1")))+#10+#13; end else begin if pos("Slovo2",s)<>0 then begin res:=res+copy(s,1,pos("Slovo2",s))+#10+#13; end else begin res:=res+s+#10+#13; end; end; end; closefile(f); end;

Как загрузить данные из файла между определёнными словами. Найти похожие ветки