（精选）第8章 数据文件.ppt

读出文件的代码（Command2的单击事件） Private Sub Command2_Click() Dim MyRecord As Record Open TESTFILE For Random As #1 Len = Len(MyRecord) While Not EOF(1) Get #1, , MyRecord Text1.Text=Text1.Text Chr(10) Chr(13) Chr(10) Chr(13) MyRecord.ID MyRecord.Name Wend Close #1 End Sub 7.4 二进制文件 二进制文件是一个字节流，文件系统并不解释各字节的意义，解释工作由具体的应用程序完成。 以二进制方式访问文件有下述特点： 可以直接访问文件中的所有数据。 由应用程序根据需要解释数据的意义。 访问文件的语句不更改原始数据的所有内容。 二进制文件每一次读写是以字节为单位对数据进行访问操作的，它允许用户读写或修改文件中的任何字节信息。当把二进制数据写入文件中时，使用Byte数据类型的数组，而不是String变量。String被认为包含的是字符，而二进制型数据可能无法正确地存储在String变量中。 当要保持文件的尺寸尽量小时，应使用二进制文件。 一、二进制文件的打开 Open 文件名 For Binary As #文件号 二、二进制文件的写操作 Put [#]文件号，[位置]，变量名 写入长度等于变量长度的数据。 三、二进制文件的读操作 GET [#]文件号，[位置]，变量名 从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。 例题 文件复制 Dim char As Byte Dim FileNum1,FileNum2 as Integer FileNum1 = FreeFile Open C:\STUDENT.DAT For Binary As # FileNum1 打开源文件 FileNum2 = FreeFile Open C:\STUDENT.BAK For Binary As # FileNum2 ‘打开目标文件 Do While Not EOF(FileNum1) Get #1, , char 从源文件读出一个字节 Put #2, , char 将一个字节写入目标文件 Loop Close #FileNum1 Close #FileNum2 与文件系统相关的语句 1.ChDir 语句 格式：ChDir path 功能：改变当前目录。 例如：ChDir D:\TMP 2. ChDrive 语句 格式：ChDrive drive 功能：改变当前驱动器 说明：如果drive为“”，则当前驱动器将不会改变；如果drive中有多个字符，则ChDrive只会使用首字母。 7.5文件操作语句 3. MkDir 语句 格式：MkDir path 功能：创建一个新的目录。 4. RmDir 语句 格式：RmDir path 功能：删除一个存在的目录 说明：只能删除空目录。 5.FileCopy语句 格式：FileCopy source , destination 功能：复制一个文件。 说明： FileCopy语句不能复制一个已打开的文件。 6.Name 语句 格式：Name oldpathname As newpathname 功能：重新命名一个文件或目录。 说明： (1) Name具有移动文件的功能。 (2) 不能使用统配符“*”和“?”，不能对一个已打开的文件上使用Name语句。 7.Kill语句 格式：Kill pathname 功能：删除文件。 说明：pathname中可以使用统配符“*”和 “?”。 例如：Kill *.TXT Visual Basic程序设计教程 中国石油大学(华东)石油工程学院 第7章 数据文件 1.掌握VB中文件的概念、种类及其结构； 2.掌握顺序文件的操作：打开、读/写、关闭； 3.掌握随机文件的操作：打开、读/写、关闭； 4.了解二进制文件的操作。 5.了解与文件操作有关的一些语句 本章内容及要求： 本章重点： 顺序文件的操作：打开、读/写、