文件幻灯片

《文件幻灯片》由会员分享，可在线阅读，更多相关《文件幻灯片（45页珍藏版）》请在金锄头文库上搜索。

1、第九章 文 件,本章内容及要求：掌握文件系统控件（驱动器列表框DriveListBox、 目录列表框DirListBox、文件列表框FilelistBox。掌握VB中文件的概念、种类及其结构；掌握顺序文件的操作：打开、读/写、关闭；了解随机文件的操作：打开、读/写、关闭；了解二进制文件的操作：打开、读/写、关闭。,本章重点：1. 文件系统控件驱动器列表框、目录列表框、文件列表框的使用；2. 顺序文件的操作：打开、读/写、关闭。,9.1 文件的概念,一、文件及其结构 文件：存储在外部介质上数据的集合。 要求操作系统中的文件系统能提供用户按名存取方式 在操作系统中有两种文件： 字符流无结构文件和记

2、录式有结构文件 磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。,二、文件分类,根据访问文件的方式将文件分成3类： 顺序文件、 随机文件、 二进制文件。,1顺序文件 顺序文件（Sequential File）是普通的文本文件。顺序文件中的记录按顺序一个接一个地排列。读写文件存取记录时，都必须按记录顺序逐个进行。一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔符号。,结构简单; 但不能灵活存取，适用于不经常修改的文件,2随机文件 随机文件（Random Access File）是可以按任意次序读写的文件，其中每个记录的长度必须相同。

3、在这种文件结构中，每个记录都有其唯一的一个记录号，所以在读取数据时，只要知道记录号，便可以直接读取记录。,存取速度快，易更新；但占用空间大，设计程序较复杂,3二进制文件 二进制文件（Binaryfile）是字节的集合，直接把二进制码存放在文件中。 除了没有数据类型或者记录长度的含义以外，它与随机访问很相似。 二进制访问模式是以字节数来定位数据，在程序中可以按任何方式组织和访问数据，对文件中各字节数据直接进行存取。,灵活性很大; 相对的, 程序更复杂,9.2 文件系统控件,VB提供了3种可直接浏览系统目录结构和文件的控件： 驱动器列表框、目录列表框、文件列表框。,9.2.1 驱动器列表框（Dri

4、veListBox） 驱动器列表框控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出当前系统拥有的所有磁盘驱动器，供用户选择。,1重要属性,Drive属性是驱动器列表框控件最重要和常用的属性，该属性在设计时不可用。,使用格式： 对象.Drive = 例如： Drive1.drive=“D:”,2重要事件Change事件,在程序运行时，当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发驱动器列表框的change事件发生。,9.2.2 目录列表框（DirListBox）,目录列表框（DirListBox） 控件用来当前驱动器目录结构及当前目录下的所有子目录。供用户选择其中一个目

5、录为当前目录。,1常用属性 Path属性是目录列表框控件的最常用的属性，用于返回或设置当前路径。该属性在设计时是不可用的。使用格式： 对象.Path = 其中： 用来表示路径名的字符串表达式。 例如，Dir1.Path= C:Mydir。,说明： Path属性也可以直接设置限定的网络路径 如，网络计算机名共享目录名path,List、ListCount 和 ListIndex等属性，这些属性与列表框（ListBox）控件基本相同。,目录列表框中的当前目录的ListIndex 值为-1。紧邻其上的目录具有 ListIndex 值为-2，再上一个的ListIndex值为-3，如右图所示。,2重要事

6、件Change事件 在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触发其Change事件发生。,注意：单击不改变当前目录双击才能改变当前目录,3,文件列表框控件用简单列表形式显示 Path 属性指定的目录中所有指定文件类型的文件。,9.2.3 文件列表框（FilelistBox）,1常用属性,（1）Path属性 用于返回和设置文件列表框当前目录，设计时不可用。 说明：当Path值的改变时，会引发一个PathChange事件。,（2）Filename属性 用于返回或设置被选定文件的文件名，设计时不可用。 说明：Filename属性不包括路径名。,要从文件列表框（Fil

7、e1）中获得全路径的文件名Fname$，用下面的程序代码： If Right(file1.path,1) = Then Fname$=file1.path & file1.filename Else Fname$=file1.path & & file1.filename End If,（3）Pattern属性 用于返回或设置文件列表框所显示的文件类型。可在设计状态设置或在程序运行时设置。缺省时表示所有文件。设置形式为： 对象.Pattern = value,其中value是一个用来指定文件类型的字符串表达式，并可使用包含通配符（“*”和“？”）例如：File1.Pattern= *.bmp

8、File1.Pattern= *.txt ; *.Doc File1.Pattern= ?.txt“注意：要指定显示多个文件类型，使用“;”为分隔符 重新设置Pattern属性引发“PatternChange”事件。,（4）文件属性： Archive：True，只显示文档文件； Normal：True，只显示正常标准文件； Hidden：True，只显示隐含文件； System：True，只显示系统文件。 ReadOnly：True，只显示只读文件。,（5）MultiSelect 属性 文件列表框MultiSelect 属性与ListBox控件中MultiSelect 属性使用完全相同。 默认

9、情况是0，即不允许选取多项。,（6）List、ListCount 和 ListIndex 属性 文件列表框中的List、ListCount 和 ListIndex 属性与列表框（ListBox）控件的List、ListCount 和 ListIndex 属性的含义和使用方法相同，在程序中对文件列表框中的所有文件进行操作，就有用到这些属性。 因此有：File1.FileName=File1.List(File1.ListIndex) 将文件列表框（File1）中的所有文件名显示在窗体上： For i = 0 To File1.ListCount - 1 Print File1.List(i) N

10、ext i,2. 主要事件 （1）PathChange事件 当路径被代码中FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PathChange事件过程来响应FileListBox控件中路径的改变。（2）PatternChange事件 当文件的列表样式，如：*.*，被代码中对FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PatternChange事件过程来响应在FileListBox控件中样式的改变。,（3） Click、DblClick事件：例如：单击输出文件名。Sub filFile_Click( )MsgBox filFile.FileNa

11、meEnd Sub例如：双击执行可执行程序Sub File1_DblClick( ) Dim Fname As String If Right(file1.path,1) = Then Fname=file1.path & file1.filename Else Fname=file1.path & & file1.filename End If RetVal = Shell(Fname, 1) 执行程序End Sub,说明： 要使驱动器、目录和文件列表框同步显示，那么就需要编写代码才能使它们之间彼此同步。,9.2.4 文件系统控件的联动。,9.3 顺序文件,在程序中对文件的操作，通常按3个步

12、骤进行：,9.3.1 顺序文件的打开与关闭,1.打开顺序文件,其使用格式如下：Open FileName For Input | Output | Append LockAs filenumber Len = Buffersize,例如： OPEN “C:TEMPA.TXT ” FOR Input AS #1 OPEN“C:TEMPB.TXT ” FOR Output AS #2 OPEN“C:TEMPC.TXT ” FOR Append AS #3,2. 关闭文件Close 语句使用格式如下： Close filenumberlist其中：filenumberlist：可选项，为文件号列表，

13、如：#1, #2, #3， 例如： Close #1,#2,#3 如果省略，则将关闭Open语句打开的所有活动文件。 Close,9.3.2 顺序文件的读写操作,向文件写入内容使用 Print # 语句或Write#语句，在程序是数据输出。,1Print语句使用格式： PRINT #，说明：文件号为以写方式打开文件的文件号； 输出列表为用分号或逗号分隔的变量、常量、空格和定位函数序列。,2Write命令使用格式： Write #，Write语句采用紧凑格式。数据项之间插入“,”，并给字符数据加上双引号。,例9.1 Print与Write语句输出数据结果比较。Private Sub Form_C

14、lick()Dim Str As String, Anum As Integer Open D:Myfile.dat For Output As 1Str = ABCDEFGAnum = 12345Print #1, Str, AnumWrite #1, Str, AnumClose #1End Sub,例9.2 编程把一个文本框中的内容，以文件形式存入磁盘。假定文本框的名称为Mytxt，文件名为Myfile.dat。方法1：把整个文本框的内容一次性地写入文件。Open Myfile.dat For Output As #1Print #1, Mytxt.TextClose #1方法2：把整个文本框的内容一个字符一个字符地写入文件。Open Myfile.dat For Output As #1For i=1 To len(Mytxt.Text) Print #1,Mid(Mytxt.Text,i,1);Next iClose #1,