Visual Basic程序设计简明教程（第二版）课件：文件

2024/11/111文件本章内容：

概述

文件打开与关闭

文件读写

文件操作

文件系统控件2024/11/11《VisualBasic程序设计简明教程》29.1概述文件（file）是指具有文件名的相关数据的集合，一般把它保存在外部存储介质中（例如磁盘）。VB文件由记录组成，记录由字段组成，字段则由字符组成。

VB语言提供了一些语句和函数，专门用来完成文件的输入输出等操作。按照文件的存取方式进行分类，VB文件一般可以分为顺序文件、随机文件和二进制文件。

2024/11/11《VisualBasic程序设计简明教程》3顺序文件：顺序文件一般是普通的文本文件，其所有数据都以字符串的形式存储。顺序文件的一行数据就是一条记录，记录的长度不固定，记录之间以换行符予以分隔。顺序文件的记录是顺序存储的，而且只提供第一条记录的存储位置。顺序文件的访问应采取顺序存取方式，例如查找某一个数据只能从文件的头部开始，一条一条地顺序读取记录，直至找到所要查找的记录为止。2024/11/11《VisualBasic程序设计简明教程》4随机文件：随机文件由相同长度的记录集合组成，每一条记录有一个唯一的记录号。随机文件的访问可以采取随机存取方式，直接读取某一条记录。只要指定记录号，就能够快速找到该条记录在文件中的位置，然后进行相应的操作。 二进制文件按二进制的形式存储数据，这正是数据在内存中存储的原始形式。二进制文件与随机文件很相似，只是没有数据类型和记录长度这些说明信息。二进制文件的访问同样可以采取随机存取方式，直接读取某一个字节。二进制文件允许程序按照所需的任何方式组织数据，并且适用于存取任意结构的数据。二进制文件：返回2024/11/11《VisualBasic程序设计简明教程》59.2文件打开与关闭对磁盘文件的操作，主要有打开、读、写、关闭和删除等等。对文件操作时，必须遵循“先打开，后读写，最后关闭”的原则。

2024/11/11《VisualBasic程序设计简明教程》69.2文件打开与关闭——文件打开

VB语言为文件打开提供Open语句，其格式为：Open文件名[For模式][Access存取类型][锁定]As[#]文件号[Len=记录长度]说明：（1）文件名是一个字符串，该参数是必选项，用来指定需要打开的文件。如果该文件不在当前目录中，则在文件名中必须包含路径名。（2）模式位于关键字For之后，用来指定文件的操作方式。一共有5种方式，其中默认方式是Random。模式含义Input顺序输入Output顺序输出Append在文件尾部顺序输出Random随机存取Binary二进制方式2024/11/11《VisualBasic程序设计简明教程》7（3）存取类型位于关键字Access之后，用来指定所访问文件的类型。（4）锁定只在网络或者多任务环境中使用，其作用是限制其他用户或者进程对已打开的文件进行读写操作。（5）文件号是一个整型表达式，该参数是必选项，取值范围在1~511之间。在执行Open语句时，系统自动为打开的文件和文件号之间建立关联。此后文件号就代表打开的文件，在程序中对该文件的操作都要借助于文件号。（6）记录长度是一个整型表达式，其取值不能超过32767。对于顺序文件，该参数是指缓冲区的字符数，默认值是512；对于随机文件，该参数是指记录的长度，默认值是128。2024/11/11《VisualBasic程序设计简明教程》89.2文件打开与关闭——文件关闭VB语言为文件关闭提供Close语句，其格式为：

Close[[#]文件号][,[#]文件号…]说明：如果省略文件号，则系统会将程序中所有已经打开的文件全部关闭。例如关闭1号文件和2号文件，可以写为：

Close#1,#2返回2024/11/11《VisualBasic程序设计简明教程》99.3文件读写——顺序文件1．Print语句Print语句用于将格式化的数据写入顺序文件，其格式为：Print#文件号,[表达式列表][;|,]说明：（1）Print语句的格式与Print方法十分相似，其差别在于Print语句增加了一个文件号参数。Print语句输出的对象是文件，而Print方法输出的对象则是窗体、图片框和打印机。（2）表达式列表列出向文件写入的信息，它的用法与Print方法相同。该参数是可选项，如果被省略，则表示向文件写入一个空行。（3）如果用分号（;）分隔表达式列表中的数据项，按照紧凑格式写入数据；如果用逗号（,）分隔数据项，按照标准格式写入数据。（4）对于字符串数据，如果其中含有逗号、分号、空格或者换行符，则应该先给字符串加上双引号（“”），然后写入文件。2024/11/11《VisualBasic程序设计简明教程》10PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,nameAsString,age%n=Val(Text1.Text)Open"d:\test01.txt"ForOutputAs#1'打开文件

Fori=1Tonname=InputBox("请输入第"&i&"个学生的姓名")age=InputBox("请输入第"&i&"个学生的年龄")Print#1,name;age'向文件写入学生的姓名和年龄

NextiClose#1'关闭文件

EndSub例9.1

输入学生信息，并写入到文件test01.txt中

2024/11/11《VisualBasic程序设计简明教程》112．Write语句Write语句也能够将数据写入顺序文件，其格式为：Write#文件号,[输出列表]说明：（1）输出列表列出向文件写入的信息，其中的各个数据项之间用逗号（,）分隔。（2）Write语句的功能与Print语句基本相同。其差别在于Write语句写入的数据在文件中按照紧凑格式存放，而且自动在数据之间插入逗号（,），并给字符串加上双引号。2024/11/11《VisualBasic程序设计简明教程》12例9.2

追加信息到文件test01.txt

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,nameAsString,age%n=Val(Text1.Text)Open"d:\test01.txt"ForAppendAs#1'打开文件

Fori=1Tonname=InputBox("请输入第"&i&"个学生的姓名")age=InputBox("请输入第"&i&"个学生的年龄")Write#1,name,age'向文件写入学生的姓名和年龄

NextiClose#1'关闭文件

EndSub2024/11/11《VisualBasic程序设计简明教程》133．Input语句Input语句用于从顺序文件读取数据，并把这些数据赋给相应的变量。其格式为：

Input#文件号,变量列表说明：（1）变量列表列出的变量用于接收从文件读出的信息，各个变量之间用逗号（,）分隔。（2）变量的类型应该与文件中数据的类型相匹配。为了确保能够将文件中的数据正确地读出，Input语句应该与Write语句配合使用。2024/11/11《VisualBasic程序设计简明教程》14例9.3

显示文件test01.txt中的信息

PrivateSubCommand1_Click()DimnameAsString,age%

Open"d:\test01.txt"ForInputAs#1'打开文件

DoWhileNotEOF(1)Input#1,name,age'从文件读出学生的姓名和年龄

Picture1.Printname,ageLoopClose#1‘关闭文件

EndSub

2024/11/11《VisualBasic程序设计简明教程》154．LineInput语句LineInput语句用于从顺序文件读取一行数据，并把它赋给一个字符串变量。其格式为：LineInput#文件号,字符串变量说明：LineInput语句能够一次读出文件中的一行数据即一条记录，其中不包含换行符。LineInput语句一般与Print语句配合使用。5．Input函数Input函数用于从文件中读取指定数量的字符，并把它赋给一个字符串变量。其格式为：

Input(n,#文件号)说明：Input函数通常出现在赋值语句中，参数n指定了读取字符的数量。例如：

DimaAsStringa=Input(20,#1)Input函数从1号文件读出20个字符，并赋给字符串变量a。2024/11/11《VisualBasic程序设计简明教程》169.3文件读写——随机文件随机文件由一组相同长度的记录组成，是以记录为单位进行文件的读写操作。在程序中打开一个随机文件之前，应先定义一个记录类型，与该文件所包含的记录结构相对应。在打开随机文件之后，既可以进行写操作，也可以进行读操作，而且能够直接定位在任意一条记录上。

2024/11/11《VisualBasic程序设计简明教程》171．Put语句Put语句用于将记录变量中的数据，写入到随机文件中指定的记录位置。其格式为：

Put#文件号,[记录号],变量说明：记录号是一个自然数，表示写入的是第几条记录。如果省略了记录号，例如写为：

Put#1,,stu

则表示把变量中的记录写入到文件的下一个记录位置。2024/11/11《VisualBasic程序设计简明教程》182．Get语句Get语句用于从随机文件读取指定位置的记录，并把它赋给一个记录变量。其格式为：

Get#文件号,[记录号],变量说明：Get语句的格式与Put语句基本相同，其作用则正好相反。返回2024/11/11《VisualBasic程序设计简明教程》199.4文件操作读写操作是文件操作的重要组成部分，它针对的是文件内容。文件操作还有删除、复制和重命名等等，这些操作主要是针对文件整体。VB提供了一组语句和函数，使得程序员可以对文件或者目录进行一些维护性操作。2024/11/11《VisualBasic程序设计简明教程》209.4文件操作——文件操作语句1．FileCopy语句FileCopy语句用于将源文件复制到指定的目标文件，其格式为：

FileCopy源文件名,目标文件名2．Kill语句Kill语句用于删除指定的文件，其格式为：

Kill文件名2024/11/11《VisualBasic程序设计简明教程》213．Name语句Name语句用于对文件重命名，其格式为：

Name原文件名As新文件名4．Seek语句Seek语句用于设置文件的下一个读写位置，其格式为：

Seek#文件号,位置5．ChDrive语句ChDrive语句用于设置当前驱动器，其格式为：

ChDrive驱动器名2024/11/11《VisualBasic程序设计简明教程》226．MkDir语句MkDir语句用于创建一个新目录，其格式为：

MkDir目录名

7．ChDir语句ChDir语句用于设置当前目录，其格式为：

ChDir目录名8．RmDir语句RmDir语句用于删除指定的目录，其格式为：

RmDir目录名2024/11/11《VisualBasic程序设计简明教程》239.4文件操作——文件操作函数1．FreeFile函数FreeFile函数的格式为：

FreeFile[(n)]该函数的作用是，返回一个在程序中尚未使用的文件号。2．LOF函数LOF函数的格式为：

LOF(文件号)该函数的作用是，返回指定文件的长度（字节数）。2024/11/11《VisualBasic程序设计简明教程》243．EOF函数EOF函数的格式为：EOF(文件号)该函数的作用是，检测当前操作是否到达文件的尾部。4．Seek函数Seek函数的格式为：Seek(文件号)该函数的作用是，返回文件的当前读写位置。5．CurDir函数CurDir函数的格式为：CurDir[(驱动器名)]该函数的作用是，返回指定驱动器的当前目录。

6．Shell函数Shell函数的格式为：Shell(文件名[,窗口类型])该函数的作用是，调用并运行指定的可执行文件。2024/11/11《VisualBasic程序设计简明教程》259.5文件系统控件除了通用对话框之外，VB还提供了文件系统控件，它包括驱动器列表框控件、目录列表框控件和文件列表框控件。文件系统控件是标准控件，程序员可以使用它创建自定义对话框，编写文件管理程序。返回2024/11/11《VisualBasic程序设计简明教程》269.5文件系统控件——驱动器列表框驱动器列表框（DriveListBox）控件用来列出系统中全部有效的驱动器，默认情况下显示系统当前的驱动器，用户也可以从下拉式列表框中选择所需的驱动器。在工具箱中表示为：2024/11/11《VisualBasic程序设计简明教程》27驱动器列表框的常用属性属性作用Name设置驱动器列表框的对象名，程序第一个驱动器列表框控件的默认对象名是Drive1Drive设置所选择的驱动器名List确定驱动器列表框所显示的驱动器列表ListCount确定驱动器列表框中驱动器的总数2024/11/11《VisualBasic程序设计简明教程》28说明：⒈Drive是驱动器列表框控件最重要的属性，其属性值只能通过程序代码设置。⒉List是一个字符串数组，其中每一个元素都存放了一个有效的驱动器名和卷标。Change事件是驱动器列表框控件最重要的事件。一旦用户选择了一个新的驱动器，导致Drive属性值被改变，就会引发Change事件。2024/11/11《VisualBasic程序设计简明教程》299.5文件系统控件——目录列表框目录列表框（DirListBox）控件用来显示系统当前驱动器上的目录结构，初始状态下只显示当前驱动器的根目录和当前目录。程序运行时如果用户双击某个子目录，就可以使它成为当前目录。在工具箱中表示为：2024/11/11《VisualBasic程序设计简明教程》30目录列表框的常用属性属性作用Name设置目录列表框的对象名，程序第一个目录列表框控件的默认对象名是Dir1Path设置当前目录List确定当前目录下的子目录列表ListCount确定当前目录下子目录的总数ListIndex确定当前目录在目录列表中的索引2024/11/11《VisualBasic程序设计简明教程》31说明：⒈目录列表框只能显示当前驱动器上的目录，如果要显示其他驱动器上的目录，则必须修改Path属性，从而改变路径。⒉List是一个字符串数组，其中每一个元素都存放了当前目录下的一个子目录名。⒊当前目录的ListIndex属性值是-1。如果当前目录包含子目录，则每一个子目录的ListIndex属性值依次从0到ListCount-1；如果当前目录有父目录，则父目录的ListIndex属性值是-2，依次类推。2024/11/11《VisualBasic程序设计简明教程》32事件：Change事件是目录列表框控件最重要的事件。一旦用户选择了一个新的目录，导致Path属性值被改变，就会引发Change事件。2024/11/11《VisualBasic程序