Мәтіндік файлдар

Пән: Информатика, Программалау, Мәліметтер қоры
Жұмыс түрі: Материал
Тегін: Антиплагиат
Көлемі: 6 бет
Таңдаулыға:

Мәтіндік файлдар

Дерекгер файлын мәтіндік түрде құруға да болады. Мәтіндік файл - символдық (Сһаг) типті берілгендерден құрылатын файл. Оны сипаттау үлгісі : f : file of char не f : text . Құрылған файл атына text кеңейтілуі қосылып қойылады. Мәтіндік файл ұзындықтары анықталмаған түрлі жолдардан тұрады, тек ер жол үзындығы 255-тен аспаса болғаны. Файл құру кезінде сөз аралықтарында бос орын қалдырып, өр жол соңында Енг пернесін басу керек.

Мәтіндік файлмен тізбекті ену тәсілі бойынша ғана жұмыс істеу мүмкін. Файлды тек құруға не ашуға болады. Мұнда файл соңына жазу қосу операторы бар: Append(f) . Файл жолын (s) дискіге жазу, оны оқу сәйкес writeln (f, v), readln (f, s) операторлары арқылы орындалады. Бұл тақырыпта бір программа арқылы мәтіндік файл құру, не оны экранға шығару тәсілі көрсетілген (енгізуді аяқтау тәсілі: жол сұралған кезде санды енгізбей, Енг пернесін басу. Бұл кезде (s) =0) ) .

Uses crt;

label 2, 5;

var f: text; s : string; bf: string[8j; n : word; begin clrscr; write (Файл аты-?') ; readln (bf) ; writeln ('Файл құру үшін 5-ті, экранға шығару үшін басқа санды енгізіңіз') ;

write ('Сан-?') ; readln (n) ;

if n=5 then goto 5 else goto 2;

5: assign (f, bf) ; rewrite ( f) ;

repeat

write ('жол-?') ; readln (s) ; writeln (f, s)

until length (s) =0; close (f) ;

2: clrscr; assign (f, bf) ; reset (f) ;

while not eof (f) do

begin readln (f, s) ; writeln (s) ; -

end ; close(f) ;

end.

2. Файлдық айнымалыны хабарлау және дискідегі файлға байлау

Программа текстік файлмен жұмыс істеуі үшін бізге арнайы айнымалы файлдың text деген түрі қажет болады:

var f: text;

Бұл айнымалы файлдағы бар мөліметтерді оқу үшін және жаңа мәліметтерді оған жазу ушін қызмет етеді.

Дискідегі нақты файлмен жұмыс бастамас бұрын файлдық айнымалыны сол файлмен байланыстыру керек. Ол ушін мына процедураны қолданамыз:

assign(TxtFile: text, name: string) ;

Бірінші параметр (ШҒПе) -файлдық айнымалы, екінші - дискідегі файлдың атын сақтаушы жол. Егер файл сол каталогта жатса оның аты мен типін көрсеткен жеткілікті, егер басқа бір каталогта жатса, онда осы файлға бағыт керсету қажет. мысалы:

аssign (f, 'z:\SCHOOL\textl. txt') ;

3. Мәліметтерді файлдан оқу

Assign процедурасымен файлды шақырғаннан кейін, файлды оқи бастау үшін ол файлды ашу керек. Ол үшін мына процедураны қолдану қажет:

reset(TxtFile: text) ;

Файлды ашқаннан кейін моліметтерді оқи бастаса болады. Ол үшін read және readln процедуралары келесі форматга қолданылады:

read(TxtFile: text, vl: typel, v2: type2, . . . vN: typeN) ;

readln( TxtFile: text, vl: typel, v2: typel, . . . vN: typeN) ;

Бірінші процедура файлдың мағыналарын тізбектеп оқиды және оларды vl, v2, . . . vN айнымалыларына орналастырады. Әрбір оқылған мағынадан кейін файлдың көрсеткіші ("оқитын бас") келесі мағынаның бас жағына жылжып отырады. Readln көрсеткіші жаңа жолдың басына тек қана бірінші параметрмен аударады. Read және readln процедураларының параметрлері ретінде келесі түрдің айнымалыларын крлдануға болады:

- Бүтін: integer, byte, shortint, word, longint; »

- Нақты: real, single, double, 'extended, comp;

- Жол (string) ;

- Символ (char) .

Оқу процедурасын қолдану мысалы:

var f: text; s: string; n: integer;

readln (f, n, s) ;

Файлдан мәліметтерді оқу үшін, оны бірінші rezet арқылы ашып алу керек. Файлдың көрсеткіші жолдың соңына дейін барғанын немесе файлдың соңына барғанын анықтау үшін: келесі екі функция қолданылады:

еoln (TxtFile: text) : boolean;

eof (TxtFile: text) : boolean;

Егер көрсеткіш жолдың соңында түрса біріншісі true (шындық) мағынасын кабылдайды, егер де көрсеткіш жолдың соңында тұрса, . екіншісі дәл солай, бірақта файлдың соңына дейін.

Барлық операциялар аяқталғаннан соң файлды close (TxtFile: text) процедурасы арқылы жабу керек; егер олай істемесе файл бұзылуы мүмкін.

1 мысал (оқу процедуралары) : Текстік файл берілген, мысалы Паскальдағы программа.

program ShowFile;

var f: text;

с: char;

begin

assign ( f, 'showfile. pas') ;

reset(f) ;

while not eof (f) do begin

while not eoln(f) do begin read(f, c) ; write(c) ;

end;

readln(f) ;

writeln;

end;

close(f) ;

readln;

end.

4. Мәліметтерді файлға жазу

Жазу үшін жаңа (бос) файл құру керек немесе берілген файлды тазалау керек. Ол үшін rewrite(TxtFile: text) процедурасы қолданылады.

Оны шакыру үшін файлдың атына assign көмегімен байланып тұру керек. Егер файл жоқ болса оны rewrite қүрады, егер файл бар болса оның мәліметтері өшірілген болады. Қандай жағдай болса да файл бос болады, ал жазу көрсешкіші файлдың басында тұрады.

Жазу үшін мына процедуралар қолданылады:

write(TxtFile: text, pi: typel, p2: type2, . . . pN: typeN) ;

... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.