第7章数据文件操作.pptVIP

7.3 随机文件 – 随机文件应用 【例7.11】删除记录：删除student随机文件中所有语文成绩不及格的记录 。 记录删除：将要保留的记录输出到另一个结构、记录长度一致的临时文件中，然后删除原文件，并将临时文件改名为原文件名。 “删除记录”按钮的单击事件过程 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim stud4 As New Student FileClose() 打开原随机文件 FileOpen(1, c:\student, OpenMode.Random, , , 29) 新建一个结构相同的随机文件 FileOpen(2, c:\temp, OpenMode.Random, , , 29) Do While EOF(1) = False FileGet(1, stud4) If stud4.Lang = 60 Then 语文成绩及格的记录写入新文件中 FilePut(2, stud4) End If Loop FileClose() Kill(c:\student) 删除旧文件 Rename(c:\temp, c:\student) 新文件改名 End Sub 7.4 二进制文件 – 概述 二进制文件：按变量长度读取或写入数据 创建、打开文件： FileOpen(文件号，路径＋文件名，OpenMode.Binary) 关闭文件：CloseFile([文件号])函数 数据写入：FilePut(文件号，变量，[字节位置]) 每次读写的长度由变量的类型决定 “字节位置”默认从上次读、写后的下一个字节开始 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim mm As Char FileOpen(1, f:\zhangjin.txt, OpenMode.Random) FileGet(1, mm) MsgBox(mm) End Sub 7.4 二进制文件 – 概述 读取数据：FileGet(文件号，变量，[字节位置]) 几个常用的文件函数 EOF(文件号)：函数值为True说明文件数据已读尽 LOF(文件号)：表示文件的长度 Seek(文件号,位置)：将文件指针移动到文件中的任意位置(以字节为单位) 例 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim a As Byte, b As Byte FileOpen(1, f:\a1.txt, OpenMode.Binary) FileOpen(2, f:\a2.txt, OpenMode.Binary) If LOF(1) LOF(2) Then MsgBox(文件不相同) End If Do While EOF(1) = False FileGet(1, a) FileGet(1, b) If a b Then MsgBox(文件不相同) End If Loop MsgBox(两文件完全相同！) End Sub 7.4 二进制文件 – 应用 【例7.12】比较2个文件是否完全相同 两个文件完全相同的条件： 文件长度一致 文件的全部对应字符相同 7.5 通讯录管理程序 – 界面 通讯录管理程序：将姓名、性别等信息用随机文件进行存储，可实现记录的新增、修改、删除等操作。 启动界面，主要控件的名称、标题和作用见教材表7-3 单击“