Basic Pascal Tutorial/Chapter 2/Files/zh CN

│ български (bg) │ Deutsch (de) │ English (en) │ français (fr) │ 日本語 (ja) │ 中文（中国大陆） (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.

上一页

目录

下一页