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

Пән: Информатика, Программалау, Мәліметтер қоры
Жұмыс түрі: Материал
Тегін: Антиплагиат
Көлемі: 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 көрсеткіші жаңа жолдың басына тек ... жалғасы

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