| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как загрузить данные из файла между определёнными словами. [D6, Win95/98]
Артём К © (2003-01-13 15:08:00)Привет всем!
Как загрузить данные из файла между определёнными словами.
Заранее спасибо!
Kotka (2003-01-13 15:25:00) [1]Что-то типа этого:
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;
Артём К (2003-01-13 15:18:00) [2]А можешь дать исходный код! А то я так не врубаюсь!
Smithson (2003-01-13 15:15:00) [3]Открыть файл для чтения.
Считать файл до первого слова.
Считать символы до последнего слова.
Закрыть файл.
| |
