Текстік файлдарға қолданылатын функциялар мен процедуралар

АРРЕND – дискіде орналасқан файлды іске қосуға ашатын процедура.

ЕоLn – қатар соның анықтайтын функция (еnd-оf-lіnе).

FLUSН – шығару файл буферін тазарту процедурасы.

RЕАD – файлдан деректерді оқу процедурасы.

RЕАDLN – процедурасы RЕАD процедурасының қызметін орындап, бірақ курсорды келесі қатардың басына орналастырады.

SеекЕоf – файл соңын анықтайтын функция (еnd-оf-fіlе).

SеекЕоln – қатар соңын анықтайтын функция (еnd-оf-lіnе).

SЕТТехtВuf – текстік файлға енгізу-шығару буферін белгілеу процедурасы.

WRІТЕ – текстік файлға бір немесе бірнеше мәндерді жазуға арналған процедура.

WRІТЕLN процедурасы WRІТЕ процедурасының қызметін қайталап, қатар соңы белгісін қояды.

Типтелмеген файлдарға қолданылатын функциялар мен процедуралар

ВlоскWrіtе – айнымалыдан файлға бір немесе бірнеше жазбаларды жазу процедурасы.

ВlоскRеаd – файлдан айнымалыға бір немесе бірнеше жазбаларды оқыту процедурасы.

Текстік файлдан басқа файлдарға файлдық айнымалылардың барлығына келесі процедуралар мен функцияларды қолдануға болады:

FіlеSіzе – ағымдағы файл көлемін береді.

FіlеРоs – файлың ағымдағы позициясын береді.

Тrunсаtе – файл көлемін берілген файлдың позициясына дейін қысқартады.

Файлдарды өңдеу процедуралары

GеtFаtt – файл атрибуттарын беру процедурасы.

SеtFаtt – файл атрибуттарын орнату процедурасы.

FіndFіrst – берілген бумадан жазба бойынша сәйкес келетін файл атауын іздеу процедурасы.

FіndNехt – берілген бумадан FіndFіrst процедурасы арқылы табылған файл атауынан кейінгі келесі сәйкес келетін файл атауын іздеу процедурасы.

Мысал 1. Топтың журналы бар. Үлгерімді бақылау және оның сапасын талдау үшін кураторға деректер базасын келесі түрде дайындау.

Аты-жөні (t)	Бағалар
Физика (fi)	Математика (mat)	Информатика (inf)	Тарих (ist)
Каримов
Вагнер
Ким

Program esep1;

Var f: text; t: string; n, i, fi, mat, inf, ist: byte;

Begin

Assign(f, ‘c:\group.txt’);

Write(‘Оқушылар саны’);

Rewrite(f); readln(n);

Writeln(‘Оқушының аты-жөні, оның бағалары:’);

{Файлды жазу}

for i:=1 to n do

begin

readln(t); writeln(f,t);

readln(fi,mat,int,ist); writeln(f,fi’ ‘,mat,’ ’,inf,’ ’,ist);

end;

close(f);

{Файлдан оқу}

reset(f);

for i:=1 to n do

begin

readln(f,t); writeln(t);

readln(f,fi,mat,inf,ist); writeln(fi,mat,inf,ist);

end;

close(f);

End.

Тапсырма 3

Түрленбеген файлдар

Мысал 3. Түрленбеген файлдың көшiрмесiн алуын орындайтын бағдарламаны жазыңдар; бастапқы және шығатын файлдардың аттары мейлi сонымен бiрге түрдiң командалық жолдарында беріледі:

CopyFile <файлдың бастапқы аты> <файлдың соңғы аты>

PROGRAM Primer_5; { Түрленбеген файлдың көшiрмесiн алуын орындайтын бағдарлама; }{ сонымен бiрге, бастапқы және шығатын файлдардың аттары беріледі } { түрдiң командалық жолында: } { CopyFile <файлдың бастапқы аты> <файлдың соңғы аты> } const N=4096; var Fin,Fout: File; Nz,Nw: Integer; Buf: Array [1..N] of Char; BEGIN If ParamCount<2 then WriteLn('Командалық жолда - екi параметр ') else begin Assign(Fin,ParamStr(1)); {$I-} Reset(Fin,1); {$I+} (* {$I+} - енгiзу-шығарудың қателiктерін өңдейтін тәртiп *) If IOResult<>0 then WriteLn(ParamStr(1),': файл табылмады) else begin Assign(Fout,ParamStr(2)); {$I-} Rewrite(Fout,1); {$I+} If IOResult<>0 then WriteLn(ParamStr(2), ': файлды ашылмады.') else begin Repeat BlockRead(Fin,Buf,N,Nz); BlockWrite(Fout,Buf,Nz,Nw) until (Nz=0) OR (Nw<>Nz); Close(Fout) end; Close(Fin) end end END.

1. Екi файлдардың "жабысып қалу" бағдарламасын creat, read, write, open және close функцияларын пайдаланып жазыңыз.