Pascal - Gestione dei file

Pascal tratta un file come una sequenza di componenti, che devono essere di tipo uniforme. Il tipo di file è determinato dal tipo di componenti. Il tipo di dati del file è definito come -

type
file-name = file of base-type;

Dove, il tipo di base indica il tipo dei componenti del file. Il tipo di base potrebbe essere qualsiasi cosa come, intero, reale, booleano, enumerato, sottointervallo, record, array e set tranne un altro tipo di file. Le variabili di un tipo di file vengono create utilizzando la dichiarazione var -

var
f1, f2,...: file-name;

Di seguito sono riportati alcuni esempi di definizione di alcuni tipi di file e variabili di file:

type
   rfile = file of real;
   ifile = file of integer;
   bfile = file of boolean;
   datafile = file of record
   arrfile = file of array[1..4] of integer;

var
   marks: arrfile;
   studentdata: datafile;
   rainfalldata: rfile;
   tempdata: ifile;
   choices: bfile;

Creazione e scrittura su un file

Scriviamo un programma che crei un file di dati per i record degli studenti. Creerebbe un file chiamato students.dat e vi scriverà i dati di uno studente -

program DataFiles;
type
   StudentRecord = Record
      s_name: String;
      s_addr: String;
      s_batchcode: String;
   end;

var
   Student: StudentRecord;
   f: file of StudentRecord;

begin
   Assign(f,'students.dat');
   Rewrite(f);
   Student.s_name := 'John Smith';
   Student.s_addr := 'United States of America';
   Student.s_batchcode := 'Computer Science';
   Write(f,Student);
   Close(f);
end.

Una volta compilato ed eseguito, il programma creerebbe un file denominato students.dat nella directory di lavoro. Puoi aprire il file utilizzando un editor di testo, come il blocco note, per esaminare i dati di John Smith.

Leggere da un file

Abbiamo appena creato e scritto in un file chiamato students.dat. Ora, scriviamo un programma che legga i dati dello studente dal file -

program DataFiles;
type
   StudentRecord = Record
      s_name: String;
      s_addr: String;
      s_batchcode: String;
   end;

var
   Student: StudentRecord;
   f: file of StudentRecord;

begin
   assign(f, 'students.dat');
   reset(f); 
   while not eof(f) do
   
   begin
      read(f,Student);
      writeln('Name: ',Student.s_name);
      writeln('Address: ',Student.s_addr);
      writeln('Batch Code: ', Student.s_batchcode);
   end;
   
   close(f);
end.

Quando il codice precedente viene compilato ed eseguito, produce il seguente risultato:

Name: John Smith
Address: United States of America
Batch Code: Computer Science

File come parametri di sottoprogramma

Pascal consente di utilizzare le variabili di file come parametri nei sottoprogrammi standard e definiti dall'utente. Il seguente esempio illustra questo concetto. Il programma crea un file chiamato rain.txt e memorizza alcuni dati sulle precipitazioni. Successivamente, apre il file, legge i dati e calcola la piovosità media.

Si prega di notare che, if you use a file parameter with subprograms, it must be declared as a var parameter.

program addFiledata;
const
   MAX = 4;
type
   raindata = file of real;

var
   rainfile: raindata;
   filename: string;
procedure writedata(var f: raindata);

var
   data: real;
   i: integer;

begin
   rewrite(f, sizeof(data));
   for i:=1 to MAX do
   
   begin
      writeln('Enter rainfall data: ');
      readln(data);
      write(f, data);
   end;
   
   close(f);
end;

procedure computeAverage(var x: raindata);
var
   d, sum: real;
   average: real;

begin
   reset(x);
   sum:= 0.0;
   while not eof(x) do
   
   begin
      read(x, d);
      sum := sum + d;
   end;
   
   average := sum/MAX;
   close(x);
   writeln('Average Rainfall: ', average:7:2);
end;

begin
   writeln('Enter the File Name: ');
   readln(filename);
   assign(rainfile, filename);
   writedata(rainfile);
   computeAverage(rainfile);
end.

Quando il codice precedente viene compilato ed eseguito, produce il seguente risultato:

Enter the File Name:
rainfall.txt
Enter rainfall data:
34
Enter rainfall data:
45
Enter rainfall data:
56
Enter rainfall data:
78
Average Rainfall: 53.25

File di testo

Un file di testo, in Pascal, è costituito da righe di caratteri in cui ogni riga termina con un indicatore di fine riga. Puoi dichiarare e definire file come:

type
file-name = text;

La differenza tra un normale file di caratteri e un file di testo è che un file di testo è diviso in righe, ciascuna terminata da uno speciale marcatore di fine riga, inserito automaticamente dal sistema. L'esempio seguente crea e scrive in un file di testo denominato contact.txt -

program exText;
var
   filename, data: string;
   myfile: text;

begin
   writeln('Enter the file name: ');
   readln(filename);
   
   assign(myfile, filename);
   rewrite(myfile);
   
   writeln(myfile, 'Note to Students: ');
   writeln(myfile, 'For details information on Pascal Programming');
   writeln(myfile, 'Contact: Tutorials Point');
   writeln('Completed writing'); 
   
   close(myfile);
end.

Quando il codice precedente viene compilato ed eseguito, produce il seguente risultato:

Enter the file name:
contact.txt 
Completed writing

Aggiunta a un file

Aggiungere a un file significa scrivere su un file esistente che contiene già alcuni dati senza sovrascrivere il file. Il seguente programma lo illustra:

program exAppendfile;
var
   myfile: text;
   info: string;

begin
   assign(myfile, 'contact.txt');
   append(myfile);
   
   writeln('Contact Details');
   writeln('[email protected]');
   close(myfile);
   
   (* let us read from this file *)
   assign(myfile, 'contact.txt');
   reset(myfile);
   while not eof(myfile) do
   
   begin
      readln(myfile, info);
      writeln(info);
   end;
   close(myfile);
end.

Quando il codice precedente viene compilato ed eseguito, produce il seguente risultato:

Contact Details
[email protected]
Note to Students:
For details information on Pascal Programming
Contact: Tutorials Point

Funzioni di gestione dei file

Free Pascal fornisce le seguenti funzioni / procedure per la gestione dei file:

Sr.No.	Nome e descrizione della funzione
1	procedure Append(var t: Text); Apre un file in modalità di aggiunta
2	procedure Assign(out f: file; const Name:); Assegna un nome a un file
3	procedure Assign(out f: file; p: PChar); Assegna un nome a un file
4	procedure Assign(out f: file; c: Char); Assegna un nome a un file
5	procedure Assign(out f: TypedFile; const Name:); Assegna un nome a un file
6	procedure Assign(out f: TypedFile; p: PChar); Assegna un nome a un file
7	procedure Assign(out f: TypedFile; c: Char); Assegna un nome a un file
8	procedure Assign(out t: Text; const s:); Assegna un nome a un file
9	procedure Assign(out t: Text; p: PChar); Assegna un nome a un file
10	procedure Assign(out t: Text; c: Char); Assegna un nome a un file
11	procedure BlockRead(var f: file; var Buf; count: Int64; var Result: Int64); Legge i dati da un file in memoria
12	procedure BlockRead(var f: file; var Buf; count: LongInt; var Result: LongInt); Legge i dati da un file in memoria
13	procedure BlockRead(var f: file; var Buf; count: Cardinal; var Result: Cardinal); Legge i dati da un file in memoria
14	procedure BlockRead(var f: file; var Buf; count: Word; var Result: Word); Legge i dati da un file in memoria
15	procedure BlockRead(var f: file; var Buf; count: Word; var Result: Integer); Legge i dati da un file in memoria
16	procedure BlockRead(var f: file; var Buf; count: Int64); Legge i dati da un file in memoria
17	procedure BlockWrite(var f: file; const Buf; Count: Int64; var Result: Int64); Scrive i dati dalla memoria in un file
18	procedure BlockWrite(var f: file; const Buf; Count: LongInt; var Result: LongInt); Scrive i dati dalla memoria in un file
19	procedure BlockWrite(var f: file; const Buf; Count: Cardinal; var Result: Cardinal); Scrive i dati dalla memoria in un file
20	procedure BlockWrite(var f: file; const Buf; Count: Word; var Result: Word); Scrive i dati dalla memoria in un file
21	procedure BlockWrite(var f: file; const Buf; Count: Word; var Result: Integer); Scrive i dati dalla memoria in un file
22	procedure BlockWrite(var f: file; const Buf; Count: LongInt); Scrive i dati dalla memoria in un file
23	procedure Close(var f: file); Chiude un file
24	procedure Close(var t: Text); Chiude un file
25	function EOF(var f: file):Boolean; Controlla la fine del file
26	function EOF(var t: Text):Boolean; Controlla la fine del file
27	function EOF: Boolean; Controlla la fine del file
28	function EOLn(var t: Text):Boolean; Controlla la fine della riga
29	function EOLn: Boolean; Controlla la fine della riga
30	procedure Erase(var f: file); Elimina il file dal disco
31	procedure Erase(var t: Text); Elimina il file dal disco
32	function FilePos( var f: file):Int64; Posizione nel file
33	function FileSize(var f: file):Int64; Dimensioni del file
34	procedure Flush(var t: Text); Scrive i buffer di file su disco
35	function IOResult: Word; Restituisce il risultato dell'ultima operazione di I / O del file
36	procedure Read(var F: Text; Args: Arguments); Legge dal file nella variabile
37	procedure Read(Args: Arguments); Legge dal file nella variabile
38	procedure ReadLn(var F: Text; Args: Arguments); Legge dal file nella variabile e passa alla riga successiva
39	procedure ReadLn(Args: Arguments); Legge dal file nella variabile e passa alla riga successiva
40	procedure Rename(var f: file; const s:); Rinomina il file su disco
41	procedure Rename(var f: file; p: PChar); Rinomina il file su disco
42	procedure Rename(var f: file; c: Char); Rinomina il file su disco
43	procedure Rename(var t: Text; const s); Rinomina file su disco
44	procedure Rename(var t: Text; p: PChar); Rinomina il file su disco
45	procedure Rename( var t: Text; c: Char); Rinomina il file su disco
46	procedure Reset(var f: file; l: LongInt); Apre il file per la lettura
47	procedure Reset(var f: file); Apre il file per la lettura
48	procedure Reset(var f: TypedFile); Apre il file per la lettura
49	procedure Reset(var t: Text); Apre il file per la lettura
50	procedure Rewrite(var f: file; l: LongInt); Apre il file per la scrittura
51	procedure Rewrite(var f: file); Apre il file per la scrittura
52	procedure Rewrite(var f: TypedFile); Apre il file per la scrittura
53	procedure Rewrite(var t: Text); Apre il file per la scrittura
54	procedure Seek(var f: file; Pos: Int64); Imposta la posizione del file
55	function SeekEOF(var t: Text):Boolean; Imposta la posizione del file alla fine del file
56	function SeekEOF: Boolean; Imposta la posizione del file alla fine del file
57	function SeekEOLn(var t: Text):Boolean; Imposta la posizione del file alla fine della riga
58	function SeekEOLn: Boolean; Imposta la posizione del file alla fine della riga
59	procedure SetTextBuf(var f: Text; var Buf); Imposta la dimensione del buffer del file
60	procedure SetTextBuf(var f: Text; var Buf; Size: SizeInt); Imposta la dimensione del buffer del file
61	procedure Truncate(var F: file); Tronca il file alla posizione
62	procedure Write(Args: Arguments); Scrive la variabile su file
63	procedure Write(var F: Text; Args: Arguments); Scrivi variabile su file
64	procedure Writeln(Args: Arguments); Scrive la variabile nel file e accoda la nuova riga
65	procedure WriteLn(var F: Text; Args: Arguments); Scrive la variabile nel file e accoda la nuova riga