19 文件 1

2顺序文件：
（1）概念
顺序存取文件（SEQIEMCE ACCESS FILE）：
文件中各记录写入顺序，存放的顺序和读出的顺序三者是一致的。
记录1
……
记录i
……
记录n
（2）顺序文件的打开与关闭
使用之前，先“打开”文件，使用后“关闭”它；
①OPEN语句
格式：OPEN <文件名> FOR <读写方式> AS#<文件号>
③逐个读入旧文件的记录，用户决定是否修改？如果不改，就把此记录原封不动地写到中间文件中去；如果要修改，则在修改后再写到中间文件中。
④将旧文件删除，把中间文件改名为原来的旧文件的名称。
例:
OPEN "student.dat" FOR INPUT AS #1
OPEN "temp" FOR OUTPUT AS #2
DATA 000,end,,
END
说明：（1）、文件中的记录以：“回车换行符”相隔:
CHR$(13)、CHR$(10)
（2）、文件最后用“文件结束符”结束CHR$(26)
一个记录的长度不能超过225个字符；
（3）、PRINT#与WRITE#的区别：
WRITE#语句（数据项之间用“，”或“；”均相同）
格式：INPUT #<文件号>，<变量1>[，<变量2>…..]
每次从文件中读出一个记录，
注意：变量类型应与数据一致；
例:
OPEN "student.dat" FOR OUTPUT AS #3
DO
INPUT #3,num,nam$,sex$,score
PRINT num,nam$,sex$,score
LOOP UNTIL EOF(3)
CLOSE
END
终止函数
EOF（<文件号>）
检查记录指针是否指向文件尾，是则真(-1)，否则为假（0）
②LINE INPUT#语句
格式：LINE INPUT#<文件号>，<字串变量>
将文件的记录，以字符形式读入；
例:
OPEN "student.dat" FOR OUTPUT AS #3
（4）文件的读写和文件缓冲区
读文件——将文件读入内存，或将文件读入计算机。
写文件——从计算机主机向磁盘传送（输出）数据。
对磁盘上的数据文件进行读写操作时，必须在内存中开辟一个“文件缓冲区”，以建立必要的输入/输出通道。
（5）文件指针
每文件都有一个指针，指向当前应读写的位置，从文件中读数据，就是读指针所指向位置处的数据。向文件写数据，是写到指针所指向的位置处。
格式：SEEK#<文件号>,<字节位置>
七、课程小结：
1、文件的基本概念
2、顺序文件的概念及其操作
八、课后作业（书面作业或上机作业要说明）
课时
第19周第1 -2课时2006年6月日
课题：文件的概念及顺序文件
一、教学目的：
1、通过教学，使学生掌握文件的基本概念。
2、通过教学，使学生掌握顺序文件的概念及其操作。
二、教学重点：
1、文件的基本概念
2、顺序文件的概念及其操作
三、教学难点：
1、文件的基本概念
2、顺序文件的概念及其操作
四、教学方法：
DO UNTIL nam$="end"
WRITE #1,num,nam$,sex$,score
READ num,nam$,sex$,score
LOOP
DATA 101,Li,m,90,103,Wang,f,98
DATA 104,Xiu,f,100,105,Zhang,m,78
DATA 107,Tan,m,99,109,Ling,f,88
<读写方式>：
OUTPUT：写数据，向文件输出；
INPUT：读数据，从文件读入；
APPEND：写数据：添加记录；
<文件号>：即文件缓冲区号，每一个文件都要指定一个不同的文件号（1～225）；
说明：
以OUTPUT方式打开文件，建立新文件，指针指向首记录；将删除已存在的文件。
以INPUT方式打开已存在的文件，指针指向首记录；
例；PRINT #1，a;b;c
注意：逗号与分号的差别，与PRINT语句类似在对字符串存盘时，注意引入定界符。
②WRITE#语句
存盘时，各数据间插入逗号，并给字串加双引号，且正数前面不设空格。
例：
OPEN "student.dat" FOR OUTPUT AS #1
READ num,nam$,sex$,score
INPUT "insert?(y/n)";q$
if UCASE$(q$)="Y" THEN
INPUT num,nam$,sex$,score
WRITE #2,num,nam$,sex$,score
END IF
LOOP
CLOSE
KILL "student.dat"
NAME "temp" AS "student.dat"
DO UNTIL EOF(1)
INPUT #1,num,nam$,sex$,score
PRINT num,nam$,sex$,
INPUT "chang?(y/n)";r$
if UCASE$(r$)="Y" THEN INPUT num,nam$,sex$,score
WRITE #2,num,nam$,sex$,score
DO
LINE INPUT #3,stud$
PRINT stud$
LOOP UNTIL EOF(3)
CLOSE
END
（5）文件的修改
若要修改已有的顺序文件，则要利用中间文件,因为对一个顺序文件不能既读又写。对顺序文件的修改步骤：
①用INPUT方式打开需要修改的旧文件，准备从中逐个读出数据；
②另设一个中间临时文件（用OUTPUT方式打开），用来存放修改后的各记录；
以投影仪辅助讲解为主，利用多媒体计算机、投影仪和黑板进行穿插教学
五、教学用具：
黑板、多媒体计算机、投影仪、PPT课件
六、教学过程：
1文件的概念：
（1）分类
①从文件的内容区分；
程序文件——源程序或可执行的目标程序
数据文件——输入/输出数据；
②从文件的存储形式区分；
ASCⅡ文件（文本文件）
源程序、字符串数据可用TYPE命令显示；
存储时需转换ASCⅡ——二进制形式；
二进制文件
用二进制形式存储
③从文件的组织形式区分；
顺序文件(不定长）
随机文件（定长）
（2）文件与记录
一个文件是由若干个记录组成，一个记录包含若干个数据项。
例如，一个学生的数据：学号、姓名、年龄、成绩等可看成一组数据组成一个记录；
（3）文件名
扩展名：.BAS、.FOR、.PAS、.C
101，"Li","m",90
103,"Wang","f",98
PRINT#语句（数据项之间用“；”）
101 Lim 90
103 Wangf 98
PRINT#语句（数据项之间用“,”）
101 Li m 90
103 Wang f 98
（4）输入数据（读文件）
从已建立文件中读入数据到计算机中；
①INPUT#语句
END
（6）有关函数和语句
EOF()函数
尾测试
INPUT$()函数
格式：INPUT$（<字节数>，<文件号>)
从指定的打开文件中读取指定数目的字符；
LOF()函数
给出指定文件已进行读写的字节数；
格式：LOF（<文件号>
SEEK()函数
格式：SEEK(<文件号>)
给出指定文件的当前指针
SEEK语句
指针移动
以APPEND方式打开文件，指针指向文件尾；可建立新文件
②CLOSE语句
关闭已用的文件
CLOSE [#<文件号1>][,#<文件号2>]……
关闭由文件号指定的文件缓冲区，将内容存盘，如不指定文件号，则关闭所有已打开的文件；
（4）输出数据（写文件）
新文件写入记录
①PRINT#语句
格式：PRINT #<文件号>，<输出项>