VB课件含具体例子第10章文件2章节幻灯片.pptVIP

随机文件的读操作 Get #语句 功能：将打开文件中的数据读到变量中 语法：Get #文件号,[记录号],变量 Dim a As String * 7 Open “abc.txt” For Random As #2 Len = 17 a = InputBox(“请输入要查找的学号：”) j = 1 Do While Not EOF(2) Get #2, j, person If person.stu_id = a Then Print stu_id, person.name, person.sex Exit Do End If j = j + 1 Loop If j LOF(2) / Len(person) Then Print “无此学号！” End If Close #2 Type recordtype stu_id As String * 7 name As String * 8 sex As String * 2 End Type 增加、删除随机文件中的记录 增加记录(添加记录) 求最后一条记录号 末记录号=文件长度/记录长度 文件长度=EOF(文件号