类型文件文本文件.docVIP

第九章 文 件 类型文件　　文本文件 　　前面所有的数据类型都是在程序运算期间存在的、存储于内存中的数据。计算机在处理问题时，有些数据需要长期保留，这就需要把这些数据存储在外存储器中，如磁盘、磁带等。描述与外部设备联系的数据称为文件。　　PASCAL语言中的文件按其结构可以分为二进制文件(也称类型文件)和ASCII码文件(也称文本文件)。 9.1　类型文件　　按数据的二进制代码形式存放的文件称为类型文件。如果再按照组成类型文件的元素数据结构分，又可以分为有类型文件和无类型文件。其定义为：　　type 类型名=file of 基类型；{有类型文件}　　　　　类型名=file；　　　　{无类型文件}　　例如：var f:file of integer;　　　　　说明：以f为名的变量对应文件将用于存放整数。　　　　　var g:file;　　　　　说明：以g为名的变量对应文件的数据无任何规定。　　Turbo Pascal有关类型文件的函数和过程　　(1)assign过程　　形式：assign(f,str);　　功能：将文件名字符串str赋给文件变量f，程序对文件变量f的操作代替对文件str的操作。　　(2)rewrite过程　　形式：rewrite(f);　　功能：建立并打开一个新的允许写磁盘的文件，其文件名必须先由assign过程赋给变量f。这时，指向文件元素的指针指向第一个元素，rewrite过程所建立的文件为空文件。　　(3)reset过程　　形式：reset(f);　　功能：打开一个已经存在的磁盘文件，其文件名必须先由assign过程赋给变量f,该文件只能读，指向文件元素的指针指向第一个元素。　　(4)read过程　　形式：read(f,var表);　　功能：从磁盘文件f中，将数据依次读到var表表示的各个变量中。　　(5)write过程　　形式：write(f,var表);　　功能：将var表所表示的各个变量的值依次写到磁盘文件f上。　　(6)close过程　　形式：close(f);　　功能：关闭和f关联的磁盘文件，在写操作时自动产生一个文件结束标志。　　(7)seek过程　　形式：seek(f,n);　　功能：把文件指针移到f指明文件的第n个元素。　　(8)eof函数　　形式：eof(f);　　功能：若文件指向文件尾，则返回true,否则返回false。　　对有类型文件的写操作步骤为：　　assign(f,str);　　rewrite(f);　　write(f,var表);　　close(f);　　对有类型文件的读操作步骤为：　　assign(f,str);　　reset(f);　　read(f,var表);　　close(f); 　　例：在磁盘上建立一个1～50的平方数的数据文件laohu.dat。要求以一个数和这个数的平方数的格式写入。　　program laohu;　　　var f:file of integer;　　　i:integer;　　begin　　　assign(f,laohu.dat);　　　rewrite(f);　　　for i:=1 to 50 do write(f,i,sqr(i));　　　close(f)　　end. 2.2　文本文件　　文本文件的内容由ASCII字符集中的字符组成，因此文本文件也称ASCII码文件，它可以用DOS中的type命令列出内容。文本文件具体是由一系列行组成，每一行可以包括0个或多个字符型成分，并以行结束符结尾，文本文件类型TXT和类型文件file of char区别在于后者不包含行结束符。　　文本文件和类型文件在读写上的差别在于前者只能按次序顺序读写，而后者可以不按照次序读写。适用文本文件的函数和过程除了用于类型文件操作的过程和函数外主要还有：　　（1)readln过程??? 形式：readln(f,var表);或readln(f）；??? 功能：从磁盘文件f中，将数据依次读到var表表示的各变量中（其中readln(f)只读数据），并将文件指针移到行结束符后，就是下一行开头。　　（2）writeln过程　　形式：writeln(f,var表)或writeln(f);　　功能：将var表所表示的各个变量的值依次写到磁盘文件f上去（writeln(f)不写值），然后再写一个行结束符。　　（3）append过程　　形式：append(f);　　功能：打开一个已经存在的磁盘文件，其文件名必须和assign过程中的变量名f相对应，该文件只能写，此时文件指针指向文件尾。（4）eoln函数　　形式：eoln(f);　　功能：若文件指针指向行结束