Vaak zal het noodzakelijk zijn om bestanden te benaderen, enerzijds om daar informatie uit te halen, anderzijds om gegevens in op te slaan.
\nIn Pascal wordt onderscheid gemaakt tussen het benaderen van bestanden om te lezen en om te schrijven.
\nVerder kent Pascal 3 verschillende soorten bestanden: tekst-bestanden, binaire-bestanden en ongedefinieerde bestanden.
\nDe eerste soort gebruik je voor ascii-achtige bestanden. De tweede voor bestanden met een bepaalde structuur. De derde gebruik je voornamelijk voor bestandsbeheerachtige zaken, dus voor bestanden waar je van te voren niet weet hoe ze in elkaar zitten.
\nIn deze paragraaf beperken we ons tot de eerste soort. Om met een tekstbestand te gaan werken moet je eerst weten of je naar een bestand gaat schrijven of uit een bestand gaat lezen.
\nDe stappen die je moet volgen zijn de volgende:<\/p>\n
1. Defienieer een tekst-bestand-variabele.
\n2. Ken de variabele toe aan een bestand.
\n3. Open het bestand om te lezen of schrijven.
\n4. Lees of schrijf naar het bestand (via de variabele).
\n5. Sluit het bestand.<\/p>\n
ad 1.:\u00a0Var tf: text;<\/b>
\nhiermee definieer je een variabele\u00a0tf<\/i>\u00a0van het type\u00a0text<\/b>, dat aangeeft dat je hiermee een ascii-bestand kan benaderen.
\nad 2.:\u00a0assign(tf,[pad]\/[bestandsnaam]);<\/b>
\nmet de opdracht assign koppel je de text-variabele aan een (ascii-)bestand.
\nad 3.:\u00a0reset(tf);<\/b>\u00a0of\u00a0rewrite(tf);<\/b>\u00a0met\u00a0reset<\/b>\u00a0open je het bestand om te lezen, met\u00a0rewrite<\/b>\u00a0open je het bestand om te schrijven. Als in het laatste geval het bestand al bestaat, dan wordt deze hiermee overschreven!
\nad 4.:\u00a0readln(tf,regel);<\/b>\u00a0of\u00a0writeln(tf,regel);<\/b>,
\nom resp. een regel tekst uit het bestand te lezen, dan wel een regel tekst naar het bestand te schrijven.
\nad 5.:\u00a0close(tf);<\/b>
\nhiermee sluit je het bestand en geef je het weer vrij voor het besturingssysteem.<\/p>\n
In het eerste voorbeeld gaan we een bestand openen en er drie regels tekst inzetten:<\/p>\n
program p10_1; Wanneer je nu met het kladblok\u00a0test.txt<\/i>\u00a0opent, dan zie je dat er 3 regels tekst in staan, hoewel de tweede regel leeg is.<\/p>\n In het volgende voorbeeld gaan we\u00a0test.txt<\/i>\u00a0uitlezen:<\/p>\n program p10_2; Omdat je vaak niet weet hoe groot een bestand is wil je het uitlezen tot het eind. Met de\u00a0while not eof(tf)<\/b>-constructie wordt dit bereikt. De\u00a0eof<\/b>-functie geeft de waarde\u00a0true<\/i>\u00a0als je aan het einde van het bestand bent aangekomen (End Of File).<\/p>\n Wanneer je een bestand probeert te benaderen om te lezen en dit bestand bestaat niet, dan krijg je een foutmelding (run-time error). Direct voor het reset- of rewrite-statement zet je\u00a0{$I-}<\/b>\u00a0neer om de compiler-controle uit te schakelen. Direct na een van statments zet je\u00a0{$I+}<\/b>\u00a0neer om de compiler-controle weer te activeren. Laten we e.e.a. eens in een functie\u00a0Bestaat<\/b>\u00a0implementeren:<\/p>\n function Bestaat(bn: s80): Boolean; Nu kun je met de constructie\u00a0if Bestaat(’test.txt’) then …<\/b>\u00a0kijken of\u00a0test.txt<\/i>\u00a0in de huidige directory bestaat. 10.1<\/b> 10.2<\/b> [Functies<\/a>] <– –> [Recursie<\/a>]\n","protected":false},"excerpt":{"rendered":" Vaak zal het noodzakelijk zijn om bestanden te benaderen, enerzijds om daar informatie uit te halen, anderzijds om gegevens in op te slaan. In Pascal wordt onderscheid gemaakt tussen het benaderen van bestanden om te lezen en om te schrijven. Verder kent Pascal 3 verschillende soorten bestanden: tekst-bestanden, binaire-bestanden en ongedefinieerde bestanden. De eerste soort […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":185,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"templates\/template-full-width.php","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"class_list":["post-206","page","type-page","status-publish","hentry"],"yoast_head":"\n
\n<\/b><\/span>var tf: text;
\n<\/span>begin<\/span><\/span>
\n\u00a0 assign(tf,’c:\\tp3\\test.txt’);<\/span>
\n\u00a0 rewrite(tf);<\/span>
\n\u00a0 writeln(tf,’Dit is een test.’);<\/span>
\n\u00a0 writeln(tf);<\/span>
\n\u00a0 writeln(tf,’turbo pascal’);<\/span>
\n\u00a0 close(tf);<\/span>
\nend.<\/span><\/p>\n
\n<\/b>type s80 = string[80];
\nvar<\/span>
\n\u00a0 tf: text;<\/span>
\n\u00a0 regel: s80;
\nbegin<\/span>
\n\u00a0 assign(tf,’c:\\tp3\\test.txt’);<\/span>
\n\u00a0 reset(tf);<\/span>
\n\u00a0 while not eof(tf) do<\/span>
\n\u00a0 begin<\/span>
\n\u00a0 \u00a0 readln(tf,regel);<\/span>
\n\u00a0 \u00a0 writeln(regel);<\/span>
\n\u00a0 end;<\/span>
\n\u00a0 close(tf);<\/span>
\nend.<\/span><\/p>\n
\nAls je naar een bestand wilt schrijven dat al bestaat, is dat misschien niet wenselijk.
\nWe zouden in beide gevallen een manier willen hebben om vooraf te kunnen controleren of een bestand al bestaat.
\nDit kunnen we doen door de standaard-controle zoals ingebouwd door de compiler te omzeilen en deze controle zelf uit te voeren.
\nDit gaat als volgt:<\/p>\n
\nHierna lees je de ingebouwde virabele IOResult uit om te kijken of zich een fout heeft voorgedaan.<\/p>\n
\n<\/span>\u00a0 var b: file;
\n<\/span>begin<\/span><\/span>
\n\u00a0 assign(b,bn);<\/span>
\n\u00a0 {$I-}<\/span>
\n\u00a0 \u00a0 reset(b);<\/span>
\n\u00a0 {$I+}<\/span>
\n\u00a0 close(b);<\/span>
\n\u00a0 if IOResult = 0 then<\/span>
\n\u00a0 begin<\/span>
\n\u00a0 \u00a0 Bestaat := true;<\/span>
\n\u00a0 \u00a0 close(b);<\/span>
\n\u00a0 end<\/span>
\n\u00a0 else<\/span>
\n\u00a0 \u00a0 Bestaat := false;<\/span>
\nend;<\/span><\/p>\n
\nDe regel\u00a0var b: file;<\/b>\u00a0declareerd een ongedefinieerd bestand.<\/p>\nOefeningen.<\/h2>\n
\nSchrijf een programma dat het aantal regels in een tekstbestand telt. Het programma moet om de naam van het bestand vragen. [Antwoord<\/a>]\n
\nSchrijf een programma dat een Pascal-programma, waarvan de naam wordt gevraagd, voorziet van regelnummers. Het *.pas-bestand moet dezelfde naam behouden, maar nu met de extensie “.num”.
\nMet de functie\u00a0copy([string-var],[start-pos],[aantal-kar]<\/b>\u00a0krijg je een nieuwe string die bestaat uit de deelstring van\u00a0[string-var]<\/i>\u00a0vanaf positie\u00a0[start-pos]<\/i>\u00a0over een lengte van\u00a0[aantal-kar]<\/i>. Zo levert\u00a0copy(‘hallo’,1,3)<\/b>\u00a0de string\u00a0‘hal’<\/i>\u00a0op. [Antwoord<\/a>]\n