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

Вниз

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

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

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

---

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

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

---

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

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

---

← →
Kotka ©   (2003-01-13 15:25) [3]

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

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;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c