logo
  1. Bosh sahifa
  2. Referatlar
  3. Informatika va AT
  4. Типлашмаган файллар

Типлашмаган файллар

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

50 KB
Ko'chirib olish
www.arxiv.uz Типлашмаган файллар Режа : 1. Типлашмаган файллар 2. Типлашмаган файлларни киритиш-чикариш 3. Типлашган файллардан фарки . www.arxiv.uz Максимал тезликда ишлайдиган файлларни куриб утамиз. Паскал тилидаги типлашмаган файлни белги ва байтлар йигиндисидан иборат деб кабул килинади. Типлашмаган файлни очиш учун File резервлашган сузидан фойдаланилади: VAR UntypedFile : File; Типлашмаган файл туппадан-тугри киритиш файли булиб, укиш ва ёзиш операциясини бир вактнинг узида ёзиш имкониятини беради. Бу файллар учун энг асосий параметрлар байтлардаги ёзув узунлиги хисобланади. Ёзув узунлиги бир байтга эга булган типлашмаган файлни очиш куйидагича бажарилади: Rewrite(UntypedFile, 1); ёки Reset(UntypedFile, 1); Факатгина типлашмаган файллар учун кулланиладиган иккинчи параметр файлнинг бир сеансдаги ёзув узунлигини беради . Типлашмаган файлларни киритиш-чикариш Типлашмаган файлларда киритиш-чикариш операцияларини Read ва Write операторларидан фойдаланиб, берилганларни узатиш пайтида яхши муваффакиятга эришмаслик мумкин.Шунинг учун берилган типдаги файллар учун Турбо-Паскалда киритиш-чикариш операциясини тезлатиш учун куйидаги 2та янги процедуралар ишлатилади. BlockRead(VAR F : file; VAR Buf; Count : word {;result:word}); www.arxiv.uz Бу процедура Buf узгарувчисининг F файлидан аник сондаги блокларни хотирага санайди. Buf параметри F файлдан йигиладиган ахборотларни хохлаган узгарувчисини билдиради. Count параметри саналаетган блоклар сонини беради. Result параметри шарт булмаган параметр хисобланиб, процедура чакирилганда саналган езувлар сонини уз ичига олади. Resul t параметрларини кулланилиши саналган блоклар сони Count параметрида берилган блоклар сонидан кам булишлигини олдиндан айтади. Агар Result чакириш пайтида курсатилган булса, у холда киритиш-чикариш ситуациясида хатолик булмайди.Укиш вактидаги шунга ухшаш ва бошка хатоларни кузатиш учун IОresult функциянинг {$I-}, {$I+} опциялари ишлатилади. BlockWrite(VAR F : file; VAR Buf; Count:word {;result:word}); Бу процедура Buf узгарувчисидаги маълум езувлар сонини F файлига тез узатиш учун хизмат килади .BlockWrite процедурасининг барча параметрлари BlockRead процедурасининг параметрларига мос тушади . Иккала процедура хам блокларни киритиш - чикариш операцияларини бажаради . Блокларнинг байтлардаги хажми куйидаги формула оркали аникланади : Хажм = Count * RecSize, бу ерда RecSize – очилиш пайтида берилган файл езувининг улчови . Бу процедураларнинг кулайлиги шундаки , фойдаланувчи файл операциялари учун буфер улчовини узи аниклаши мумкин . Бу имконият ресурсларни режалаштиришда кул келади . Мисол . Бу дастур файлни берилган хажм буйича бир неча булакларга булиб , хар бир булакни дискларга алохида езиш имкониятини беради . PROGRAM DivFile; www.arxiv.uz CONST SizeBuffer = 25600; { киритиш - чикариш учун буфер улчови } TYPE BufFile = array[1..SizeBuffer] of Byte; VAR Buffer: BufFile; { буфер } W1, W2, W3 : word; KolZap, Siz : LongInt; NameFile, NamePart: string[60]; { чикариш ва бош файл номи } FileMain, FilePart: file; { типлашмаган файллар учун узгарувчилар } Flag1, Flag2 : boolean; { мантикий операциялар учун файллар } FUNCTION Answer : boolean; { Хатолик булган пайтда фойдаланувчи билан мулокот учун функция } VAR CH : char; BEGIN Write(&#39; Ишни давом эттирасизми ? ( Х / Й )&#39;); REPEAT Readln(CH); CASE CH OF &#39; Д &#39;,&#39; д &#39;: Answer := true; &#39; Н &#39;,&#39; н &#39;: Answer := false; END; { case } UNTIL CH IN [&#39; Х &#39;,&#39; х &#39;,&#39; Й &#39;,&#39; й &#39;]; END; { Answer } BEGIN { DivFile } Writeln(&#39;DivFile файлни булакларга булиш &#39;); Flag1 := True; www.arxiv.uz WHILE Flag1 DO BEGIN { бош файллар буйича катта цикл } Write(&#39; Булиш учун файл номини киритинг : &#39;); Readln(NameFile); Assign(FileMain, NameFile); Reset(FileMain, 1); { бош файлни очиш , езув узунлиги 1} KolZap := FileSize(FileMain); { байтлардаги файл улчови } WHILE KolZap > 0 DO BEGIN { бош файл охиригача } Writeln(&#39; Файлнинг булаги &#39;,NameFile,&#39; = &#39;,KolZap); Write(&#39; Фални булиш &#39;); Flag2 := Answer; Writeln; Write(&#39; Чикиш файлини номини киритинг &#39;); Readln(NamePart); Assign(FilePart, NamePart); Rewrite(FilePart, 1); { езув узунлиги 1 а тенг булган бош файл булаги учун чикиш файлини ташкил этиш } IF Flag2 THEN BEGIN Write(&#39; Чикиш файлини улчовини киритинг &#39;); Readln(Siz); IF Siz > KolZap THEN Siz:= KolZap; END ELSE Siz:= KolZap; { акс холда булак улчови бош файл колдигининг улчовига тенг } {Киритиш-чикариш буфери улчовига коррекция киритилади } W1 := Siz DIV SizeBuffer; { тула Buffer сони } W2 := Siz MOD SizeBuffer; { колдик } Write(&#39; Нусха олиш &#39;); FOR W3 := 1 TO W1 DO BEGIN { тула буферлар буйича } BlockRead(FileMain, Buffer, SizeBuffer); www.arxiv.uz BlockWrite(FilePart, Buffer, SizeBuffer); Write(&#39;+&#39;); END; IF W2 <> 0 THEN BEGIN BlockRead(FileMain, Buffer, W2); BlockWrite(FilePart, Buffer, W2); Write(&#39;+&#39;); END; { if W2 <> 0 } Writeln; Close(FilePart); { булак учун файлни епиш } KolZap := KolZap - Siz; { бош файл колдигини хисоби } END; { while KolZap > 0 } Close(FileMain); Write(&#39; Янги файлни булиш , &#39;); Flag1 := Answer; END; { while Flag1 } END. { DivFile } Бундай дастурга катта хажмли дискдаги берилганлар тупламини кичик хажмли ташувчиларга олиб утишда эхтиеж тугилади Дастур матнини купайтирмаслик учун киритиш - чикариш хатоликлари текширилмайди . Буларни локализациялашда IOresult стандарт функциясидан фойдаланиш мумкин . Агар BlockRead ва BlockWrite 4 та параметрга кенгайтирилган чакирув кулланилса , у холда дастур ичида узатилаетган ахборотлар сонини назорат килиш мумкин .

O'xshashlar

Матнли файллар
Файллар ва хужжатлар билан ишлаш
Файллар ва каталоглар билан ишлаш
Архиваторлар. Архивли файллар хакида маълумот
Операцион тизимлари. Файл ва файллар тизими