第八章数据文件.ppt

1、第八章 数据文件,8.1 文件系统控件8.2 文件概述8.3 顺序文件8.4 随机文件8.5 二进制文件8.6 常用文件操作语句和函数,1.驱动器列表框Drive属性：包含当前选定的驱动器名，只能在运行时设置。对象.Drive=driveChange事件：选择一个新的驱动器或通过代码重新设置Drive属性引发Change事件。2.目录列表框Path属性：包含当前路径，只能在运行时设置。对象.Path=pathnameChange事件：双击一个新的目录或通过代码重新设置Path 属性引发Change 事件。Click事件：单击目录列表框时发生。,8.1 驱动器、目录和文件列表框,3.文件列表框

2、Path属性：显示当前驱动器或指定驱动器上的目录结构，即显示该路径下的所有文件。重新设置Path属性引发PathChange事件。Pattern属性：决定显示的文件类型。对象.Pattern=value 重新设置Pattern属性引发PatternChange事件。例如：file1.Pattern=*.frm，显示*.frm文件。多个文件类型用分号分界。例如：*.frm;*.frx FileName属性：包含选定的文件名 对象.FileName=pathname 引用时只返回文件名，相当于File1.List(File1.ListIndex)，需用Path属性得到其路径；设置时可带路径。,Cl

3、ick、DblClick事件：例如，单击输出文件名。Sub File1_Click()MsgBox File1.FileNameEnd Sub 例如，双击执行可执行程序：Sub File1_DblClick()RetVal=Shell(File1.Path+”+File1.FileName,1)执行程序 End Sub,例8.0示例程序文件管理系统。当用户在文件列表框中单击文件名时输出该文件名；双击某可执行文件时，可以运行该程序。,8.2 文件概述,文件：存储在外存储器上的用文件名标识的数据的集合。8.2.1文件分类1.按文件内容分类程序文件：包括源程序和可执行程序。数据文件：程序运行所需要的

4、各种数据。2.按存储信息的形式分类ASCII文件：存放各种数据的ASCII代码，可用记事本打开。二进制文件：存放的是数据的二进制代码，用专用程序打开。3.按访问模式分类顺序文件、随机文件和二进制文件。,(1)顺序文件 按顺序依次把记录写入文件；按顺序依次把记录读出来。优点：结构简单、访问模式简单 缺点：必须按顺序访问 在VB中，顺序文件就是文本文件 文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。,(2)随机文件随机文件可以直接访问文件中的任意一个记录。记录长度相同；根据记录号访问；存取速度快。,(3)二进制文件直接把二进制码存放在文件中。以字节为单位访问。,8.2.2 文件读

5、/写1.打开文件文件缓冲区：打开文件时，系统为文件开辟专门的数据存储区域。文件号：每个文件缓冲区都有一个编号。文件号就代表文件，对文件的操作都是通过文件号进行的。可以由程序员指定，也可以由FreeFile函数获得。2.读写操作读操作：将数据从文件读入到变量（外存到内存）（输入）。写操作：将数据从变量写入到文件（内存到外存）（输出）。读写操作都要先经文件缓冲区，然后再提交给变量或文件。3.关闭文件避免数据丢失情况发生。,8.3 顺序文件,8.3.1 引例例8.1 编写程序，要求是：(1)将两个学生的学号、姓名和成绩写入文件C:Scores.dat。(2)按原有的数据类型从文件C:Scores.d

6、at中读出数据，计算平均成绩并显示在窗体上。(3)根据文本文件的行结构特性，按行从文件C:Scores.dat中读出数据并显示在窗体上。分析：(1)对文件操作首先打开文件，用Open语句；(2)对文件进行读写操作可以使用VB提供的读写语句。,8.3.2 常用语句和函数1.打开文件Open 文件名 For 模式 As#文件号(1)文件名 字符串常量或字符型变量(2)模式OUTPUT：写操作；INPUT：读操作；APPEND：追加到文件末尾。(3)文件号 1511，可以用FreeFile函数获得下一个可利用的文件号。例 如，打开C:VBSCORE，供写入数据，指定文件号为#1。OPEN C:VBS

7、CORE FOR OUTPUT AS#1,2.写入命令（1）Print#文件号，输出列表 其中，输出列表的格式与Print方法完全一样。例如：保存文本框的内容假定文本框的名称为Text1，文件名为TEST.Doc。方法1：把整个文本框的内容一次性地写入文件。Open“c:TEST.doc For Output As#1 Print#1,Text1Close#1方法2：把整个文本框的内容一个字符一个字符地写入文件。Open“c:TEST.doc For Output As#1For i=1 To len(Text1)Print#1,Mid(Text1,i,1);Next iClose#1,（2）

8、Write#文件号，输出列表紧凑格式，数据项之间插入“,”，字符数据加上双引号。例如，命令：Write#1,One,Two,123内容：One,Two,123 若是print#1,“One”,“Two”,123 则结果：One Two 123例8.2 利用Print 和Write 语句把数据写入文件3.关闭文件Close#文件号,#文件号.例如：Close#1,#2,#3 Close,4.读顺序文件INPUT#文件号,变量列表把读出的每个数据项分别存放到所对应的变量。LINE INPUT#文件号,字符串变量读一行到变量中，但读出的数据不包含回车换行符，主要用来读取文本文件。INPUT$(读取字

9、符数,#文件号)随意读取指定数目字符。5.函数LOF(文件号)：返回文件的长度(总字节数)。EOF(文件号)：返回文件指针是否到末尾的值。指针在文件尾时，EOF函数为True，否则为False。,例如：读文本文件的内容到文本框假定文本框名称为Text1，文件名为MYFILE.TXT。方法 一：一行一行地读Text1.Text=Open MYFILE.TXT For Input As#1Do While Not EOF(1)Line Input#1,InputDataText1=Text1+InputData+vbCrLfLoopClose#1,方法2：一个字符一个字符地读Dim InputDa

10、ta as String*1Text1.Text=Open MYFILE.TXT For Input As#1Do While Not EOF(1)InputData=Input$(1,#1)Text1.Text=Text1.Text+InputDataLoopClose#1,例8.4 编写顺序文件读写程序。单击“添加数据”，则将一个学生的学号、姓名和成绩添加到Score.txt文件中单击“读取数据”，则从文件读取数据并计算总分和平均成绩，最后送入文本框。,8.3.3 应用举例例8.3 设计一个文件加密程序。,由长度相同的一条条记录所组成的集合。每个记录都有一个记录号。可根据记录号计算出记录在

11、文件中的存储位置，按记录号直接读写。记录：是计算机处理数据的基本单位，通常由若干个相互关联的数据项组成。,8.4 随机文件,对随机文件的操作是按记录进行的，而一个记录是由多个数据项组成，因此须在程序的变量说明部分先定义记录的类型结构，再将变量说明为记录类型。访问随机文件的程序框架由四个部分组成：1）定义记录类型及其变量 2）打开随机文件 3）将记录写入随机文件或从随机文件中读出记录 4）关闭随机文件,1.打开 Open 文件名 For Random As#文件号 Len=记录长度2.写操作Put#文件号，记录号，变量名将一个记录变量的内容写到指定的记录位置处。忽略记录号，则表示在当前记录后的位

12、置插入一条记录。3.读操作Get#文件号，记录号，变量名忽略记录号，则读出当前记录后的那一条记录。4.关闭文件Close#文件号,#文件号.例如，Close#1,#2,#3 Close,例8.5 编写一个随机文件应用程序。要求将两个学生的记录（由学号、姓名和成绩组成）写入随机文件C:Score.dat，记录号分别为1和4，然后从中读出第4条记录并显示在窗体上。分析：访问随机文件前要定义记录类型及其变量，然后打开文件，进行读写操作，最后关闭文件。,例8.6 编写学生信息管理程序 追加记录(Command1)：将一个学生的信息作为一条记录添加到随机文件末尾。显示记录(Command2)：显示在右边

13、文本框(text4)中指定的记录。,二进制文件的访问方法与随机文件类似，也用PUT和GET语句。不同的是二进制文件访问单位是字节，随即文件访问单位是记录。1.打开Open 文件名 For Binary As#文件号 2.写操作Put#文件号，位置，变量名写入长度等于变量长度的数据。3.读操作GET#文件号，位置，变量名 从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。,8.5 二进制文件,例8.7 文件复制Dim char As ByteDim FileNum1 as intege

14、r,FileNum2 as IntegerFileNum1=FreeFile 打开源文件Open C:STUDENT.doc For Binary As#FileNum1FileNum2=FreeFile 打开目标文件Open C:STUDENT.txt For Binary As#FileNum2Do While Not EOF(FileNum1)Get#1,char 从源文件读出一个字节Put#2,char 将一个字节写入目标文件LoopClose#FileNum1Close#FileNum2,8.6 常用的文件操作语句和函数,1.FileCopy语句 格式：FileCopy source

15、,destination 功能：复制一个文件。说明：FileCopy语句不能复制一个已打开的文件。2.Kill语句 格式：Kill pathname 功能：删除文件。说明：pathname中可以使用统配符“*”和“?”。例如：Kill*.TXT3.Name 语句 格式：Name oldpathname As newpathname 功能：重新命名一个文件或目录。说明：(1)Name具有移动文件的功能。(2)不能使用统配符“*”和“?”，不能对一个已打开的文件上使用Name语句。,4.ChDrive 语句格式：ChDrive drive功能：改变当前驱动器。说明：如果drive为“”，则当前驱动

16、器将不会改变；如果drive中有多个字符，则ChDrive只会使用首字母。5.MkDir 语句格式：MkDir path功能：创建一个新的目录。6.ChDir 语句格式：ChDir path功能：改变当前目录。例如：ChDir D:TMP 7.RmDir 语句格式：RmDir path功能：删除一个存在的目录。说明：只能删除空目录。,8.CurDir函数 格式：CurDir(drive)功能：利用CurDir函数可以确定任何一个驱动器的当前目录。说明：drive为，则CurDir返回当前驱动器的当前目录。例8.8 利用ChDrive和ChDir语句改写例8.0中的File1_DblClick(

17、)事件过程。Sub File1_DblClick()ChDrive Drive1.Drive 设置缺省驱动器ChDir File1.Path 设置缺省目录RetVal=Shell(File1.FileName,1)End Sub,例8.9 为例8.0添加事件过程File1_KeyDown()，使之支持Del键，即按下Del键删除选定的文件。Sub File1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=vbKeyDelete ThenChDrive Drive1.DriveChDir File1.PathKill File1.FileNameFile1.Refresh 文件删除后更新文件列表框End IfEnd Sub,本章小节,文件 文件是记录的集合，三种访问模式 顺序访问 打开 Open 文件名,模式,文件号 写 Print、Write 读 Input#文件号，变量 Line Input#文件号随机访问Open 文件名 For Random As#文件号 Len=长度 读Get 写 Put二进制访问 与随机访问模式类似,本章目录,