课件：VB编程.pptVIP

9.2.1 使用传统的方式访问文件 2. 访问随机文件 在随机访问模式中，文件的存取是按记录进行操作的，每个记录都 有记录号并且长度全部相同。在程序的变量说明部分采用用户自定 义类型说明语句Structure…End Structure，首先定义记录的结构 类型，然后再将变量说明成该类型，这样就为这个变量申请了内存 空间，用于存放随机文件中的记录。 (1) 打开和关闭文件 打开随机文件仍然调用FileOpen函数，与打开顺序文件不同的是 使用Random模式，并且需要指明每条记录的长度RecordLength 值，即记录中各字段长度之和，也与程序首部定义的结构类型变量 的长度相同。关闭随机文件仍然调用FileClose函数。 9.2.1 使用传统的方式访问文件 (2) 读写操作 打开随机文件后，就可以进行读写操作。随机文件可以同时进行写 入和读取操作。随机文件的写操作调用FilePut函数，其语法格式如下： FilePut (〈文件编号〉,〈变量名〉,〈记录号〉[,〈ArrayIsDynamic〉] [,〈StringIsFixedLength〉] ) THANK YOU SUCCESS * * 可编辑 9.2.1 使用传统的方式访问文件 【例9-6】用随机访问模式创建一个职工数据文件（employee.dat），并输出文件内容。 Structure em 用户自定义记录类型 Dim num As String Dim name As String Dim sex As String End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click 输入数据事件 Dim emp() As em Dim i, n As Integer FileOpen(1, c:\employee.dat, OpenMode.Random) n = InputBox(请输入职工数：) 输入记录个数 ReDim emp(n) For i = 1 To n 依次输入每个记录数据 emp(i).num = InputBox$(请输入编号：) emp(i).name = InputBox$(请输入姓名：) emp(i).sex = InputBox$(请输入性别：) FilePut(1, emp(i), i + 1) 调用FilePut函数输入数据 Next FileClose() End Sub 9.2.1 使用传统的方式访问文件 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button2.Click 输出数据事件 Dim emp As em Dim i, n As Integer Dim str As String FileOpen(1, c:\employee.dat, OpenMode.Random) str = 编号 姓名 性别 Chr(13) i = 1 While Not EOF(1) 依次读取每个记录数据 FileGet(1, emp) 调用FileGet函数输出数据 str = str emp.num emp.sex Chr(13)图9-12 随机文件输出 i = i + 1 End While MessageBox.Show(str) 在消息框中输出数据 FileClose() End Sub 9.2.1 使用传统的方式访问文件 (3) 常用对话框控件 一些应用程序常常需要打开和保存文件，以及选择字体、颜色、打印等操作，这 时需要应用程序提供相应的对话框，进行操作。VB