Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.019 c
3-72128
intLex
2003-01-01 05:33
2003.01.23
Нужна БД


1-72297
maxim2
2003-01-15 13:01
2003.01.23
В Delphi 7 компонент Manifest как его использовать?


14-72529
Cobalt
2003-01-07 02:08
2003.01.23
Вот такие у нас опечатки ;-)


4-72578
Sergei
2002-12-06 16:52
2003.01.23
Добавление Control В Диалоговое меню


14-72489
zolotov
2003-01-06 01:09
2003.01.23
Rx Library for Delphi 7