VB程序设计第二版第十章.pptVIP

10.3 文件的读/写 10.3.1 相关概念和函数 1、文件指针 文件被打开后，会自动生成一个隐含的文件指针，文件的 读/写操作就是从该指针当前所指的位置开始的。用append 方式打开一个文件后，文件指针指向文件的末尾，用其他 方式打开文件后，文件指针指向文件的开头。完成一次操 作后，文件指针自动移动到下一个读/写操作的起始位置， 移动量的大小由open语句和读/写语句中的参数共同决定。 注：在程序中，用户无法直接操作文件指针，但可通过 seek()函数或seek语句返回或设置文件指针的当前值。 读操作?输入/打开(调入内存)； 写操作?输出/保存(存盘)。 2、与文件操作相关的常用函数和语句 1) eof函数 eof(文件号) 测试“文件号”指向的文件是否已读到文件末尾。若是，则返回布尔值true；若不是，则返回布尔值false。 2) Lof函数 Lof(文件号) 返回已打开的由“文件号”指向的文件的总字节数，返回值的类型为长整型。 3) Loc函数 Loc(文件号) 返回已打开文件的当前的读写位置，返回值类型为长整型. 其中，Loc()函数返回值由文件打开方式决定，具体如表 10-2所示。 4) FreeFile函数 FreeFile[(参数范围)] 功能 提供1-511的下一个未被使用过的文件号，以避免程序在打开多个文件时文件号重复使用，造成错误。 Freefile(0)、freefile或者freefile()表示返回1~255之间的未使用的文件号； Freefile(1)表示返回256~511之间的未使用的文件号. 5) seek函数 seek(文件号) 返回由“文件号”所指定文件的下一读/写位置，返回值为长 整型。对于随机文件，函数返回下一个读/写操作的记录号; 对于二进制文件，函数返回下一个读/写操作的字节位置。 常与seek语句配合使用。 6) seek语句 seek [#]文件号,字节位置 功能：设置文件当前指针的位置。在get和put语句中指定的 记录号将覆盖由seek语句指定的文件位置。如果要把文件指针位置设置到文件尾之后，则进行文件写入的操作会把文件 扩大；如果试图把文件指针位置设置为负或者零，则会产生 错误。如，在文件号为1的文件的第8个字节处写入数据信息: seek #1,8 seek函数的返回与seek语句的设置示例 Private Sub Form_Click() Close: FontSize = 28: ChDir c:\data Open C:\Data\Student.dat For Output As #1 Open c:\data\salary.dat For Random As #2 Open c:\data\classroom.dat For Binary As #3 Print EOF(1); EOF(2); EOF(3) true false false Print LOF(1); LOF(2); LOF(3); FreeFile() 0 0 0 4 Print Loc(1); Loc(2); Loc(3) 0 0 0 Print Seek(1); Seek(2); Seek(3) 1 1 1 Seek #1, 3: Seek #2, 5: Seek #3, 8 Print Seek(1); Seek(2); Seek(3) 3 5 8 End Sub 注：当前读/写位置Loc()而下一个读/写位置seek()。 打开顺序文件之后,就可以对顺序文件进行读/写 操作了。在顺序文件中，记录的逻辑顺序与存储顺序是 一致的，对顺序文件的读/写操作只能按记录顺序一个记 录接一个记录地进行。 读操作：指将文件中的数据取到内存(如变量 或数组元素)。input #,Line input #,input(n,#) 写操作：指将内存(如常量、变量或数组元素) 中的数据保存到文件中。write #,print # 10.3.2 顺序文件的读/写 文件读/写操作概念 1、顺序文件的写操作 (1)Write #语句 Write #文件号[,输出列表] 将“输出列表”中的数据按序写入文件号所指定的顺序文件 中。若缺省“输出列表”则向文件写一空白行。如: 实现顺序文件写操作的有两个语句：write#语句与print# 语句。实施写操作的顺序文件必须以output或append方 式打开。 功能 Private Sub Form_Click() ChDir c:\data: Close Open c:\data\student.dat For Output As #1 Write #1, 张三, 男, 成都人, Date, 婚姻状态:, True, 28 Wri