Visual Basic 6.0可视化编程与实训 教学课件 作者 于泽 主编 项目八 文件管理.pptVIP

知识6 文件的读写相关函数 EOF函数 EOF函数用于测试文件的结束标志，可以避免因试图在文件结尾处进行输入而产生的错误。 语法格式： EOF(文件号) 知识6 文件的读写相关函数 EOF函数通常用来在循环读数据时测试是否已到文件尾，例如： Open in.out For Input As #1 Do While Not Eof(1) 利用循环读取数据，一直读到文件尾 Input #1, a 把读出的数据赋予变量a Loop Close #1 课堂练习　文件的建立与读取 1）建立新文件：选择一个新的文件名，如abc123.txt. 2）选择文件的读取方式：选择Output。 3）选择文件号：选择1号文件。 4）写出相应语句： Open “abc123.txt” For Output As #1 5）输入文件内容,1至10个数字，换行输入 For i=1 To 10 Print #1,i; Next i 6）保存：保存文件名为 test.bas。 拓展1 随机文件的使用 随机文件的读写操作一般分为以下4步： 1）用Type…End Type语句定义数据类型。 2）以随机方式打开文件。格式如下： Open 文件名 [For Random] As 文件号 Len=记录长度 打开文件时，应注意给出记录长度（也就是用户定义数据类型占用的存储空间），如果省略，则记录的默认长度为128。 3）对文件进行读操作。 4）关闭文件。 随机文件的写操作 随机文件的写操作可以用Put语句来实现。其语法格式如下： Put #文件号,[记录号],变量 Put语句把变量存储到文件的指定记录。记录号可以省略，如果省略记录号，则在上一个Get或Put语句之后（或上一个Seek函数指出的）的下一个记录写入。省略记录号时，用于分界的逗号都必须罗列出来，例如： Put #1, , Var 【案例8.7】 用Type…End Type语句定义一个记录数据类型，用来存储每个学生的学号、姓名、年龄。输入3个学生的记录，并存储到文件中 Private Type stu 在窗体的通用声明内声明用户定义数据类型 sno As String * 5 注意，用户定义数据类型中的字符串必须是定长的 name As String * 10 age As Integer End Type Private Sub Command1_Click() Dim recordstu As stu Dim i As Integer Open tt.txt For Random As #1 Len = Len(recordstu) 打开文件 For i = 1 To 3 利用循环输入数据 recordstu.sno = InputBox(请输入5位学号：) recordstu.name = InputBox(请输入姓名：) recordstu.age = Val(InputBox(请输入年龄：)) Put #1, i, recordstu 把记录存储到文件 Next Close #1 End Sub 随机文件的读操作 随机文件的读操作可以用Get语句来实现。其语法格式如下： Get #文件号,[记录号],变量 Get语句从文件中读取指定记录，并存入相应变量中，和Put语句相同，记录号可以省略，如果省略记录号，则在上一个Get或Put语句之后（或上一个Seek函数指出的）的下一个记录读入。若省略记录号，则用于分界的逗号都必须罗列出来。 【案例8.8】 读出例8-7写入的学生记录，并存储到数组中，然后打印到窗口上 Private Sub Command2_Click() Dim recordstu As stu Dim i As Integer, recordnum As Integer Open tt.txt For Random As #1 Len = Len(recordstu) 打开文件 recordnum = LOF(1) / Len(recordstu) 得到记录的总数 Print 学号, 姓名, 年龄 打印标题 For i = 1 To recordnum Get #1, i, recordstu Print recordstu.sno, recordstu.name, recordstu.age 打印数据 Next Close #1 End Sub 随机文件中