Visual Basic程序设计教程 第3版 教学课件 ppt 作者 刘瑞新 第13章 数据文件

VisualBasic程序设计 教程 人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程 (第3版）第13章数据文件*第13章数据文件 本章介绍如何建立文件、读取文件、写文件以及文件夹中文件的删除、复制、更名等各种操作。 13.1文件的结构与分类 13.2文件操作语句和函数 13.3顺序文件的操作 13.4随机文件的操作 13.5文件系统控件 13.6文件基本操作13.1文件的结构与分类13.1.1文件的分类根据不同的分类 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 ,VB文件可以分为不同的类型。1.按文件性质分类根据文件的性质,可分为程序文件和数据文件两大类。1)程序文件：这种文件存放的是可供计算机执行的程序,包括源程序文件和可执行程序文件。2)数据文件：用来存放运行程序所需的数据,或用来存储程序的运行结果。例如,学生成绩、职工工资、人事档案等。13.1文件的结构与分类13.1.1文件的分类2.按存取方式和结构分类根据文件中数据存取方式的不同,可以将数据文件分为顺序文件和随机文件两大类。1)顺序文件：数据（通常以记录的形式存放）的写入是一个接一个依次进行的。数据在文件中的存放次序,以及读出次序与写入数据时的顺序一致,也是从头到尾按序进行的。2)随机文件：数据通常也以记录的形式存放,但与顺序文件不同的是,其每条记录的长度相等,且拥有一个唯一的记录号。因此,对于随机文件,可以按记录号进行数据的存取操作。13.1文件的结构与分类13.1.1文件的分类3.按编码方式分类根据文件中存储信息所使用的编码方式,可以将文件分为ASCII文件和二进制文件。1)ASCII文件：又称为文本文件,它以ASCII方式存储,数值型数据中的每位数字分别使用代表它们的ASCII码存储,汉字的存储则使用双字节的汉字字符集编码。ASCII文件用文本编辑软件处理。2)二进制文件：以二进制方式保存信息,该类文件不具有可读性,不能使用TYPE命令输出或显示,也不能用文本编辑器建立或修改,占空间较小。13.1文件的结构与分类13.1.2文件的结构VB的数据文件由记录组成,记录由字段组成,字段由字符组成。1)字符(Character)：是构成文件的最基本单位,可以是数字、字母、特殊符号或单一的字节。一个字符通常用一个字节存放,一个汉字或全角字符则用两个字节存放。当计算字符串长度时一个汉字作为一个字符计算。2)字段(Field)：又称域,由若干个字符组成,用来表示一项数据。例如,姓名“张大强”是一个字段,由3个汉字组成。13.1文件的结构与分类13.1.2文件的结构VB的数据文件由记录组成,记录由字段组成,字段由字符组成。3)记录(Record)：由一组相关的字段组成。例如在通信录中,每个人的姓名、单位、住址、电话号码等组成一个记录。在VB中,通常以记录为单位处理数据。4)文件(File)：由记录组成。一个文件含有一个以上的记录,如在通信录文件中有40个人的信息,每个人的信息是一个记录,40个记录构成一个文件。13.2文件操作语句和函数13.2.1数据文件的操作从磁盘文件向计算机的内存传送数据,对于计算机来说,属于“输入”操作,称为“读文件”。从计算机的内存向磁盘文件传送数据,则是计算机的“输出”操作,称为“写文件”。为了有效地管理文件的输入输出操作,每一个打开的数据文件中都有一个指针,指向下一次将要读写的数据位置,称为“文件指针”或“记录指针”。13.2文件操作语句和函数13.2.1数据文件的操作数据文件的操作,一般按以下3个步骤进行：1)打开（或建立）文件：一个数据文件,首先必须打开才能使用。2)读写文件：执行文件的“写”操作,就是把内存中的数据传输到外部设备（一般为磁盘）并予以存储的过程；执行文件的“读”操作,则是把文件中的数据传输到计算机内存的过程。读写文件是数据文件处理的核心部分。3)关闭文件：对于一个不再使用的文件,应执行关闭命令,以便释放相关的文件缓冲区。13.2文件操作语句和函数13.2.2文件的打开与关闭语句1.Open语句在对文件执行任何读写操作之前,必须打开文件。Open语句用来打开或建立一个文件,分配一个缓冲区供文件进行输入/输出,并决定缓冲区的访问方式。其语法格式为：Open〈文件名〉For〈读写方式〉[Access〈存取类型〉][〈锁定类型〉]As[#]〈文件号〉[Len=〈记录长度〉]说明：1)文件名：欲打开或建立的文件名。该字符串表达式还可包括驱动器和路径描述。2)读写方式：指定文件的读写方式,其取值见表13-1。 参数 方式 说明 Output 顺序输出方式 打开或建立一个顺序文件，并允许向文件输出数据。 Input 顺序输入方式 打开一个顺序文件，指定从文件中读入数据。 Append 顺序输出（追加）方式 与Output不同的是，Append方式在打开一个顺序文件时，将指针定位在文件的末尾，当输出数据时，新记录将添加在原有记录的后面。 Random 随机文件方式 如果未指定方式，Open语句将以Random方式打开文件。 Binary 二进制文件方式  13.2文件操作语句和函数13.2.2文件的打开与关闭语句1.Open语句在对文件执行任何读写操作之前,必须打开文件。Open语句用来打开或建立一个文件,分配一个缓冲区供文件进行输入/输出,并决定缓冲区的访问方式。其语法格式为：Open〈文件名〉For〈读写方式〉[Access〈存取类型〉][〈锁定类型〉]As[#]〈文件号〉[Len=〈记录长度〉]说明：3)存取类型：指定文件的存取类型,其取值见表13-2。 参数 存取类型 说明 Read 打开只读文件   Write 打开只写文件   ReadWrite 打开读写文件 只能用于随机文件、二进制文件和以Append方式打开的文件。在Random和Binary方式中，如果没有Access选项，Open语句将按下列顺序打开文件：ReadWrite→Read→Write。13.2文件操作语句和函数13.2.2文件的打开与关闭语句1.Open语句在对文件执行任何读写操作之前,必须打开文件。Open语句用来打开或建立一个文件,分配一个缓冲区供文件进行输入/输出,并决定缓冲区的访问方式。其语法格式为：Open〈文件名〉For〈读写方式〉[Access〈存取类型〉][〈锁定类型〉]As[#]〈文件号〉[Len=〈记录长度〉]说明：4)锁定类型：在多用户或多进程环境中,限定其他用户或进程打开文件的操作,有如表13-3所示的几种类型。 参数 说明 Shared 与其他进程共享打开的文件。 LockRead 不允许其他进程读该文件。 LockWrite 不允许其他进程写该文件。 LockReadWrite 不允许其他进程读写该文件。13.2文件操作语句和函数13.2.2文件的打开与关闭语句1.Open语句在对文件执行任何读写操作之前,必须打开文件。Open语句用来打开或建立一个文件,分配一个缓冲区供文件进行输入/输出,并决定缓冲区的访问方式。其语法格式为：Open〈文件名〉For〈读写方式〉[Access〈存取类型〉][〈锁定类型〉]As[#]〈文件号〉[Len=〈记录长度〉]说明：5)文件号：是打开文件时指定的文件句炳。取值是1～511之间的一个整数。Open语句将打开的文件与指定的文件号联系在一起,在文件的读写操作中,以文件号代替文件名。13.2文件操作语句和函数13.2.2文件的打开与关闭语句1.Open语句在对文件执行任何读写操作之前,必须打开文件。Open语句用来打开或建立一个文件,分配一个缓冲区供文件进行输入/输出,并决定缓冲区的访问方式。其语法格式为：Open〈文件名〉For〈读写方式〉[Access〈存取类型〉][〈锁定类型〉]As[#]〈文件号〉[Len=〈记录长度〉]说明：6)记录长度：不超过32767的一个整数。对于随机文件,该值表示记录长度；对于顺序文件,该值代表缓冲字符数；对于二进制文件,Len选项被忽略。13.2文件操作语句和函数13.2.2文件的打开与关闭语句2.Close语句Close语句用来关闭Open语句所打开的输入/输出文件。其语法格式为：Close[[#]〈文件号〉][,[#]〈文件号〉]…说明：1)文件号：欲关闭文件的文件号。省略时关闭Open语句打开的所有文件。2)执行Close语句,文件与其文件号之间的关联将终结,并释放与该文件相关联的缓冲区空间。13.2文件操作语句和函数13.2.2文件的打开与关闭语句2.Close语句Close语句用来关闭Open语句所打开的输入/输出文件。其语法格式为：Close[[#]〈文件号〉][,[#]〈文件号〉]…说明：3)当关闭Output或Append打开的文件时,系统将把文件缓冲区中的数据写入文件。4)执行End语句和Reset语句也会关闭所有用Open语句打开的磁盘文件。13.2文件操作语句和函数13.2.3文件访问函数1.EOF函数EOF函数用于测试指定文件的结束状态,通常用来检查以Input方式打开的顺序文件。其语法格式为：EOF(〈文件号〉)说明：当文件中的记录指针指向文件末尾时（最后一条记录的后面）,EOF函数返回True,否则返回False。13.2文件操作语句和函数13.2.3文件访问函数2.FreeFile函数FreeFile函数返回指定范围内下一个可用的文件号。其语法格式为：FreeFile[(〈区间号〉)]说明：区间号等于0或缺省时,返回1～255之间的文件号；等于1则返回256～511之间的文件号。13.2文件操作语句和函数13.2.3文件访问函数3.Input函数Input函数返回它所读出的所有字符,包括逗号、空格符、引号以及回车符和换行符等,可用于以Input方式打开的顺序文件或以二进制文件方式打开的文件。其语法格式为：Input(〈字符个数〉,[#]〈文件号〉)说明：字符个数指定需要返回的字符个数。13.2文件操作语句和函数13.2.3文件访问函数4.Len函数Len函数返回字符串表达式中包含字符的数目,或是存储一个变量所需的字节数。其语法格式为：Len(〈字符串表达式〉)说明：对于用户定义类型,如一个记录类型变量,Len函数返回的是该变量写入文件时的大小。13.2文件操作语句和函数13.2.3文件访问函数5.Loc函数Loc函数返回一个用Open语句打开文件的上一次读写位置。其语法格式为：Loc(〈文件号〉)说明：对于随机文件,Loc返回上一次对文件进行读出或写入的记录号。对于二进制文件,Loc返回上一次读出或写入的字节位置。对于顺序文件,由于文件只能从头到尾顺序写入或读出,因此,一般不需要使用Loc函数。随机文件的记录号从1开始,文件字节的起始位置也是1。13.2文件操作语句和函数13.2.3文件访问函数6.LOF函数LOF函数返回用Open语句打开文件的大小（以字节为单位）。其语法格式为：LOF(〈文件号〉)说明：要取得一个尚未打开文件的大小,应该使用FileLen函数。13.2文件操作语句和函数13.2.3文件访问函数7.Seek函数Seek函数返回一个用Open语句打开的文件的当前读写位置。其语法格式为：Seek(〈文件号〉)说明：对于随机文件,Seek返回文件指针指向的将要读出或写入的记录号。对于二进制文件和顺序文件,Seek返回将要读出或写入的字节位置。13.3顺序文件的操作 顺序文件的打开与关闭由Open语句和Close语句来实现。打开顺序文件的基本语法格式为： Open〈文件名〉For{Input|Output|Append}As〈文件号〉[Len=buffersize] 其中参数说明参见13.2.2。下面介绍用来对顺序文件进行读写操作的语句。13.3顺序文件的操作13.3.1顺序文件的写操作要将数据写入文本文件,应以Output或Append方式打开该文件。然后使用Print#或者Write#语句将数据写入文件中。1.Print#语句Print#语句将格式化数据写入顺序文件中,其功能与多次使用的Print 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 类似,只是Print方法输出的对象是窗体、图片框或打印机,而Print#语句的输出对象是文件。其语法格式为：Print#〈文件号〉,[{Spc(n)|Tab[(n)]}][〈表达式列表〉][{,|；}]13.3顺序文件的操作13.3.1顺序文件的写操作1.Print#语句【例13-1】用Print#语句向顺序文件输出数据。选择“新建”工程,进入窗体设计器,编写窗体的Click事件代码：13.3顺序文件的操作13.3.1顺序文件的写操作2.Write#语句与Print#相同,Write#语句将输出列表指定的数据,顺序写入文件号所代表的文件中,其语法格式为：Write#〈文件号〉,[〈表达式列表〉]其中,文件号的含义同上；表达式列表中若有多个表达式,表达式之间用逗号隔开,也可用空格或分号分隔；如果省略输出列表,则输出一个空白行到文件。若要从文件中读出Write#写入的数据,通常使用Input#语句。13.3顺序文件的操作13.3.1顺序文件的写操作2.Write#语句【例13-2】用Write#语句向顺序文件输出数据。编写窗体的Click事件代码：13.3顺序文件的操作13.3.1顺序文件的写操作2.Write#语句Print#语句与Write#语句的区别：Print#语句根据指定的格式,将数据写入文件,数据项之间不会自动插入分界符,而Write#语句在数据项之间自动插入分界符。Write#语句适合输出不同类型的数据,特别是当数据写入文件后,还需用其他程序读出进行处理的情况。Print#语句适合输出文本类型或列表格式的数据,供打印或显示用。13.3顺序文件的操作13.3.1顺序文件的写操作2.Write#语句【例13-3】用Write#语句向顺序文件输出20个随机两位整数。编写窗体的Click事件代码：13.3顺序文件的操作13.3.1顺序文件的写操作2.Write#语句【例13-4】设在工程中有一个标准模块,其中定义了如下记录类型（用户自定义类型）：TypeBooksNameAsString*10TelNumAsString*20EndType13.3顺序文件的操作13.3.1顺序文件的写操作2.Write#语句【例13-4】设在工程中有一个标准模块,其中定义了如下记录类型（用户自定义类型）：TypeBooksNameAsString*10TelNumAsString*20EndType执行下列事件过程代码将在顺序文件中写入一条记录：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句Input语句从一个打开的顺序文件中读出数据,并将数据赋给指定的变量,其语法格式为：Input#〈文件号〉,〈变量列表〉通常,用Write#语句写入文件的数据,可使用Input#语句读出数据。读数据时,一般不需处理就可直接将数据指定给变量。13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-5】用Input#语句读取例13-2所建立文件中的数据,并将数据显示在窗体上。编写窗体的Click事件代码：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设数据文件datain1.txt和datain2.txt文件中各有20个整数（如例13-3中过程所写）设计程序读入文件中的各20个整数,分别放入两个数组Arr1和Arr2中,然后计算：把两个数组中对应下标的元素相加,其结果放入第三个数组中（即：第一个数组的第n个元素与第二个数组的第n个元素相加,其结果作为第三个数组的第n个元素。这里的n为1、2、...、20）,并计算第三个数组各元素之和,最后把所求得的和在窗体上显示出来,并将计算结果存入dataout.txt文件中。13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。设计步骤如下：1)设计程序界面及设置控件属性。选择“新建”工程,进入窗体设计器,在窗体中增加3个命令按钮Command1～Command3。并修改其属性见表13-4。13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。2)编写代码。首先在窗体的通用段声明数组及变量：OptionBase1DimArr1(20)AsIntegerDimArr2(20)AsIntegerDimsAsInteger13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。然后编写读取和写入数据的通用过程。读取文件datain1.txt的ReadDate1过程代码：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。然后编写读取和写入数据的通用过程。读取文件datain2.txt的ReadDate2过程代码：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。然后编写读取和写入数据的通用过程。写入文件的WriteDate过程代码：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。最后编写事件过程代码。编写命令按钮C1（读入数据）的Click事件代码：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。最后编写事件过程代码。编写命令按钮C2（计算）的Click事件代码：13.3顺序文件的操作13.3.2顺序文件的读操作1.Input#语句【例13-6】设计程序读入文件中的各20个整数,分别放入两个数组中,然后把两个数组中对应下标的元素相加,其结果放入第三个数组中,并计算第三个数组各元素之和,最后把所求结果显示在窗体并存入dataout.txt文件中。最后编写事件过程代码。编写命令按钮C3（存盘）的Click事件代码：PrivateSubC3_Click()WriteData"dataout.txt",sEndSub13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句LineInput#语句从顺序文件中读出一行,并把它赋给一个字符串变量,其语法格式为：LineInput#〈文件号〉,〈字符串变量〉其中,文件号的含义同上,字符串变量用来接受从文件中读出的一行字符。LineInput#语句通常用来读取用Print#语句写入的文件。它一次从文件中读取一行字符,直到遇到回车符为止。回车符将被忽略,不会附加到字符串上。13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-7】在当前目录中有顺序文件in7.txt,文件中有几行汉字（如图13-5所示）。在窗体上画一个文本框,名称为Text1,能显示多行；再画一个命令按钮,名称为C1,标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 为“存盘”。并编写适当的事件过程,使得在加载窗体时,把in7.txt文件的内容显示在文本框中,然后在文本的最前面手工插入一行汉字：“计算机等级考试”。最后单击“存盘”按钮,可以把文本框中修改过的内容存到文件out7.txt中（如图13-6所示）。13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-7】在窗体上画一个文本框Text1,能显示多行；一个命令按钮C1,标题为“存盘”。编写适当的事件过程,使加载窗体时,把in7.txt的内容显示在文本框中,然后在文本的最前面手工插入一行汉字：“计算机等级考试”。单击“存盘”按钮,把文本框中修改过的内容存到文件out7.txt中。1)窗体的Load事件代码可以读入文件in7.txt：13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-7】在窗体上画一个文本框Text1,能显示多行；一个命令按钮C1,标题为“存盘”。编写适当的事件过程,使加载窗体时,把in7.txt的内容显示在文本框中,然后在文本的最前面手工插入一行汉字：“计算机等级考试”。单击“存盘”按钮,把文本框中修改过的内容存到文件out7.txt中。2)命令按钮C1的Click事件代码:13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-8】一个简易文本编辑器,具有创建、编辑、保存普通文本文件的功能,如图13-7所示。13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-8】一个简易文本编辑器,具有创建、编辑、保存普通文本文件的功能,如图13-7所示。1)建立应用程序用户界面与设置对象属性。首先在窗体上添加一个文本框Text1和一个公共对话框Commondialog1,然后打开菜单编辑器,按表13-5设计菜单项。 标题（Caption） 名称（Name） 索引（Index） 说明 文件(&F) Files   主菜单项1 ….新建(&N) File 0 子菜单项11 ….打开(&O) File 1 子菜单项12 ….保存(&S) File 2 子菜单项13 ….另存(&A) File 3 子菜单项14 ….关闭(&X) File 4 子菜单项1513.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-8】一个简易文本编辑器,具有创建、编辑、保存普通文本文件的功能,如图13-7所示。1)建立应用程序用户界面与设置对象属性。设置窗体、文本框、公共对话框的属性见表13-6。 对象 属性 属性值 说明 Form1 Caption 未命名 窗体的标题 Commondialog1 Filter 所有文件(*.*)|*.*|文本文件(*.TXT)|*.txt 文件过滤器 FilterIndex 2 过滤器索引指向第2项 Text1 Text   文本框的内容 MultiLine Ture 显示多行文本 ScrollBars 2–Vertical 垂直滚动条13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-8】一个简易文本编辑器,具有创建、编辑、保存普通文本文件的功能,如图13-7所示。2)编写代码。为了使改变窗体大小的时候文本框能随之改变,编写窗体的Resize事件代码：13.3顺序文件的操作13.3.2顺序文件的读操作2.LineInput#语句【例13-8】一个简易文本编辑器,具有创建、编辑、保存普通文本文件的功能,如图13-7所示。2)编写代码。然后编写菜单控键数组File()的Click事件代码：13.4随机文件的操作 随机文件中的一行数据称为一 笔记 哲学笔记pdf明清笔记pdf政法笔记下载课堂笔记下载生物化学笔记PDF 录。随机文件对文件的读写顺序没有限制,可以随意读写某一条记录。这就要求记录的长度是固定的,以便由记录号来定位。随机文件的读写速度较快,但其占用空间较大。 随机文件的打开与关闭仍由Open语句和Close语句来实现。打开随机文件的基本语法格式为： Open〈文件名〉[ForRandom]As〈文件号〉Len=〈记录长度〉 其中参数说明参见13.2.2。下面介绍用来对随机文件进行读写操作的语句。13.4随机文件的操作13.4.1随机文件的读写操作1.Get#语句把记录读入变量使用Get#语句,其语法格式为：Get#〈文件号〉,〈记录号〉,〈变量名〉其中,〈文件号〉是打开文件时指定的文件句炳,〈记录号〉是要读入的记录号数；而〈变量名〉则是接收记录内容的记录型变量名,一般声明为用户定义类型。13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句使用Put#语句可以把数据写入或替换随机文件中的记录,其语法格式为：Put#〈文件号〉,〈记录号〉,〈变量名〉其中,〈文件号〉是打开文件时指定的文件句炳,〈记录号〉是要写入或替换的记录位置,〈变量名〉是接收记录的内容的记录型变量名。13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句【例13-9】利用随机文件保存学生的成绩,可以浏览或编辑（读取、修改、写入）学生的学号、姓名以及三门功课的成绩,如图13-8所示。 1)建立应用程序用户界面与设置对象属性。13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句【例13-9】利用随机文件保存学生的成绩,可以浏览或编辑学生的学号、姓名以及三门功课的成绩。2)编写代码。首先在窗体的通用段创建用户定义类型（记录类型）并声明变量：13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句【例13-9】利用随机文件保存学生的成绩,可以浏览或编辑学生的学号、姓名以及三门功课的成绩。2)编写代码。编写“读取”按钮的Click事件代码：13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句【例13-9】利用随机文件保存学生的成绩,可以浏览或编辑学生的学号、姓名以及三门功课的成绩。2)编写代码。编写“保存”按钮的Click事件代码：13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句【例13-9】利用随机文件保存学生的成绩,可以浏览或编辑学生的学号、姓名以及三门功课的成绩。2)编写代码。编写“关闭”按钮的Click事件代码：PrivateSubCommand3_Click()Close#1UnloadMeEndSub13.4随机文件的操作13.4.1随机文件的读写操作2.Put#语句【例13-9】利用随机文件保存学生的成绩,可以浏览或编辑学生的学号、姓名以及三门功课的成绩。2)编写代码。编写列表框的Click事件代码：13.4随机文件的操作13.4.2随机文件中记录的增加与删除1.增加记录【例13-10】在例13-9中增加一个添加新记录的功能,如图13-9所示。只需在例13-9中增加一个命令按钮Command4,并编写其Click事件代码：13.4随机文件的操作13.4.2随机文件中记录的增加与删除2.删除记录通过清除其字段删除的记录,仍在文件中存在。通常文件中不能有空记录,因为浪费空间且会干扰顺序操作。最好把余下的记录拷贝到一个新文件,然后删除老文件。要清除随机访问文件中删除的记录,请按照以下步骤执行：1)创建一个新文件。2)把有用的所有记录从原文件复制到新文件。3)关闭原文件并用Kill语句删除它（语法参见13.6.2）。4)使用Name语句把新文件以原文件的名字重新命名（语法参见13.6.2）。13.4随机文件的操作13.4.2随机文件中记录的增加与删除2.删除记录【例13-11】在例13-10中增加一个删除记录的功能,如图13-10所示。只需在例13-10中增加一个命令按钮Command5,并编写其Click事件代码：13.5文件系统控件13.5.1驱动器列表框1.驱动器列表框的属性驱动器列表框最主要的属性是其Drive属性,该属性用于设置或返回要操作的驱动器。该属性只能在运行时由程序代码设置或访问,设计阶段无效。例如,若驱动器列表框的对象名为Drive1,要获得当前驱动器号,可使用如下代码：Drivename=Drive1.Drive若要设置当前驱动器为D盘,则可使用如下代码：Drive1.Drive="d:"13.5文件系统控件13.5.1驱动器列表框1.驱动器列表框的属性另外,使用ChDrive语句也可以将指定的驱动器设为当前驱动器。如：ChDriveDrive1.Drive'将用户在列表框中选择的驱动器设为当前驱动器ChDrive"D"'将D:设为当前驱动器驱动器列表框常与目录列表框和文件列表框配合使用,以完成对相关文件的控制。13.5文件系统控件13.5.1驱动器列表框2.驱动器列表框的事件驱动器列表框的常用事件主要是Change事件。该事件在驱动器列表框的Drive属性值发生改变时产生。通常在该事件过程中编程,以完成相关的操作。13.5文件系统控件13.5.2目录列表框1.目录列表框的属性目录列表框最主要的属性是其Path属性,用于设置或返回要显示目录结构的驱动器路径或目录路径。该属性仅在运行时有效,设计时无效。例如,若目录列表框的对象名为Dir1,要获得当前工作目录,可使用如下代码：：Dir1.Path=Drive1.Drive若要设置当前目录为c:\windows,则可使用如下代码：Dir1.Path="c:\windows"使用ChDir语句也可以改变当前的目录或文件夹。如：ChDirDir1.Path'将用户在目录列表框中选取的目录设为当前目录13.5文件系统控件13.5.2目录列表框2.目录列表框的事件目录列表框能响应一些常用的事件,在实际编程中,最常用的是Change事件。该事件在目录列表框的Path属性发生改变时产生。目录列表框常与驱动器列表框配合使用,以便在驱动器改变时,目录列表框的显示也能跟着改变。实现的方法通常是在驱动器的Change事件中为目录列表框的Path属性赋值。13.5文件系统控件13.5.3文件列表框1.文件列表框的属性文件列表框可视为标准列表框的一个衍生或具体化,因此,除了自身特有的属性外,它也继承了标准列表框的一些重要属性。其主要属性见表13-7。 属性 说明 FileName 返回或设置所选文件的路径和文件名，设计时不可用。 Multiselect 是否允许用户选择多个文件。True—允许，False—不允许。 Path 设置或返回要显示文件列表框的文件路径。 Pattern 设定允许显示文件名的文件类型.如“*.exe;*.com”,缺省值*.* Archive 是否可以显示Archive属性的文件。 Hidden 是否可以显示Hidden属性的文件。 Normal 是否可以显示Normal属性的文件。 ReadOnly 是否可以显示ReadOnly属性的文件 System 是否可以显示System属性的文件。13.5文件系统控件13.5.3文件列表框2.文件列表框的事件文件列表框常用的事件主要有PathChange、PatternChange、DblClick、Click、GotFocus、LostFoucs。13.5文件系统控件13.5.4文件系统控件共有的属性以下3个属性是文件系统控件共有的：ListCount属性：该属性用于返回列表框中列表项总数,仅在运行时有效。ListIndex属性：该属性用于设置或返回列表框中所选定列表项的索引值。该属性与在标准列表框中的功能和用法相同。仅在运行时有效。List属性：该属性为数组性质的属性,用于设置或返回文件列表框中指定列表项的内容。与在标准列表框中的功能和用法相同。仅在运行时有效。13.5文件系统控件13.5.5文件系统对象的同步操作直接绘制在窗体中的驱动器列表框、目录列表框和文件列表框,彼此之间并无任何联系,为了使它们能同步操作,就需要通过编程控制,将它们彼此关联起来。一般,可以在驱动器列表框Drive1的Change事件和目录列表框Dir1的Change事件中分别执行语句：Dir1.Path=Drive1.Drive和File1.Path=Dir1.Path。13.5文件系统控件13.5.5文件系统对象的同步操作【例13-12】使用文件系统控件制作的简易的文本浏览器,如图13-11所示。 1)建立应用程序用户界面与设置对象属性。 对象 属性 属性值 说明 File1 Pattern *.txt 允许显示的文件类型13.5文件系统控件13.5.5文件系统对象的同步操作【例13-12】使用文件系统控件制作的简易的文本浏览器,如图13-11所示。2)编写代码。编写驱动器列表框Drive1的Change事件代码：PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub编写目录列表框Dir1的Change事件代码：PrivateSubDir1_Change()File1.Path=Dir1.PathEndSub13.5文件系统控件13.5.5文件系统对象的同步操作【例13-12】使用文件系统控件制作的简易的文本浏览器,如图13-11所示。2)编写代码。编写文件表框File1的Click事件代码：13.6文件基本操作 文件的基本操作是指对文件的删除、拷贝、移动、更名等。VB不仅提供了对文件操作的相应命令,还提供了对目录（文件夹）操作的相应命令。13.6文件基本操作13.6.1目录的基本操作1.MkDir语句使用MkDir语句可以创建一个新的目录或文件夹。其语法格式为：MkDir〈路径名〉其中,〈路径名〉是用来指定所要创建的目录或文件夹的字符串表达式,可以包含驱动器。如果没有指定驱动器,则MkDir会在当前驱动器上创建新的目录或文件夹。13.6文件基本操作13.6.1目录的基本操作2.ChDir语句使用ChDir语句可以改变当前的目录或文件夹。其语法格式为：ChDir〈路径名〉其中,〈路径名〉是一个字符串表达式,它指明哪个目录或文件夹将成为新的缺省目录或文件夹。〈路径名〉可以包含驱动器,如果没有指定驱动器,则ChDir在当前的驱动器上改变缺省目录或文件夹。13.6文件基本操作13.6.1目录的基本操作3.RmDir语句使用RmDir语句可以删除一个存在的目录或文件夹。其语法格式为：RmDir〈路径名〉其中,〈路径名〉是一个字符串表达式,用来指定要删除的目录或文件夹。〈路径名〉可以包含驱动器。如果没有指定驱动器,则RmDir会在当前驱动器上删除目录或文件夹。13.6文件基本操作13.6.1目录的基本操作4.CurDir函数CurDir函数返回一个表示当前路径的字符串。其语法格式为：CurDir[(〈驱动器名〉)]其中,可选的〈驱动器名〉参数是一个字符串表达式,它指定一个存在的驱动器。如果没有指定驱动器,或〈驱动器名〉是零长度字符串(""),则CurDir会返回当前驱动器的路径。13.6文件基本操作13.6.1目录的基本操作5.ChDrive语句使用ChDrive语句可以改变当前的驱动器。其语法格式为：ChDrive〈驱动器名〉其中,〈驱动器名〉是一个字符串表达式,它指定一个存在的驱动器。如果使用零长度的字符串(""),则当前的驱动器将不会改变。如果〈驱动器名〉参数中有多个字符,则ChDrive只会使用首字母。13.6文件基本操作13.6.2文件的基本操作1.Kill语句使用Kill语句可以从磁盘中删除文件。其语法格式为：Kill〈文件名〉其中〈文件名〉是用来指定一个文件名的字符串表达式,可以包含目录或文件夹、以及驱动器。说明：Kill支持多字符(*)和单字符(?)的统配符来指定多重文件。13.6文件基本操作13.6.2文件的基本操作2.Name语句使用Name语句可以重新命名一个文件、目录、或文件夹。其语法格式为：Name〈旧文件名〉As〈新文件名〉其中,〈旧文件名〉为字符串表达式,指定已存在的文件名和位置,可以包含目录或文件夹、以及驱动器。〈新文件名〉也是字符串表达式,指定新的文件名和位置,可以包含目录或文件夹、以及驱动器。由〈新文件名〉所指定的文件名不能存在。13.6文件基本操作13.6.2文件的基本操作3.FileCopy语句FileCopy语句用来复制一个文件。其语法格式为：FileCopy〈源文件〉,〈目标文件〉其中,〈源文件〉是字符串表达式,用来表示要被复制的文件名。可以包含目录或文件夹、以及驱动器。〈目标文件〉也是字符串表达式,用来指定要复制的目标文件名,可以包含目录或文件夹、以及驱动器。说明：如果想要对一个已打开的文件使用FileCopy语句,则会产生错误。*