第十一章文件

1、第十一章 文件文件的概念顺序存取文本随机文件有关文件的程序举例文件的概念“文件”(file)是指存放在外部介质上的以文件名为标识的数据的集合。文件的分类文件的分类: (1)从文件的内容来区分 可以分为程序文件和数据文件两大类。前者存储的是源程序、目标程序等各种程序，后者存储的是程序运行时所用到的输入或输出的数据。 (2)从存储信息的形式来区分 可分为ASCII文件和二进制文件。前者是以ASCII代码形式存放的，后者是以机内存储数据的形式存储的。 (3)从文件的组织形式来区分 数据文件可以分为顺序文件和随机文件。 (4)按存储介质来区分 文件可以分为：磁盘文件、磁带文件、光盘文件、打印文件等。顺

2、序文件的概念n顺序存取文件(Sequence Access File)简称顺序文件，它的特点是：文件中各记录写入、存放和读出三者的顺序是一致的。顺序文件中记录的逻辑顺序与物理顺序是一致的。顺序文件有这特点：先进先出，后进后出。 n顺序文件是以ASCII代码方式存放数据的。顺序文件的打开OPEN语句OPEN语句的格式为：OPEN文件名文件名FOR读写方式读写方式AS #文件号文件号其中：文件名指欲打开的已存入的文件名其中：文件名指欲打开的已存入的文件名n读写方式可选以下三者之一：读写方式可选以下三者之一：nOUTPUT：指定向文件写数据，即从计算机向文件输出数据。：指定向文件写数据，即从计算机向

3、文件输出数据。nINPUT：指定向计算机输入数据，即计算机从文件读入数据。：指定向计算机输入数据，即计算机从文件读入数据。nAPPEND：为再文件后添加数据而打开文件。：为再文件后添加数据而打开文件。OPEN语句的说明n如果打开方式是INPUT，而此时要打开的文件不存在，再会出错；如果是其他两种方式打开文件，如果文件不存在则自动创建一个指定文件名的文件,若以OUTPUT方式打开一个文件，不论所指定的文件名在磁盘中是否存在，都意味着建立一个新的数据文件；nAS语句后的文件号可以是1255之间的任意一个整数，这个号实际是一个缓冲区号，所有的数据输入和输出语句都是用文件号来代替文件名；n对一个文件以

4、某种方式打开，则只能对其作指定的操作，如用OUTPUT打开，就只能把数据从头到尾写到文件中，而不能进行“读”操作，只有关闭后重新以INPUT打开才能进行读数据；n举例：nOPEN “a:basti01.dat” FOR OUTPUT AS #5nOPEN “c:basfile1.dat” FOR INPUT AS #1nOPEN “A:BASTI01.DAT” FOR APPEND AS #3关闭文件CLOSE语句用来关闭一个已用完不再使用的文件，其格式为： CLOSE文件号文件号,#文件文件号号 如不指定文件号，则表示关闭所有已打开的文件。对顺序文件的输出(写文件)1).PRINT#语句和语

5、句和PRINT#USING语句语句 PRINT#语句的格式为： PRINT#文件号文件号，输出项表列输出项表列 PRINT#USING语句的一般格式为： PRINT#,USING “”; 它的使用与PRINT USING语句相似，只不过前者把数据写入外存，后者把数据输出在屏幕上。2).WRITE#语句语句 格式为： WRITE#文件号文件号，输出项表列输出项表列 用它写文件时能自动地在各数据项之间插入逗号，并给字符串加双引号，且不在正数前面设置空格。用WRITE语句把数据写入文件事例主程序：主程序：DECLARE SUB afile (nf AS STRING)DECLARE SUB wfil

6、e (tfn AS STRING)REM main programDIM tfn1 AS STRING, tfn2 AS STRINGtfn1 = c:1101w.dattfn2 = c:1101a.datPRINT (1)*: CALL wfile(tfn1)PRINT (2)*: CALL afile(tfn1)PRINT (3)*: CALL afile(tfn2)DATA WAMG,M,87.5,LI,F,91,BI,M,69.3DATA TIAN,F,99,YANG,m,98END追加和写入子程序：追加和写入子程序：SUB afile (nf AS STRING) DIM i AS

7、INTEGER, s AS STRING, b AS STRING OPEN nf FOR APPEND AS #2 READ s, b, a WRITE #2, s, b, a CLOSE #2END SUBSUB wfile (tfn AS STRING) DIM i AS INTEGER, s AS STRING, b AS STRING OPEN tfn FOR OUTPUT AS #1 FOR i = 1 TO 3 READ s, b, a WRITE #1, s, b, a NEXT i CLOSE #1END SUB文件1101w.dat：WAMG,M,87.5LI,F,91BI

8、,M,69.3TIAN,F,99DECLARE SUB pfile (tfn AS STRING)REM main programDIM tfn AS STRINGtfn = c:1102.datCALL pfile(tfn)DATA WAMG,M,87.5,LI,F,91,BI,M,69.3ENDSUB pfile (tfn AS STRING) DIM i AS INTEGER, s AS STRING, b AS STRING OPEN tfn FOR OUTPUT AS #1 FOR i = 1 TO 3 READ s, b, a PRINT #1, s, b, a NEXT i CL

9、OSE #1END SUB用PRINT语句把数据写入文件事例文件文件1102.dat：WAMG M 87.5 LI F 91 BI M 69.3从顺序文件输入(读文件)1).INPUT#语句 一般格式为： INPUT#文件号，变量，变量其作用是：从一个顺序文件读数据，并把这些数据赋给所指定的变量，每次从文件中读出一个记录。2).LINE INPUT#语句 一般格式为： LINE INPUT#文件号，字符串变量 作用是从打开的顺序文件中读取一个记录，把它作为一个字符串，赋给指定的字符串变量。Input语句读入数据举例Samp11-3:DIM nf AS STRING, s AS STRING,

10、b AS STRINGnf = “c:1101w.dat“ 用WRITE语句写数据OPEN nf FOR INPUT AS #2WHILE NOT (EOF(2) INPUT #2, s, b, a PRINT s, b, aWENDCLOSEENDSamp11-4:DIM nf AS STRING, s AS STRING, b AS STRINGnf = c:1102.dat“ 用PRINT语句写数据OPEN nf FOR INPUT AS #2WHILE NOT (EOF(2) INPUT #2, s, b, a PRINT s PRINT b PRINT aWENDCLOSEENDLI

11、NE Input语句读入数据举例Samp11-3-a:DIM nf AS STRING, s AS STRINGnf = “c:1101w.dat“ 用WRITE语句写数据OPEN nf FOR INPUT AS #2WHILE NOT (EOF(2) LINE INPUT #2, s PRINT sWENDCLOSEEND执行结果：执行结果：WAMG,M,87.5LI,F,91BI,M,69.3TIAN,F,99LINE Input语句读入数据举例Samp11-3-b:DIM nf AS STRING, s AS STRINGnf = “c:1102.dat“ 用PRINT语句写数据OPEN

12、 nf FOR INPUT AS #2WHILE NOT (EOF(2) LINE INPUT #2, s PRINT sWENDCLOSEEND执行结果：执行结果：WAMG M 87.5LI F 91BI M 69.3对顺序文件的修改如果已有一个顺序文件，想对其中某一记录中的数据进行修改，不能直接读出该记录，然后在程序中对之修改，再写回去取代原记录。这是因为以下两点原因： 打开一个文件时必须在INPUT，OUTPUT或APPEND三种方式中指定一种工作方式。要读文件就应指定为INPUT方式，要向文件写数据就应指定OUTPUT或APPEND方式。QBASIC不允许在一个OPEN语句中对一个顺序

13、文件既是INPUT方式又是OUTPUT方式，不能既读又写； 对顺序文件的读写必须从第一个记录开始，一个记录一个记录地读写。例如不能直接读第10个记录，必须先读前面9个记录，才能读第10个记录。顺序文件修改步骤用INPUT方式打开需要修改的老文件，准备从中逐个读出数据。用OUTPUT方式另设一个临时的中间文件，用来存放修改后的各记录。读入一个老文件的记录，用户决定是否要对它进行修改，如不修改，就把此记录原封不动地写到中间文件中去。如果要修改，在修改后再写到中间文件中去。对每一记录都如此处理。最后，中间文件中已是经过修改的文件，将原来文件撤消，把中间文件改名为原来的文件名即可。顺序文件应用举例SA

14、MP11-6：建立学生档案。6名学生的学号和三年中每一年的平均成绩放在DATA语句中，建立文件AF.DAT，存放6名学生的学号和3年的平均成绩。SAMP11-7：如果某一个学生的成绩输入错误，对此学生的学生成绩进行修改，修改后的数据仍存入AF.DAT文件中。SAMP11-8：对每一个学生添加第四年度的平均分，计算四个年度的平均分，把数据全部添加到ST.DAT中。SAMP11-6：DIM num AS STRING, a AS STRINGOPEN c：af.dat FOR OUTPUT AS #1READ num, s1, s2, s3WHILE num WRITE #1, num, s1,

15、s2, s3 READ num, s1, s2, s3WENDCLOSEPRINT STRING$(20, ); AF.DATOPEN c：af.dat FOR INPUT AS #1WHILE NOT (EOF(1) LINE INPUT #1, a PRINT aWENDCLOSEDATA A1,87,76,68.5,A2,69.5,66,89,A3,77,84,79DATA A4,92,89.4,78,A5,98,87,76,A6,67.5,81,71,0,0,0执行结果：AF.DATA1,87,76,68.5A2,69.5,66,89A3,77,84,79A4,92,89.4,78A5

16、,98,87,76A6,67.5,81,71SAMP11-7：DIM snum AS STRING, num AS STRING, a AS STRINGOPEN c:af.dat FOR INPUT AS #1OPEN c:tt.dat FOR OUTPUT AS #2INPUT Please input data to update:, snum$, ss1, ss2, ss3WHILE NOT (EOF(1) INPUT #1, num$, s1, s2, s3 IF (num = snum) THEN num = snum: s1 = ss1: s2 = ss2: s3 = ss3 E

17、ND IF WRITE #2, num, s1, s2, s3WENDCLOSEOPEN c:af.dat FOR OUTPUT AS #1OPEN c:tt.dat FOR INPUT AS #2WHILE NOT (EOF(2) INPUT #2, a, c1, c2, c3 WRITE #1, a, c1, c2, c3WENDCLOSESamp11-8：DIM num AS STRING, a AS STRINGOPEN c:af.dat FOR INPUT AS #1OPEN c:St.dat FOR OUTPUT AS #2WHILE NOT (EOF(1) READ s4 INP

18、UT #1, num, s1, s2, s3 t = s1 + s2 + s3 + s4 WRITE #2, num, s1, s2, s3, s4, tWENDCLOSEPRINT STRING$(20, ); st.datOPEN c:st.dat FOR INPUT AS #1WHILE NOT (EOF(1) LINE INPUT #1, a PRINT aWENDCLOSEDATA 70,80,90,60,70,80END执行结果：st.datA1,87,76,68.5,70,301.5A2,69.5,66,89,80,304.5A3,77,84,79,90,330A4,92,89.

19、4,78,60,319.4A5,98,87,76,70,331A6,87,90,70,80,327文件有关的函数和语句1).EOF函数 格式：EOF()作用：判断文件位置指针是否到达文件末尾。2).LOF函数 格式：LOF()作用：此函数给出指定的文件中总字节的长度，因此对于随机文件，以下表达式得到随机文件的记录数。3).SEEK函数 格式：SEEK ()作用：对于顺序文件或以BINARY方式打开的文件得到的是文件指针在第几个字节，对于以RANDOM方式打开的随机文件指向当前的记录号。4).SEEK语句 格式：SEEK#文件号文件号，表示位置的长整型，表示位置的长整型作用：用来将文件的指针移到

20、指定的位置处，对于顺序文件或以BINARY方式打开的文件以字节为单位。对于以RANDOM方式打开的随机文件指向的是记录位置。5).LOC函数 格式：LOC ()作用：对于用BINARY方式打开的文件，函数返回最后读写过的文件中第几个字节，对于用RANDOM方式打开的文件，则返回最后读写过的记录号。它的值是SEEK函数的函数值减1。随机文件的概念随机存取文件(Random Access File)简称随机文件。随机存取文件又称“直接存取文件”。随机文件一旦打开，在同一程序中既可以读，也可以写。随机文件是以二进制形式存储在外部介质上的。随机文件的存取无论从空间还是时间的角度都比顺序文件有较高的效率

21、。文件与记录数据文件中的数据是用“记录”(record)组织起来的。一个文件是由若干个记录组成的。在一个记录中包含若干个数据项。或者说，一组数据组成一个记录，若干个记录构成一个文件，因此，文件也可认为是记录的集合，记录是数据项的集合。数据数据1数据数据2数据数据3数据数据1数据数据2数据数据3记录记录文件1随机文件的打开和关闭nOPEN语句的一般格式nOPEN 文件名文件名 FOR 读写方式读写方式 AS #文件号文件号 LEN=TnLEN=t 是可选项，是可选项，t是一个整型数，用来指定以字节为单位的是一个整型数，用来指定以字节为单位的记录长度，例如记录长度，例如LEN=5，则指定记录的长度

22、，则指定记录的长度5个字节；个字节；n读写方式可以是：读写方式可以是：? RANDOM：用这种方式打开文件，数据以记录的形式存放在文件中，且FOR RANDOM可以省略不写。如果不指定记录的长度，则默认为128个字节；? BIMARY：输出数据按它所占的字节为单位存放在文件中，不以记录为单位。nCLOSE语句：与随机文件CLOSE语句相同。随机文件的输出n输出语句PUTnPUT语句的形式：PUT #文件号，r，输出变量nr是一个长整型，当以RANDOM方式打开文件时，r代表把变量中的数据输出到文件中的第r个记录位置上。当以BINARY方式打开文件时， r代表把变量中的数据输出到文件中的第r个字

23、节开始的位置上；n当r省略时，表示将数据输出到当前文件指针所在的位置，如：PUT #文件号，文件号，a(“逗号不能省略逗号不能省略”)n一个一个PUT语句只能输出一个变量值，在输出变量的位语句只能输出一个变量值，在输出变量的位置上不可以是表达式，输出的数据一定要放在变量中置上不可以是表达式，输出的数据一定要放在变量中才能输出。才能输出。随机文件的输入n输入语句GETnGET语句的形式：GET #文件号，文件号，r，输出变量，输出变量nr是一个长整型，当以是一个长整型，当以RANDOM方式打开文件时，方式打开文件时，r代表把第代表把第r个记录的数据读入变量中。当以个记录的数据读入变量中。当以BI

24、NARY方式打开文件时，方式打开文件时， r代表把文件中的第代表把文件中的第r个字节开始的个字节开始的数据读入变量中；数据读入变量中；n当当r省略时，表示从当前文件指针所在的位置读入数省略时，表示从当前文件指针所在的位置读入数据到变量中，如：据到变量中，如：GET #文件号，文件号，X(“逗号不能省逗号不能省略略”)n一个一个GET语句只能读入一个变量值。语句只能读入一个变量值。随机文件程序举例单一数据类型随机文件：单一数据类型随机文件：samp11-9.bas: 对按对按RANDOM方式打方式打开的文件进行开的文件进行“读读”、“写写”；sam11-10.bas: 对按对按RANDOM方式打

25、方式打开的文件进行开的文件进行“读读”、“写写”；复合数据类型的随机文件：复合数据类型的随机文件：sam11-11.bassam11-12.basDIM i AS INTEGER, k AS INTEGEROPEN c:ad.dat FOR RANDOM AS #1 LEN = LEN(x!)PRINT STRING$(30, )FOR i = 1 TO 10 READ x PUT #1, , xNEXT iSEEK #1, 1FOR i = 1 TO 5 GET #1, , a PRINT a;NEXT iPRINTREMPRINT SEEK(1)=; SEEK(1), LOC(1)=; L

26、OC(1), LOF(1)=, LOF(1)SEEK #1, 5GET #1, , xWHILE NOT (EOF(1) PRINT x; GET #1, , xWENDPRINTq = 1234.9PUT #1, 7, qk = 1WHILE k = (LOF(1) LEN(a!) GET #1, k, x PRINT x; k = k + 1WENDPRINTCLOSEDATA 11.1,22.2,33.3,44.4,55.5,66.6,77.7,88.8,99.9,1.1,2.1,3.1执行结果：执行结果：11.1 22.2 33.3 44.4 55.5SEEK(1)= 6 LOC(1)

27、= 5 LOF(1)= 4055.5 66.6 77.7 88.8 99.9 1.111.1 22.2 33.3 44.4 55.5 66.6 0 88.8 99.9 1.1例例11。9DIM i AS INTEGER, k AS INTEGEROPEN c:ad.dat FOR BINARY AS #1PRINT STRING$(30, )FOR i = 1 TO 10 READ x PUT #1, , xNEXT iSEEK #1, 1FOR i = 1 TO 20 STEP 4 GET #1, i, a PRINT a;NEXT iPRINTREMPRINT SEEK(1)=; SEEK

28、(1), LOC(1)=; LOC(1), LOF(1)=, LOF(1)SEEK #1, 17GET #1, , xWHILE NOT (EOF(1) PRINT x; GET #1, , xWENDPRINTGET #1, 5, r: GET #1, 29, pPUT #1, 5, p: PUT #1, 29, rk = 1WHILE k = LOF(1) GET #1, k, x PRINT x; k = k + 4WENDPRINTCLOSEDATA 11.1,22.2,33.3,44.4,55.5,66.6,77.7,88.8,99.9,1.1,2.1,3.1执行结果：执行结果： 1

29、1.1 22.2 33.3 44.4 55.5SEEK(1)= 21 LOC(1)= 20 LOF(1)= 40 55.5 66.6 77.7 88.8 99.9 1.1 11.1 88.8 33.3 44.4 55.5 66.6 77.7 22.2 99.9 1.1例例11。10TYPE std num AS STRING * 6 s1 AS SINGLE s2 AS SINGLE s3 AS SINGLEEND TYPEDIM a AS std, x AS stdCLSOPEN c:rf.dat FOR RANDOM AS #1 LEN = LEN(a)READ a.num, a.s1, a.s2, a.s3WHILE a.num SPACE$(6) PUT #1, ,