Pascal - 檔案處理

---

---

Pascal 將檔案視為一系列元件，這些元件必須具有統一的型別。檔案的型別由元件的型別決定。檔案資料型別定義如下：

type
file-name = file of base-type;

其中，基本型別指示檔案的元件型別。基本型別可以是任何型別，例如整數、實數、布林值、列舉、子範圍、記錄、陣列和集合，但不能是另一種檔案型別。檔案型別的變數使用var宣告建立：

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

以下是一些定義檔案型別和檔案變數的示例：

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;

建立和寫入檔案

讓我們編寫一個程式，為學生記錄建立一個數據檔案。它將建立一個名為 students.dat 的檔案，並將學生資料寫入其中：

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.

編譯並執行後，程式將在工作目錄中建立一個名為students.dat的檔案。您可以使用文字編輯器（如記事本）開啟該檔案以檢視 John Smith 的資料。

從檔案讀取

我們剛剛建立並寫入了一個名為 students.dat 的檔案。現在，讓我們編寫一個程式，從檔案中讀取學生資料：

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.

編譯並執行上述程式碼後，會產生以下結果：

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

檔案作為子程式引數

Pascal 允許檔案變數用作標準和使用者定義子程式中的引數。以下示例說明了此概念。該程式建立一個名為 rainfall.txt 的檔案並存儲一些降雨資料。接下來，它開啟檔案，讀取資料並計算平均降雨量。

請注意，如果將檔案引數與子程式一起使用，則必須將其宣告為 var 引數。

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.

編譯並執行上述程式碼後，會產生以下結果：

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

文字檔案

在 Pascal 中，文字檔案由字元行組成，每行以換行符結尾。您可以宣告和定義此類檔案，如下所示：

type
file-name = text;

字元普通檔案與文字檔案之間的區別在於，文字檔案被分成多行，每行都由系統自動插入的特殊換行符終止。以下示例建立並寫入一個名為 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.

編譯並執行上述程式碼後，會產生以下結果：

Enter the file name:
contact.txt 
Completed writing

追加到檔案

追加到檔案意味著寫入已存在一些資料的檔案而不覆蓋該檔案。以下程式說明了這一點：

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

begin
   assign(myfile, 'contact.txt');
   append(myfile);
   
   writeln('Contact Details');
   writeln('webmaster@tutorialspoint.com');
   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.

編譯並執行上述程式碼後，會產生以下結果：

Contact Details
webmaster@tutorialspoint.com
Note to Students:
For details information on Pascal Programming
Contact: Tutorials Point

檔案處理函式

Free Pascal 提供以下檔案處理函式/過程：