第07章 文件.pptVIP

第 * 页 7.3 随机文件 2、定义记录数据类型 Type 记录类型名 字段名1　As 类型 …… 字段名n　As 类型 End Type 3、定义记录类型变量 格式：Dim 变量名 AS 记录类型名 Type student xh as string*10 xm as string*8 yw as single sx as single zf as single End Type Dim s as student 第 * 页 7.3 随机文件 4.随机文件的打开 格式： Open “文件名” [For Random] As #缓冲区号 [Len＝记录长度] 说明： 文件名：指定操作的文件。 Random：缺省的访问类型，可选项。 记录长度：指定每条记录的长度。缺省值是128字节，通过Len()函数可得到记录的长度。 Open c:\stud.dat For Random as #1 len=len(s) 第 * 页 7.3 随机文件 5.建立（写）随机文件 写文件语句（Put） Put #缓冲区号，［记录号］，记录变量 说明： 记录号为整数，表示写入的是第几条记录； 如果忽略记录号，则表示在当前指针位置写入一条记录。 向文件末尾添加新记录也使用Put语句，此时应把记录号的值设置为文件总记录数加1。 第 * 页 7.3 随机文件 例1 建立一个名为“st.dat”的随机文件，存放学生成绩，每个记录包括学号，姓名，高数，英语，计算机5项数据。成绩表如下： 学号 姓名 高数 英语 计算机 0201011 张一帆 90 87 94 0201012 王志文 85 92 75 … … … … … 0201030 李 明 94 86 91 第 * 页 7.3 随机文件 步骤 定义记录数据类型 定义记录变量 打开文件向文件 输入数据 写记录 关闭文件 否 是 打开文件（Open） For Random 记录变量赋值 写记录数据（Put） 关闭文件（Close） 文件读完 定义记录变量（Dim） 定义记录类型数据（Type） 第 * 页 7.3 随机文件 算法描述 定义记录类型student，字段包括：xh、xm、gs、yy、jsj 定义记录类型变量P 打开文件 记录变量赋值 将记录变量值写入文件 重复变量赋值、写记录 关闭文件 Type student xh as string*10 xm as string*8 gs as single yy as single jsj as single End Type 第 * 页 7.3 随机文件 Dim p As student Open c:\st.dat For Random As #1 Len = (Len(p)) For i = 1 To 3 p.xh = InputBox(输入学号) p.xm = InputBox(输入姓名) p.gs = Val(InputBox(输入高数)) p.yy = Val(InputBox(输入英语)) p.jsj = Val(InputBox(输入计算机)) Put #1, i, p Next i Close #1 MsgBox 文件写完 第 * 页 7.3 随机文件 6.读随机文件 读文件语句（Get） Get #缓冲区号，［记录号］，记录变量 说明： 记录号为整数，表示写入的是第几条记录； 如果忽略记录号，则表示在当前指针位置写入一条记录。 文件长度函数Lof() 返回文件长度（大小）。如：Lof(1) 第 * 页 7.3 随机文件 例2 从“st.dat”随机文件中读取学生成绩数据。计算每个学生平均成绩表。 否 是 打开文件（Open） For Random 读记录数据（Get） 数据处理 关闭文件（Close） 文件读完 定义记录变量（Dim） 定义记录类型数据（Type） 算法描述 定义记录类型student，字段包括：xh、xm、gs、yy、jsj 定义记录类型变量P 打开文件 读记录数据 数据处理（求均值） 重复读记录、计算均值 关闭文件 第 * 页 7.3 随机文件 Dim p As student Open c:\st.dat For Random As #1 Len = (Len(p)) For i = 1 To Lof(1) / Len(p) Get #1, , p s = (p.gs + p.yy + p.jsj