《高级语言程序设计第八章课件》由会员分享，可在线阅读，更多相关《高级语言程序设计第八章课件（29页珍藏版）》请在金锄头文库上搜索。
1、第八章 文 件,2020/7/21,2,内容提要,文件系统控件 文件结构及分类 顺序文件的访问 文件操作的语句和函数,2020/7/21,3,文件系统控件,文件系统控件,为了管理计算机中的文件，VB提供了三个文件系统控件：驱动器列表框、目录列表框和文件列表框。,驱动器列表框（DriveListBox）是下拉式列表框，是一种能显示系统中所有有效磁盘驱动器的列表框。其默认控件名是Drive1。,驱动器列表框,2020/7/21,4,重要属性,文件系统控件,Drive属性：用于返回或设置驱动器的名称，默认 为当前驱动器。其格式为： 对象.Drive= 说明： (1) 其中“对象”为驱动器列表框对象的
2、名称。 例如：Drive1.Drive =“C:” (2) 从列表框中选择驱动器并不能自动改变系统当前的工作驱动器，必须通过ChDrive语句来实现。例如：ChDrive Drive1.Drive,2020/7/21,5,重要事件,文件系统控件,Change事件：程序运行时，从列表框中选择一个新驱动器或通过代码改变Drive属性的设置时会触发驱动器列表框的Change事件。 例如：将在驱动器列表框中选择的驱动器设置为当前驱动器，可在该事件中编写代码： Private Sub Drive1_Change() ChDrive Drive1.Drive End Sub,2020/7/21,6,文件系
3、统控件,目录列表框（DirListBox）用来显示当前驱动器目录的层次结构，供用户选择其中一个目录为当前目录。其默认控件名是Dir1。,目录列表框,2020/7/21,7,重要属性,文件系统控件,Path属性：用于返回或设置当前路径，必须通过程序代码设计其属性值。其格式为： 对象.Path = 说明： (1) “对象”为目录列表框对象；“字符串表达式”用来表示路径名。默认为当前路径。 例如：Dir1.Path =“C:hp” (2) 从目录列表框中选择目录并不能自动改变系统当前的工作目录，必须通过ChDir语句来实现。 例如：ChDir Dir1.Path,2020/7/21,8,重要事件,文
4、件系统控件,Change事件：程序运行时，双击一个目录项或通过代码改变Path属性的设置时触发目录列表框的Change事件。事件过程为： Private Sub Dir1_Change() End Sub,2020/7/21,9,文件系统控件,文件列表框（FileListBox）用来显示特定驱动器特定目录下的文件，其默认控件名是File1。,文件列表框,2020/7/21,10,重要属性,文件系统控件,2020/7/21,11,重要事件,文件系统控件,(1) PathChange事件：是Filename属性指定的文件的Path属性改变时触发的事件。 (2) PatternChange事件：是F
5、ilename属性指定的文件的Pattern属性改变时触发的事件。 (3) Click事件：是单击文件名时触发的事件。 (4) DblClick事件：是双击文件名时触发的事件。,2020/7/21,12,文件系统控件,驱动器列表框、目录列表框和文件列表框有密切关系。改变驱动器列表框中的驱动器名后，目录列表框中的目录应当随之变为该驱动器上的目录，并进一步引发文件列表框文件列表的变化，即应使驱动器列表框、目录列表框和文件列表框产生同步效果。可通过以下语句实现： Private Sub Drive1_Change() Dir1.Path=Drive1.Drive驱动器列表框 End Sub和目录列表
6、框同步 Private Sub Dir1_Change()目录列表框 File1.Path=Dir1.Path 和文件列表框同步 End Sub,文件系统控件的同步操作,2020/7/21,13,在窗体上分别画一个驱动器列表框、一个目录列表框、一个文件列表框、一个标签，一个文本框。单击驱动器列表框可变更当前驱动器，同时引发目录列表框内信息和文件列表框信息的同步变更，单击文件列表框某一文件，将该文件名在文本框中显示。,例8-1,文件系统控件,2020/7/21,14,文件结构及分类,文件结构及分类,字符：是构成文件的最基本单位。 字段：也称域，字段由若干个字符组成，用来表示一项数据。如学号（“2
7、005121201”）是一个字段。 记录：由一组相关的字段组成。如在学生基本信息表示中，每个学生的学号、姓名、性别、出生日期等构成一个记录。 文件：由记录构成，一个文件由一个以上的记录组成。,文件结构,2020/7/21,15,文件结构及分类,按文件存储介质分类 可分为磁盘文件、磁带文件、打印文件等。 按文件存储数据性质分类 (1)程序文件 在VB中，扩展名为.exe、.frm、.vbp、.bas 的文件都是程序文件。 (2) 数据文件 即普通的数据文件，如学生的考试成绩，职工的工资。这类数据必须通过程序来存取。,文件分类,2020/7/21,16,文件结构及分类,按文件的存取方式和结构分类
8、(1) 顺序文件 文件中的记录一个接一个存放，记录长短可不同，访问时只能从第一条记录访问到最后一条记录（即：只能顺序访问）。,文件分类,(2) 随机文件 可以直接访问文件中的任意一个记录。记录长度相同；根据记录号访问。,2020/7/21,17,文件结构及分类,按数据的编码方式分类 (1) ASCII文件 又称文本文件，它以ASCII方式保存文件，这种文件可以用字处理软件建立和修改，保存文件时，按纯文本文件保存。 (2) 二进制文件（Binary File） 直接把二进制码存放在文件中，对其访问是以字节数来定位数据。,文件分类,2020/7/21,18,文件结构及分类,(1) 打开（或建立）文
9、件 一个文件必须先打开或建立后才能使用。如果一个文件已经存在，则打开该文件；如果文件不存在，则建立该文件。 (2) 文件的读、写操作 在文件处理中，把内存中的数据传输到外部设备（如磁盘）并作为文件存放的操作叫做写数据（输出），而把数据文件中的数据传输到内存程序中的操作叫做读数据（输入）。 (3) 关闭文件 当结束读写操作后，还必须将文件关闭，否则会造成数据丢失等现象。,数据文件的操作步骤,2020/7/21,19,文件结构及分类,文件被打开后，自动生成一个文件指针（隐含的），文件的读写就是从这个指针所指的位置开始的。完成一次读写操作后，文件指针自动移到下一个读写操作的起始位置。,文件指针,20
10、20/7/21,20,顺序文件的访问,顺序文件的访问,格式：Open 文件名 For 方式 As # 文件号 功能：按指定的方式打开一个文件，并为文件指定 一个文件号。,打开文件,2020/7/21,21,顺序文件的访问,(1)方式有三种： OutPut：新建或打开一个文件，进行写操作。文件若存在，则打开，写入信息覆盖原有信息；文件若不存在，则新建。 Input：打开一个文件，进行读操作。文件必须存在，否则出错。 Append：新建或打开一个文件，进行写操作。文件若存在，则打开，写入信息追加在原有信息之后；文件若不存在，则新建。 (2)文件号：界于1至511之间的整数。当打开一个文件并为它指定
11、一个文件号后，该文件号就代表该文件，直到文件被关闭后，此文件号才能被其他文件使用。,说明：,2020/7/21,22,顺序文件的访问,Print 语句 格式：Print #， 功能：将的内容写入指定的文件。 Write 语句 格式：Write #， 功能：将的内容写入指定的文件。 注意： Write语句将数据项之间插入“,”，并加上双引号。,写操作,2020/7/21,23,Print 语句和Write语句输出数据结果的比较。,例8-2,顺序文件的访问,2020/7/21,24,在窗体上添加1个文本框、2个命令按钮，要求给文本框输入内容，分别单击命令按钮，将文本框内容以文件的形式写入磁盘。,例
12、8-3,顺序文件的访问,2020/7/21,25,顺序文件的访问,Input 语句 格式：Input #文件号，变量列表 功能：从文件中依次读出数据，并放在变量列表对应的变量中。 Line Input 语句 格式：Line Input #文件号，字符串变量名 功能：从指定的文件中读取一行数据，并放在”字符串变量名”中。,读操作,2020/7/21,26,顺序文件的访问,Input函数 格式：Input$(读取字符数，#文件号) 功能：从指定的文件的当前位置一次读取指定个数的字符。 InputB函数 格式：InputB (字节数，#文件号) 功能：从指定的文件的当前位置一次读取指定字节数的数据。
13、,读操作,2020/7/21,27,用字处理程序（如“记事本”）在D盘建立一个名为xecd.txt的文件，将该文件的内容在文本框中显示出来 。,例8-4,顺序文件的访问,2020/7/21,28,顺序文件的访问,格式： Close # 文件号 ，# 文件号 功能：可一次关闭多个文件，并释放与该文件相关的“文件号”。 说明： (1) 文件号是可选项，若省略此项，则把所有打开的数据文件全关闭，否则只关闭指定的文件。 (2) 如果程序中没有Close语句，在程序结束时，系统将自动关闭所有打开的数据文件。,关闭文件,2020/7/21,29,文件操作的语句和函数,文件操作的语句和函数,读操作的两个重要函数： (1) LOF函数 格式：LOF（文件号） 功能：返回指定文件的字符数（文件长度）。 (2) EOF函数 格式：EOF（文件号） 功能：用来测试文件的指针是否到达文件末尾。,
