VisualBasic60程序设计教程第3版罗朝盛第8章节文件幻灯片.pptVIP

PPT研究院 POWERPOINT ACADEMY * * * * 例8.5 设计一个简单的学生成绩管理程序，使用随机文件存储学生信息。程序的运行界面下图所示，该程序的具有数据添加、修改、删除及学生信息顺序查询等功能。 8.4 随机文件 在标准模块Module1中定义学生信息数据类型及全局变量： Type Student 定义学生信息记录类型 Id As String * 8 Name As String * 10 Class As String * 10 Subject As String * 20 Mark(1 To 3) As Integer End Type 定义Student类型的变量存放当前记录内容 Public Stu As Student Public Filename As String 定义变量存放学生信息文件名 Public Rec_no As Integer 定义变量存放当前记录号 Public Rec_total As Integer 定义变量存放总记录数 Public Rec_long As Integer 定义变量存放记录长度 8.4 随机文件 1 打开文件 Open 文件名 For Binary As #文件号 2. 写操作 Put [#]文件号，[位置]，变量名 写入长度等于变量长度的数据。 3. 读操作 GET [#]文件号，[位置]，变量名 从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。 8.5 二进制文件 例8.6 编程序实现将D盘根目录中的文件Abc.dat复制到A盘，且文件名改为Myfile.dat。 Dim char As Byte 打开源文件 Open D:\Abc.dat For Binary As # 1 打开目标文件 Open A:\Myfile.dat For Binary As # 2 Do While Not EOF(1) Get #1, , char 从源文件读出一个字节 Put #2, , char 将一个字节写入目标文件 Loop Close#1, #2 8.5 二进制文件 8.6 常用的文件操作语句和函数 1. 改变当前驱动器（ChDrive 语句） 格式：ChDrive drive 功能：改变当前驱动器。 说明： 如果drive为“”，则当前驱动器将不会改变；如果drive中有多个字 符，则ChDrive只会使用首字母。 例如：ChDrive D 及ChDrive D:\ 和ChDrive Dasd 都是将当前驱动器设为D盘。 8.6.1 文件操作语句 2. 改变当前目录（ChDir 语句） 格式：ChDir path 功能：改变当前目录。 例如：ChDir D:\TMP 说明：ChDir语句改变缺省目录位置，但不会改变缺省驱动器位置。例如，如果缺省的驱动器是C，则上面的语句将会改变驱动器D上的缺省目录，但是C仍然是缺省的驱动器： 3. 删除文件（Kill语句） 格式：Kill pathname 功能：删除文件。 说明：pathname中可以使用统配符“*”和“?”。 例如：Kill *.TXT Kill C:\Mydir\Abc.dat 8.6 常用的文件操作语句和函数 4. 建立（MkDir 语句）和删除（RmDir 语句）目录 建立目录格式：MkDir path 功能：创建一个新的目录。 例如： MkDir D:\Mydir\ABC 删除目录格式：RmDir path 功能：删除一个存在的目录。 说明：只能删除空目录。例如： RmDir D:\Mydir\ABC“ 说明： RmDir只能删除空子目录，如果想要使用RmDir来删除一个含有文件的目录或文件夹，则会发生错误。 8.6 常用的文件操作语句和函数 拷贝文件 ——FileCopy语句 格式：FileCopy source , destination 功能：复制一个文件。 例如： FileCopy D:\Mydir\Test.doc A:\MyTest.doc 说明： FileCopy语句不能复制一个已打开的文件。 6 文件的更名 —— Name 语句 格式：Name o