广东省汕头市高中信息技术奥林匹克信息学竞赛班第八课文件的综合应用第二阶段培训

文件

在前面的编程中，我们常需要从键盘输入数据，在屏幕显示运算结果。当需要输入的数据量较大时，调试时就必须一次次输入大量的数据，相当麻烦而且容易出错；当输出的数据很多时，屏幕上一闪而过，来不及看清，而且对输出数据无法加以利用。

Pascal提供了这样的功能：先把输入数据存到某个文件中（如txt文档），程序从文件中读入数据；程序的运算结果也可以输出到某个文件中。Pascal中有三种类型的文件：有类型文件、文本文件、无类型文件，我们主要用到文本类型的文件。

§8.1 定义路径

使用文件时，必须说明输入输出文件和程序源文件的相对位置，因此，输入输出文件最好跟程序的源文件处于同一个位置。

例如要将源程序保存到D盘的“jz0401”目录中：先在D盘建文件夹“jz0401”；在Pascal环境中，File菜点下的“Change dir”设置路径，在弹出的对话框中输入D:\jz0401。

§8.2 文件的建立

输入文件必须自己建立，建立的方法有两种。

方法一：在指定位置新建文本文档，如上例中，到D盘jz0401目录中新建一文本文档，然后打开该文档，输入内容，最后将该文档改名。

1 / 6

方法二：在Pascal中，用File菜单中的“new”新建一文件，输入内容后保存，注意保存时必须输入后缀名。

输入文件的后缀名可以是txt，也可以是其它自定义的类型，如“in”、“dat”等，但无论其后缀名如何写，都是可以用记事本打开（直接双击该文件后在打开方式中选择记事本），也可以在Pascal环境中用File菜单下的open（F3）打开。

输入文件的内容按程序中读入变量的顺序逐一输入，即以前在键盘输入时如何输入，在文件中也如何输入，该回车换行时也要回车换行。例如在程序中：

readln (a,b); {a、b为实型变量}

readln (c); {c为字符型变量}

for i:=1 to 5 do read(S[i]); {S数组为整型}

则输入文件中的内容可以为：

3.54 7.1

h

6 22 89 1 8

§8.3 文件的使用

使用文件读入数据或输出数据时，源程序必须按如下步骤使用文件：

1．文件变量的说明： var f ：text ；

2．文件变量与实际文件的连接： assign（f ，’文件名.后缀名’）；

3．打开文件，做好读或写准备：

只读——Reset（f）；

打开文件并作好处理准备，指针指向的第0号元素，f 必须是一个已存在的文件。

* reset 打开的文件只能读

2 / 6

写——Rewrite（f）；

建立并打开一个新的文件（该文件名由assign赋给 f ），同时作好处理准备，把文件指针指向文件的开头，即第0号元素。以前已存在的同名文件将被覆盖。

追加——Append（f）；

打开一个已存在

．．．的文件并把指针指向文件尾部，用于向文件尾部添加数据。

4．从文件中读出数据，或将数据写入文件

读——Read（f ，V1 ，V2，V3……）；/ Readln（f ，V1 ，V2，V3……）；

从文件中读出数据，依次赋给变量V1 ，V2，V3……

Readln（f）；

文件指针移到下一行开头

写——Write（f ，V1 ，V2，V3……）；/ writeln（f ，V1 ，V2，V3……）；

把变量V1 ，V2，V3……的值依次写到文件上

Writeln（f）；

把一个行结束符写到文件中，并转入下一行

5．Close（f）；

关闭文件，注意：凡是进行文件操作后（无论读或写），都必须关闭文件，否则可能丢失文件！

【例1】从文件fe01.in中读出两个正整数n和m，打印1～n的sin值到文件fe01.out，每行m个数值。n<360，m<20

program jszx8_1;

var n,m,i,j:integer;

f1,f2:text; {f1、f2为文件变量}

begin

assign (f1, ‘fe01.in’); {将文件变量f1与实际文件fe01.in联系起来}

reset (f1); {以只读方式打开文件f1}

read (f1,n,m); {从文件f1中读出n和m}

close(f1); {关闭文件f1}

assign (f2, ‘fe01.out’);

rewrite (f2); {以写方式打开文件f2，若f2未存在，则生成并打开f2 }

j:=0;

for i:=1 to n do begin

write(f2,sin(i));

j:=j+1;

if j mod m=0 then writeln(f2);

end;

close(f2);

end.

【例2】编写一个加密程序，先从键盘读入源文件名和目的文件名（两个字符串），然后

3 / 6

从源文件读入若干段文字（只包含小写字母和空格），将其加密并输出到目的文件中。加密规则如下：

将‘a’变为‘z’，‘b’变为‘y’，……，‘y’变为‘b’，‘z’变为‘a’；

空格不变。

program jszx8_2;

var s1,s2:string;

cc:char;

f1,f2:text;

begin

readln(s1); readln(s2); {读入源文件名和目的文件名}

assign (f1,s1);

assign (f2,s2);

reset (f1); {以只读方式打开文件f1}

rewrite (f2); {以写方式打开文件f2}

repeat

read(f1,cc);

if cc=‘’ then write(f2, ‘’)

else write(f2,chr(122-(ord(cc)-97)));

{‘z’对应的ASCII码为122，‘a’对应97；详见ASCII码表}

if eoln(f1)=true then {判断是否读到行末}

begin

readln(f1);

writeln(f2);

end;

until eof(f1)=true; {判断是否已读到文件末尾}

close(f1);

close(f2);

end.

§8.2 其它相关函数

· Seek（f）；

把文件指针移到文件的第n个元素，n是整数或实数表达式。注意，文件的第一个元素位置为0 。可用语句Seek（f ，e（f））；把文件指针移到文件末尾。e是一个函数，自变量是文件名，其功能是回送文件中元素的个数。因为元素是从0开始编号，所以回送的数字要比最后一个元素的编号大1。

· Erase（f）；

删除文件，必须先执行Close后才能生效。

· Rename（f ，文件名）；

将文件改名

· Eof（f）；

这是一个布尔函数，用于判断文件结束否，当文件指针指到文件尾部，则其值为

4 / 6

true，否则为false ，（ Ctrl－Z字符是文本文件尾部标记）。

例： repeat

readln (f1,s[1],s[2],s[3]);

until eof(f1);

· Eoln（f）；

判断行结束的布尔函数，当文件指针指向行结束符时返回true，否则返回false。

例： repeat

read (f2,c[i]);

i:=i+1;

until eoln(f2);

·（f）；

整数函数，返回文件指针当前位置，文件的第一个元素位置为零。

· e（f）；

整数函数，返回文件的大小即元素个数，若为0则文件为空。

· Flush（f）；

刷新文件的输出缓冲区，以保证把缓冲区的内容写到文件。

练习

1．为例2编写一个解密程序：

先从键盘读入源文件名和目的文件名（两个字符串），然后从源文件读入若干段密文，将其解密后输出到目的文件中。

解密规则如下：

将‘a’变为‘z’，‘b’变为‘y’，……，‘y’变为‘b’，‘z’变为‘a’；空格不变。

2．金中的校园网中出现一种新计算机病毒，这种病毒高深莫测，所有查毒软件都无能为力。经jzoi小组研究，发现被这种病毒感染的文件的第三行为一串字符“ I am a lovely worm. ”，现需要对若干个文件进行查毒，请你帮忙编写这个查毒程序。

这需检查的文件的文件名已事先存入一个文件 fname.txt，每行一个文件；查毒的结果请存入fresult.out，每行对应fname.txt中的文件，若该文件已被感染，则输出‘worm!’，否则输出‘ok’。

5 / 6

6 / 6

本文来源：https://www.bwwdw.com/article/lex1.html