PASCALik

Процедура, которая записывает в конец текстового файла строку

Procedure AddStrToTextFile(nF, St:String);
Var f: Text;
Begin
AssignFile(f, nF);
If not FileExists(nF) then Rewrite(f) {не существует, создать и открыть}
Else {иначе}
Begin
Reset(f); {существует, открыть }
While not Eof(f) do Readln(f); {передвинуть указатель в конец файла}
End;
Writeln(f, St); {записать строку }
Close(f); {закрыть файл}
End;
К процедуре можно обратиться, например, так:
Var
S1: String[58];
S2: String[189];
…………………………
AddStrToTextFile(’c:\Files\ring.txt’, ‘Строка символов’);
AddStrToTextFile(’ring.txt’, S1);
AddStrToTextFile(’ring.txt’, S2);

Рубрика: Текстовые файлы | Comments Off

Перезапись символов из одного файла в другой

Из символьного файла переписать в новый файл все символы, предшествующие первому пробелу в исходном файле. Закончить результирующий файл восклицательным знаком.

program iz-v;
var f,g: file of char;
ch: char;
n: word;
begin
assign(f,’z1.txt’); reset(f);
assign(g,’z2.txt’); rewrite(g);
n:=filepos(f);
seek(f,n);
while ch<>’ ‘ do
begin
seek(f,n);
read(f,ch);
write(g,ch);
inc(n);
end;
ch:=’!';
write(g,ch);
readln;
close(f); close(g);
end.

Рубрика: Текстовые файлы | Comments Off