Difference between revisions of "Basic Pascal Tutorial/Chapter 2/Files/zh CN"

From Free Pascal wiki
Jump to navigationJump to search
m (Fixed syntax highlighting)
m (bypass language bar/categorization template redirect [cf. discussion])
 
(3 intermediate revisions by the same user not shown)
Line 1: Line 1:
{{Files}}
+
{{Basic Pascal Tutorial/Chapter 2/Files}}
  
 
2D - 文件操作 (原作者: Tao Yue, 状态: 未更改)
 
2D - 文件操作 (原作者: Tao Yue, 状态: 未更改)
Line 65: Line 65:
  
 
{|style=color-backgroud="white" cellspacing="20"
 
{|style=color-backgroud="white" cellspacing="20"
|[[Formatting_output/zh_CN|上一页]]
+
|[[Basic Pascal Tutorial/Chapter 2/Formatting output/zh_CN|上一页]]
|[[Contents/zh_CN|目录]]
+
|[[Basic Pascal Tutorial/Contents/zh CN|目录]]
|[[EOLN_and_EOF/zh_CN|下一页]]
+
|[[Basic Pascal Tutorial/Chapter 2/EOLN and EOF/zh_CN|下一页]]
 
|}
 
|}

Latest revision as of 15:18, 20 August 2022

български (bg) Deutsch (de) English (en) français (fr) 日本語 (ja) 中文(中国大陆)‎ (zh_CN)

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

读取文件,但不是从控制台(键盘)中读取数据,可以这样:

read (文件变量, 参数列表);
write (文件变量, 参数列表);

同样用 readlnwriteln。文件变量声明如下:

var
  ...
  filein, fileout : text;

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

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

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

reset 将对打开的文件进行读取或重写。 使用reset操作文件,只能进行readreadln操作。 使用rewrite操作文件,只能进行writerewrite操作。

Turbo Pascal 使用引入赋值。首先将文件名赋值给一变量,之后调用resetrewrite

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.
上一页 目录 下一页