[ Pobierz całość w formacie PDF ]
Po skojarzeniu nale y plik otworzy . Mamy do wyboru kilka procedur
otwieraj cych:
" Reset(zmienna_plikowa) - otwiera tylko plik ju istniej cy,
brak pliku powoduje wyst pienie b du fatalnego wejscia-wyj cia. Plik
otwarty do czytania lub czytania i pisania.
" Rewrite(zmienna_plikowa) - tworzy plik, je li ju istnieje to
otwiera plik skojarzony ze zm_plikow . Je li plik ju istnieje to dane w
nim zapisane zostan nadpisane. Plik otwarty do pisania.
" Append(zmienna_plikowa) - Procedura ta dotyczy tylko plików
tekstowych. Otwiera do pisania istniej cy plik, (skojarzony ze
zmienn _plikow ). Dane b d dopisywane na koniec pliku.
" Close(zmienna_plikowa) - zamyka plik skojarzony ze zmienn
plikow .
" Function Eof(zm_Plik):Boolean; Zwraca TRUE gdy
osi gni ty zosta koniec pliku FALSE w przeciwnym przypadku.
Zapisywanie i odczytywanie danych z pliku odbywa si za pomoc
procedur:
Read, Readln, Write, Writeln:
Read(zmienna_plikowa,lista_argumentów);
Write(zmienna_plikowa,lista_argumentów);
Procedury te by y ju u ywane wcze niej, pierwszy parametr by wtedy
opuszczany. Oznacza o to operacje na specjalnym pliku tekstowym
konsoli. Pliku tego mo na u ywa jawnie:
var plikwe,plikwy;
...
Assign(plikwe, );
Assign(plikwy, );
Reset(plikwe);
Rewrite(plikwy);
...
read(plikwe,n);
for i:=1 to 10 do
writeln(plikwy,'Tekst na ekran(',n,')razy');
Sk adnia procedur czytania i pisania z plików powinna wi c by znana .
J zyki programowania -Pascal Strona 58
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
10.2 Pliki tekstowe
10.2 Pliki tekstowe
10.2 Pliki tekstowe
10.2 Pliki tekstowe
Konsola plik tekstowy standardowo otwarty do czytania i pisania.
Metody otwarcia:
Reset tylko do czytania
Rewrite tylko do pisania
Append do aktualizacji, czyli pisania na ko cu pliku.
10.2.1 Plik tekstowy a plik file of char
Program pliki_tekstowe;
var
plik_wejsciowy : text;
plik_wyjsciowy : file of char;
znak : char;
begin
Assign(plik_wejsciowy, 'plik.in');
Assign(plik_wyjsciowy, 'plik.out');
{$I-} Reset(plik_wejsciowy); {$I+}
if IOResult 0 then exit;
ReWrite(plik_wyjsciowy);
while not EoF(plik_wejsciowy) do begin
Read(plik_wejsciowy, znak);
Write(plik_wyjsciowy, znak);
Write(znak);
end;
Close(plik_wejsciowy);
Close(plik_wyjsciowy);
end.
J zyki programowania -Pascal Strona 59
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
10.3 Pliki elementowe
10.3 Pliki elementowe
10.3 Pliki elementowe
10.3 Pliki elementowe
Metody otwarcia:
Reset do czytania i pisania
Rewrite tylko do pisania
Append NIE JEST DOST PNA, ale w zamian mamy:
Seek, FilePos, FileSize.
PROGRAM Pliki;
USES Crt;
Const ESC_Key =#27;
TYPE Osoba = RECORD
Imie, Nazw : String[15];
Adres : String[50];
Tel : String[10];
END;
PlikOsob = FILE OF Osoba;
Function Tworz(Var Plik : PlikOsob):Boolean;
VAR Nazwa : String;
Begin
Twórz:=False; ClrScr;
Write('Podaj nazwe pliku i sciezke : ');
ReadLn(Nazwa); Assign(Plik, Nazwa);
{$I-} Rewrite(Plik); {$I+}
if IOResult 0 then exit;
Twórz:=True
End;
Function Otworz(Var Plik : PlikOsob):Boolean;
VAR Nazwa : String;
Begin
Otwórz:=False; ClrScr;
Write('Podaj nazwe pliku i sciezke : ');
ReadLn(Nazwa); Assign(Plik, Nazwa);
{$I-} Reset(plik); {$I+}
if IOResult 0 then exit;
Otwórz:=True
End;
J zyki programowania -Pascal Strona 60
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
PROCEDURE CzytajRec(Var x:Osoba);
Begin
ClrScr;
Write('Podaj imie : ');
ReadLn(x.Imie);
Write('Podaj nazwisko : ');
ReadLn(x.Nazw);
Write('Podaj adres : ');
ReadLn(x.Adres);
Write('Podaj telefon : ');
ReadLn(x.Tel);
End;
PROCEDURE WypiszRec(Var x:Osoba);
Begin
Writeln('IMIE : ', x.Imie);
Writeln('NAZWISKO : ', x.Nazw);
Writeln('ADRES : ', x.Adres);
Writeln('TELEFON : ', x.Tel);
End;
PROCEDURE DopiszDoPliku(Var Plik : PlikOsob;
x:Osoba);
Begin
Seek(Plik, FileSize(Plik));
Write(Plik, x);
End;
PROCEDURE Wypisz(Var Plik : PlikOsob);
Var x:Osoba;
Begin
Reset(Plik);
While Not Eof(Plik) Do
Begin
ClrScr;
Read(Plik, x);
WypiszRec(x)
If ReadKey=ESC_Key then break;
End;
End;
J zyki programowania -Pascal Strona 61
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
10.4 Pliki amorficzne
10.4 Pliki amorficzne
10.4 Pliki amorficzne
10.4 Pliki amorficzne
S to pliki binarne o nieokre lonej strukturze. Procedury otwarcia
Reset(pilk,wielkosc_jednostki)
Rewrite(pilk,wielkosc_jednostki)
wielkosc_jednostki (Word) oznacza wielko pojedynczego
elementu jaki b dzie czytane z pliku; domy lnie 128.
procedure BlockRead(var F: File; var Buf; Count:
Word [; var Result:Word]);
[ Pobierz całość w formacie PDF ]