1

Operacje na plikach

zewnętrznych

Pascal

Marek Pudełko

2

Definicja

• Pascal umożliwia obsługę plików

zewnętrznych – zarówno tekstowych
jak i binarnych.

• Umożliwia realizację następujących

operacji:

– Otwieranie plików
– Czytanie z nich
– Zapisywanie plików
– Dopisywanie do plików.

3

Operacje na plikach

Append

Otwiera plik do dopisywania.
Plik musi być tekstowy i musi

istnieć, w przeciwnym razie

powstanie błąd.
Append(plik: Text);

Reset

Otwiera istniejący plik z nazwą
przekazaną do Plik poleceniem

Assign.
Reset(plik);

Reset

Tworzy i otwiera nowy plik.
Plik jest nazwą przekazaną za
pomocą polecenia Assign.
Rewrite(plik);

4

5

Assign i Close

• Assign(plik : String);

– Procedura przypisuje zmiennej plikowej plik

plik o nazwie nazwa.

– Plik może być zmienną typu Text. By

odwoływać się do jakiegoś pliku, zawsze
należy najpierw użyć procedury Assign.
Przy dalszych operacjach pliki są
identyfikowane przy pomocy zmiennej
plikowej.

• Close(var plik : file);

– Procedura służąca do zamykania otwartego

pliku dowolnego typu.

6

Budowa programu do operacji na

plikach

program do_pliku;
var z:text;

{zmienne typu plikowego}

begin
assign (z,‘pliczek.txt');

{skojarzenie zmiennej tekstowej z nazwa pliku}

rewrite (z); {przygotowanie pliku do zapisu}
append (z); {przygotowanie pliku do zapisu}
reset (z); {przygotowanie pliku do zapisu}
{…}
close (z2);

{zamkniecie pliku po zakonczeniu pracy z nim}

readln;
end.

7

program program_zapisujacy_do_pliku;
var z1,z2:text;
imie,nazwisko,adres,miasto:string;

begin
assign (z2, 'wynik.txt'); {skojarzenie zmiennej tekstowej z nazwa pliku}
rewrite (z2); {przygotowanie pliku do zapisu}
writeln ('Program zapisuje do pliku dane adresowe uzytkownika');
write ('Podaj swoje imie: ');
readln (imie);
write ('Podaj swoje nazwisko: ');
readln (nazwisko);
write ('Podaj swoj adres: ');
readln (adres);
write ('Podaj swoje miasto: ');
readln (miasto);
writeln (z2,imie); {zapis do lpliku}
writeln (z2,nazwisko);
writeln (z2,adres);
writeln (z2,miasto);
close (z2); {zamkniecie pliku po zakonczeniu pracy z nim}
readln;
end.

8

program program_czytajacy_z_pliku;
var z1,z2:text;
imie,nazwisko,adres,miasto:string;

begin
assign (z2, 'wynik.txt'); {skojarzenie zmiennej tekstowej z nazwa pliku}
reset (z2); {przygotowanie pliku do czytania}
readln (z2,imie); {odczyt z pliku}
readln (z2,nazwisko);
readln (z2,adres);
readln (z2,miasto);
writeln ('Program wczytuje z pliku dane adresowe uzytkownika');
write ('Twoje imie to: ');
writeln (imie);
write ('Twoje nazwisko to: ');
writeln (nazwisko);
write ('Twoj adres to: ');
writeln (adres);
write ('Twoje miasto to: ');
writeln (miasto);
close (z2); {zamkniecie pliku po zakonczeniu pracy z nim}
readln;
end.

9

Rozmiar pliku

• FileSize(var plik : file) : LongInt;

– Funkcja zwraca wielkość pliku. Plik nie może być tekstowy i

musi być otwarty (np. poleceniem Reset). Wartość zwracana

jest w jednostkach, z których składa się plik.

• Przykład
var plik: file of real;
r: real;
begin
Assign(plik,'liczby.tmp');
Rewrite(plik);
r:=1;
Write(plik, r, r); {zapisanie dwóch liczb do

pliku}

Writeln(FileSize(plik));{2}
Close(plik);
end.

10

Aktualna pozycja pliku

• FilePos(var plik : file) : LongInt;

– Funkcja zwraca aktualną pozycję pliku. Plik nie może być

tekstowy i musi być otwarty (np. poleceniem Reset). Wartość

zwracana jest w jednostkach, z których składa się plik.

• Przykład
var plik: file of real;
r:real;
begin
Assign(plik,'liczby.tmp');
Rewrite(plik);
r:=1;
Write(plik, r, r); {zapisanie dwóch liczb do

pliku}

Writeln(FilePos(plik)); {2}
Close(plik);
end.

11

Szukanie w pliku

• Seek (F;N:Longint);

– Ustawia pozycję w pliku na N.

• SeekEof : boolean;

– Funkcja zwraca wartość TRUE jeśli jest

koniec pliku.

• SeekEoln : boolean;

– Funkcja przyjmuje wartość TRUE jeśli jest

koniec linii w pliku.

12

Koniec pliku

• Eof(var plik: file ):Boolean

– Funkcja zwraca wartość logiczną True jeśli osiągnięty

został koniec pliku.

• Przykład
var
F: text;
Ch:char;
begin
Assign(F,'c:\autoexec.bat');
Reset(F);
while not Eof(F) do
Begin
Read(F, Ch);
Write(Ch); {pokaż zawartość pliku}
End;
end.

13

Znacznik końca pliku

• Eoln(var plik: file): Boolean

– Zwraca wartość logiczną True jeśli

wskaźnik pozycji pliku wskazuje na koniec
wiersza.

14

Skrócenie pliku

• Truncate(F)

– Skraca plik począwszy od aktualnej

pozycji.

15

Zmiana nazwy pliku

• Rename( F;NowaNazwa)

– Zmienia nazwę pliku.