Главная страница
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.015 c
1-72176
Nikolay Enby
2003-01-13 21:34
2003.01.23
Cards.dll


14-72473
ihtiandr
2003-01-05 15:02
2003.01.23
QReport


7-72543
Anar
2002-11-09 23:50
2003.01.23
Русские буквы и Delphi 7


1-72386
dim-
2003-01-12 03:11
2003.01.23
Позиция курсора в RxRichEdit


4-72607
Abzetdin
2002-12-07 13:10
2003.01.23
Программное определение типа процессора