Visual Basic程序设计（第2版） 潘地林 教学课件6.pptVIP

Visual Basic程序设计 主讲教师: 目 录 目 录 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 第六章 文件管理 6.4 随机文件 随机文件被组织成固定长度的记录，并以记录为单位进行存取。每条记录都有一个记录号，记录又由一个或多个字段（又称为数据项）组成，字段可以有不同的数据类型和宽度。用Open语句打开随机文件时必须指定记录长度，打开文件后，可以根据记录号访问其中的任何一条记录，既可读又可写。 1．定义记录类型 在打开一个文件进行随机访问之前，首先要定义一个记录类型，该类型对应于该文件包含或将包含的记录。 6.4 随机文件 2．打开随机文件 用Open语句打开随机文件的格式如下： Open pathname [For Random] As filename Len = reclength 因为Random是默认的访问类型，所以For Random关键字是可选项。 表达式Len = reclength指定每个记录的长度，随机文件通过Len( )函数来获得记录的长度，一般格式为： reclength = Len(recordvar) 6.4 随机文件 3．随机文件的读/写操作 随机文件的读操作用Get语句来完成，一般格式如下： Get # 文件号, [记录号], 变量 Get语句把由文件号所指定的磁盘文件中的数据读到变量中，记录号为要读的记录的编号，取值范围为1~2147483647。如果省略记录号，则读取下一条记录，即最近执行Get语句或Put语句后的记录。省略记录号后，逗号不能省略： Get # 文件号, , 变量 6.4 随机文件 3．随机文件的读/写操作 随机文件的写操作通过Put语句来实现，一般格式如下： Put # 文件号, [记录号], 变量 这里的变量是除对象变量和数组变量外的任何变量（包括含有单个数组元素的下标变量）。文件号含义同前，记录号取值范围跟Get语句的相同，如果省略记录号，则写到下一个记录位置，即最近执行Get语句或Put语句后指定的位置。同样，省略记录号后，逗号也不能省略： Put # 文件号, , 变量 6.4 随机文件 4．随机文件中记录的替换、增加与删除 ⑴ 替换记录 要替换记录，可以使用Put语句指定想要替换的记录位置。例如： Put # filenumber, lngPosition, Employee 实现用Employee变量中的数据来替换由lngPosition所指定的编号的记录。 6.4 随机文件 4．随机文件中记录的替换、增加与删除 ⑵ 增加记录 在随机文件中增加记录，事实上就是在文件的末尾附加记录。要向随机访问打开的文件的尾端添加新记录，应使用前述代码段中所示的Put语句。此时，把lngPosition变量的值设置为比文件中的记录数多1。例如，要在一个包含5条记录的文件中添加一条记录，可将lngPositon设置成6。 下述语句可实现把一个记录添加到文件的末尾： lngLastRecord = lngLastRecord + 1 Put # filenumber, lngLastRecord, Employee 6.4 随机文件 4．随机文件中记录的替换、增加与删除 ⑶ 删除记录 在随机文件中删除一条记录，并非真正地将记录删除，而是把下一条记录重写到删除的记录位置上，其后的所有记录依次前移，但是该记录仍在文件中存在。通常文件中不能有空记录，因为它们会浪费空间且会干扰顺序操作。 5．关闭文件 操作方法与顺序文件的关闭方法相同。 [例6-5] 以随机存取方式对职工档案数据文件zgda.dat进行操作。 运行例6-5程序