Basic Pascal Tutorial/Chapter 2/Files/zh CN
From Lazarus wiki
Jump to navigationJump to search
│
български (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.
上一页 | 目录 | 下一页 |