Free Pascal - duomenų skaitymas iš failo

11. Duomenų skaitymas iš failo 11.1. Tekstinio failo samprata Dažniausiai programos apdoroja ne vieną, o daug pradinių duomenų. Iki šiol visus duomenis įvedinėjame naudodamiesi klaviatūrą. Tačiau tai nėra patogu. Todėl būtų patogiau reikalingus programai duomenis paruošti iš anksto, patikrinti ir įsitikinti, kad jie teisingi, ir tada pateikti duomenų rinkinį programai atlikti. Praktiškai visa duomens galima surašyti į tekstinius failus. Tekstinis failas turi keletą pranašumų: • tekstinį failą galima sukurti teksto redaktoriumi ir su kurio nesunku pataisyti jo visas klaidas prieš vykdant programą; • programa gali jį sakityti daug kartu. Tekstinis failas Tekstinis failas yra iš eilutės sugrupuotas simbolių rinkinys ir saugomas diske tam tikru vardu. Tekstiniai failai egzistuoja nepriklausomai nuo programos ir dažnai vadinami išorinėmis duomenų struktūromis. 11.2. Tekstiniai failai Paskalio kalboje Paskalio kalboje tekstiniams failams yra skirtas standartinis tipas, kurį žymi bazinius žodis Text. Programos aprašymo dalyje kiekvienam failui skiriamas kintamasis, kurio aprašo sintaksė yra tokia: : Text Pvz.: var ManoFailas: Text; Programos pagrindinėje dalyje kiekvienas failo kintamasis turi būti susietas su konkrečiu fiziniu failu, esančiame diske. Tai atlieka standartinė procedūra Assign (vertimas iš angų - Paskirti): Assign(, ) Čia Failo vardas rašomas tarp apostrofų kaip tekstas, pvz.: var ManoFailas: Text; Assign(ManoFailas, 'C:\ManoFailai\Rez.txt') Čia • Failo kintamojo vardas – ManoFailas; • Failo vardas – 'C:\ManoFailai\Rez.txt'. Šis failas turėtu būti kataloge C:\ManoFailai\Rez.txt. Galima pasakyti, kad failas Paskalyje egzistuoja dvejopai: • egzistuoja kaip išorinė informacija – išorinis failas kompiuterio įrenginiuose nepriklausomai nuo programos (pvz., ketose diske) ir turi išorinį vardą, pvz. 'C:\ManoFailai\Rez.txt': • egzistuoja Paskalio programoje kaip vidinė informacija – vidinis failas ir turi vidinę vardą – failo kintamojo vardas, pvz. ManoFailas. Tarp šitų objektų Paskalio programoje turi būtu susiejimas, kurį atlieka procedūra Assign. Išorinio failo vardas sudaromas pagal operacinės sistemos taisykles. Jis suteikiamas failui įrašymo į diską atmintį metu. Pastaba Paskalio programą palaiko ryšį su išorinio failu tik per jo vidinį failą - failo kintamąjį. Programoje fizinio failo vardas naudojimas tik procedūroje Assign. Vėliau jį programoje atstoja failo kintamasis – vidinis failas. Po to failą reikia paruošti konkrečiam veiksmui, o tai gali būti rašymas, papildymas, skaitymas 11.3. Rašymas į failą Panagrinėsime, kaip įrašyti duomenis į failą. Failą paruošia rašymui standartinę procedūrą Rewrite (vertimas iš angų Perrašyti), į kurią galima kreiptis taip: Rewrite(FailoKintamasis); Šis kreipinys atidaro išorinį failą įrašymui, kuris yra susietas procedūra Assign su vidiniu failu. Pastaba Jei procedūroje Assign nurodytas išorinis failas jau yra kietame diske, tai jame duomenys sunaikinami. Jei diske failo nurodytu vardu nėra, tuomet sukuriamas naujas failas tokiu vardu. Programos darbo rezultatai į failą įrašomi standartinėmis procedūromis Write ir WriteLn, į kurias galima kreiptis taip: Write(FailoKintamasis, x1 ,x2 ,..., xN ); WriteLn(FailoKintamasis, x1 ,x2 ,..., xN ); Čia FailoKintamasis yra failo kintamasis (vidinis failas), o x1 ,x2 ,..., xN kintamųjų sąrašas –kintamieji, kurie įrašomi į failą . Kintamųjų sąraše kintamųjų vardai gali būti skirtingų tipų, pvz. Integer, Real, String. Duomenis, perskaityti, naudojant procedūras Write ir WriteLn, priskiriami kintamiesiems iš Kintamųjų sąrašų. Standartinės procedūros Write ir WriteLn, savybės analogiškos atitinkamoms išvedimo į ekraną procedūromis. Procedūra Write skiriasi nuo WriteLn tuo, kad ji sugrupuoja išvedamus duomenis eilutėmis, tai yra įterpia eilučių pabaigos simbolius EOLN (End Of LiNe). Pastaba Baugus darbą su failu jį reikia uždaryti. Failo uždarymui naudojama procedūra Close į kurią galima kreiptis taip: Close(FailoKintamasis); Uždavinys Parašyti programą rašymui į failą C:\ManoFailai\rez.txt duomenis (skaičius) ciklu for ir procedūra ReWrite. Peržiūrėkite išorinį failą teksto redaktoriumi (pvz.: Notepad). Įsitikinkite pats, kad kiekvienas skaičius yra atskiroje eilutėje. 11.1. Programa program Rašymas_į_failą; var Failas: Text; i : Integer; {Įrašoma reikšmė į failą} begin {-----Assign susieja failo kintamąjį Failas su išoriniu failu vardu rez.txt-----} Assign(Failas, 'C:\ManoFailai\rez.txt'); Rewrite(Failas); {Paruošia išorinį failą rašymui} for i:=1 to 3 do WriteLn(Failas, 'N', i); {Skaičių rašymas į failą} Close(Failas); {Failo uždarymas} WriteLn(‘Skaičiai jau faile rez.txt, galite jį peržiūrėti su NotePad'); ReadLn; end. Kaip veikia ši programa Programoj sekcijos var yra aprašomas vidinis failas – failo kintamasis: var Failas: Text; Programoje procedūra Assign atlieka susiejimą Assign(Failas, 'C:\ManoFailai\rez.txt'); failo kintamąjį vardu Failas su išoriniu failu rez.txt, kuris gali egzistuoti diske kataloge Windows\Desktop\Failai arba, jei jo nėra, bus sukurtas iš naujo. Po to išorinį failą reikia paruošti rašymui, tai yra atidaryti procedūra Rewrite: Rewrite(Failas); Toliau veikia failo įrašymo ciklas for i:=1 to 3 do Po kiekvieno ciklo pakartojimo procedūra WriteLn įrašo į failą po vieną eilutę. WriteLn(Failas, 'N', i); Procedūra WriteLn į eilutės galą įrašo eilutės pabaigos simbolius EOLN, o į failo galą padeda failo pabaigos simbolį EOF, panašu kaip rašant sakinį mes padedam jo gale tašką – simbolį EOF, bet tą tašką mato tik kompiuteris. Tačiau kad, failas įrašytų į kietą diską mes būtinai turime jį uždaryti procedūra Close(Failas); Pastaba Jeigu peržiūrėti išorinį failą teksto redaktoriumi (pvz.: Notepad) galima pamatyti, kad kiekvienas skaičius yra atskiroje eilutėje. Todėl, kad procedūra WriteLn į eilutės galą įrašo eilutės pabaigos simbolius EOLN Uždavinys Parašyti programą rašyti į failą C:\ManoFailai\skaic.txt 5 skaičius ciklu for ir procedūra Rewrite. Peržiūrėkite teksto redaktoriumi (pvz.: Notepad) sukurtą failą. Įsitikinkite, kad kiekvienas skaičius yra atskiroje eilutėje. 11.2. Programa program Rašymas_į_failą; var Failas: Text; Sk: Integer; {Kintamasis skaičiui įvesti} i: Integer; {Įrašoma reikšmė į failą} begin WriteLn('Įveskite 5 skaičius'); WriteLn('Po kiekvieno skaičiaus įvedimą spauskite klavišą

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!