Basic Pascal Tutorial/Chapter 2/Files/zh CN

2D - 文件操作 (原作者: Tao Yue, 状态: 未更改)

读取文件，但不是从控制台（键盘）中读取数据，可以这样：

read (????????????, ????????????);
write (????????????, ????????????);

同样用 readln 和 writeln。文件变量声明如下：

var
  ...
  filein, fileout : text;

text 数据类型指定该文件仅是纯文本形式。

操作文件时，需要先声明变量，以读取或者写入数据；我们需要将磁盘上的文件与变量相关联，可以使用以下2种方式之一，通常：

reset (文件变量, '文件名');
rewrite (文件变量, '文件名');

reset 将对打开的文件进行读取或重写。 使用reset操作文件，只能进行read、readln操作。 使用rewrite操作文件，只能进行write、rewrite操作。

Turbo Pascal 使用引入赋值。首先将文件名赋值给一变量，之后调用reset或rewrite。

assign (????????????, '文件名');
reset (????????????);

操作系统不同，路径表达方法也不一。Windows使用反斜杠(如 c:\directory\name.pas)，而MacOS、Linux使用斜杠。

操作完成后，你需要关闭它：

close (???????????????);

下面是一个操作文件的示例，程序运行在DOS下，将读取file1.txt内容，写入到file2.txt中。

program CopyOneByteFile;

var
   mychar : char;
   filein, fileout : text;

begin
   assign (filein, 'c:\file1.txt');
   reset (filein);
   assign (fileout, 'c:\file2.txt');
   rewrite (fileout);
   read (filein, mychar);
   write (fileout, mychar);
   close(filein);
   close(fileout)
end.

From the Free Pascal wiki, page "Basic Pascal Tutorial/Chapter 2/Files/zh CN", as it stood on 2022-08-20 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.