текстовые файлы, помгите, а то мне никак Опции

[elvis]

Нужно решить вот такую задачку, мож есть у кого исходник
Пеpеписать текстовый файл f в g, утpоив все стpоки, начинающиеся
символом "!"

если есть свободное время шлите мне на мыло---> ultra_elvis@mail.ru
заранее спасибо!

[Catty]

Код

uses Crt;
const n='!';
var i,j:byte; words:array[1..100] of string;
c:char;  v:string;
f:file of string; g:text;
Begin
ClrScr;
i:=1;
while c<>'.' do
begin
read(c);
if c=' 'then inc(i) else
words[i]:=words[i]+c;
end;
assign(f,'C:\file7');
rewrite(f);
for j:=1 to i do
write(f,words[j]);
close(f);
assign(f,'C:\file7');
reset(f);
for j:=1 to i do
read(f,words[j]);
for j:=1 to i do begin
v:=copy(words[j],1,1);
if v=n then  words[j]:='';
end;
close(f);
assign(g,' ',C:\file8');
rewrite(g);
begin
for j:=1 to i do
write(g,words[j]);
end;
close(g);
end.

вот что-то вроде! :p2:

Сообщение отредактировано: Catty - 5.05.2004 2:17

[BlackShadow]

Вроде так:

Код

Var
 f,g:Text;
 s:String;
 i:Integer;
Begin
 Assign(f,'f.Txt');
 Reset(f);
 Assign(g,'g.Txt');
 ReWrite(g);
 While Not Eof(f) Do
 Begin
   ReadLn(f,s);
   WriteLn(g,s);
   If (s[0] > #0) And (s[1] = '!') Then
     For i:=1 To 2 Do
       WriteLn(g,s)
 End;
 Close(g);
 Close(f)
End.

Должно быть так...
Или я неправильно понял условия.

[elvis]

Catty спасибо!!!

BlackShadow огромное спасибо все работает (в чем не было сомнений), все решено красиво и рационально!!!

[BlackShadow]

А то :D