教学材料《ＶＢ导论》-第7章

７.１文件处理文件是存储数据的一种方式。将需要保存的数据写入文件便可以将之存储在磁盘，重复使用。７.１.１文件概述文件是一组相关信息的集合，是存放在磁盘上的一系列相关的字节。文件按名存取。１.记录记录由若干个相互关联的数据项组成。例如，一条学生的学习成绩记录，由学号、姓名、各科成绩、总分等数据项组成。下一页返回７.１文件处理２.文件及其种类ＶｉｓｕａｌＢａｓｉｃ中的一个文件由若干条记录组成，而一条记录由若干个字段组成，字段由字符组成。根据不同的分类标准，文件可分为不同的类型，如表７－１所示。为了有效地存取数据，应根据数据存放在文件中的方式，使用适当的文件访问类型。在ＶｉｓｕａｌＢａｓｉｃ中有三种文件访问的类型：顺序访问、随机访问、二进制访问。（１）顺序访问从文件头开始，依次访问其中的数据，适用于文本文件。（２）随机访问适用于以记录形式保存的二进制文件，可以存取任意指定位置的记录。上一页下一页返回７.１文件处理（３）二进制访问适用于任意二进制文件，以字节为单位存取数据。３.文件操作的一般步骤要读取文件中的数据，首先将文件“打开”，即将相关信息加载进内存，建立文件与内存中某个文件缓冲区的关联；然后对文件执行“存／取”操作，也就是写入或读取数据；最后“关闭”文件，即释放文件所占用的文件缓冲区。７.１.２访问文件的语句和函数ＶｉｓｕａｌＢａｓｉｃ提供了多个用于访问文件的语句和函数。其中的大部分语句和函数适用于３种文件访问类型。本节介绍常用的文件访问语句和函数。上一页下一页返回７.１文件处理１.打开文件———Ｏｐｅｎ语句对文件进行操作之前，必须用Ｏｐｅｎ语句打开或建立一个文件。Ｏｐｅｎ语句的功能是为文件的输入／输出分配缓冲区，指定文件的存取类型（模式）和存取方式，定义与文件相关联的文件号。Ｏｐｅｎ语句的语法格式如下：Ｏｐｅｎ文件名［ＦＯＲ模式］［Ａｃｃｅｓｓ存取类型］［锁定］ＡＳ［＃］文件号［Ｌｅｎ＝记录长度］格式中的Ｏｐｅｎ、ＦＯＲ、Ａｃｃｅｓｓ、ＡＳ、Ｌｅｎ为关键字，其中：（１）文件名可用字符串或字符型变量表示，可以包括盘符和路径。（２）模式（ｍｏｄｅ）说明访问文件的方式，可以取下列值：上一页下一页返回７.１文件处理①ＯｕｔＰｕｔ———设定为顺序输出模式。２４１②ＩｎＰｕｔ———设定为顺序输入模式。③Ａｐｐｅｎｄ———设定为添加模式，与ＯｕｔＰｕｔ方式不同，以Ａｐｐｅｎｄ方式打开顺序文件时，文件指针定位在文件末尾，写入的数据添加到原来文件的后面。④Ｒａｎｄｏｍ———设定为随机访问模式。⑤Ｂｉｎａｒｙ———设定为二进制访问模式。如果缺省ＦＯＲ子句，将以随机访问模式打开文件。上一页下一页返回７.１文件处理（３）存取类型（Ａｃｃｅｓｓ）：用来指定访问文件的类型，可以是：①Ｒｅａｄ———对打开的文件只能进行读操作。②Ｗｒｉｔｅ———对打开的文件只能进行写操作。③ＲｅａｄＷｒｉｔｅ———对打开的文件可读可写。（４）文件号（Ｆｉｌｅｎｏ）。其取值范围为１～５１１。执行Ｏｐｅｎ语句时，文件与分配给定的文件号相关联。上一页下一页返回７.１文件处理（５）记录长度（Ｒｅｃｌｅｎｇｔｈ）。其是一个整型表达式，其值≤３２７６７。对顺序文件，用该参数设定缓冲区的大小。不指定时，缓冲区的缺省值为５１２个字节。注意：（１）如果以Ｏｕｔｐｕｔ、Ａｐｐｅｎｄ、Ｒａｎｄｏｍ和Ｂｉｎａｒｙ模式打开一个不存在的文件，ＶｉｓｕａｌＢａｓｉｃ会创建一个相应的文件。（２）在Ｉｎｐｕｔ、Ｒａｎｄｏｍ和Ｂｉｎａｒｙ模式下，可用不同的文件号打开同一个文件，但以Ｏｕｔｐｕｔ和Ａｐｐｅｎｄ模式打开的文件在关闭之前不能用不同的文件号重复地打开它。上一页下一页返回７.１文件处理（３）所有当前使用的文件号必须是唯一的，即当前使用的文件号不能再分配给其他文件。（４）如果以Ｏｕｔｐｕｔ模式打开一个已存在的顺序文件，则该文件中原来数据将被覆盖，例如下列打开文件的语句：①Ｏｐｅｎ＂Ｅｘａｍ＂ＦＯＲＯｕｔｐｕｔＡＳ＃５如果文件“Ｅｘａｍ”不存在，则建立一个新文件，可以将数据写入到文件中去。如果文件“Ｅｘａｍ”已存在，则该语句打开已存在的文件，新写入的数据将覆盖原来的数据。②Ｏｐｅｎ＂Ｅｘａｍ＂ＦＯＲＡｐｐｅｎｄＡＳ＃５如果文件“Ｅｘａｍ”不存在，则建立一个新文件，否则打开已存在的、名为“Ｅｘａｍ”的文件，新写入的数据添加到文件的后面，原来的数据仍然存在。上一页下一页返回７.１文件处理③Ｏｐｅｎ＂Ｅｘａｍ＂ＦＯＲＩｎｐｕｔＡＳ＃５打开已存在的、名为“Ｅｘａｍ”的文件，可从中读出数据。如果文件“Ｅｘａｍ”不存在，将产生“ＦｉｌｅＮｏｔＦｏｕｎｄ”错误。２.关闭文件———Ｃｌｏｓｅ语句文件读写操作完成后，应及时使用Ｃｌｏｓｅ语句，关闭相应的文件。（１）语句格式：Ｃｌｏｓｅ［［＃］＜文件号＞］。（２）语句功能：关闭指定的文件号对应的文件，释放相应缓冲区和与该文件相联系的文件号。上一页下一页返回７.１文件处理说明：（１）该语句适用于任何文件。（２）语句中可以包含多个文件号，文件号之间用逗号分隔。（３）若语句中缺省文件号参数，则关闭所有用Ｏｐｅｎ语句打开的文件。（４）当应用程序结束时，会自动关闭所有文件。比如，Ｃｌｏｓｅ＃１，＃２，关闭文件号位１和２的文件。３.关闭所有文件———Ｒｅｓｅｔ语句（１）格式：Ｒｅｓｅｔ。上一页下一页返回７.１文件处理（２）功能：关闭所有用Ｏｐｅｎ语句打开的文件。（３）说明：该语句适用于任何文件。４.锁定和解锁语句———Ｌｏｃｋ和Ｕｎｌｏｃｋ语句（１）Ｌｏｃｋ语句：①格式：Ｌｏｃｋ＜［＃］文件号＞。②功能：锁定指定文件号所对应的文件，不允许其他用户对该文件进行读／写操作。（２）Ｕｎｌｏｃｋ语句：①格式：Ｕｎｌｏｃｋ＜［＃］文件号＞。②功能：解除锁定的文件。上一页下一页返回７.１文件处理５.文件操作函数和语句（１）ＥＯＦ（文件号）：当文件指针到达文件结束标志时返回Ｔｒｕｅ，否则返回Ｆａｌｓｅ。（２）ＦｒｅｅＦｉｌｅ［（文件号范围）］：返回Ｏｐｅｎ语句可以使用的下一个有效文件号。（３）ＬＯＦ（文件号）：返回已用Ｏｐｅｎ语句打开的文件的字节数（文件长度）。上一页返回７.２顺序文件以顺序方式存取的文件称为顺序文件，其一般是文本文件。顺序文件有下列特点：每行数据长度可以不同；增加数据时，只能添加到原有数据的最后；查找数据时，必须从头开始顺序查找。７.２.１顺序文件的写操作１.打开文件（１）格式：Ｏｐｅｎ＜文件名＞Ｆｏｒ＜Ｏｕｔｐｕｔ／Ａｐｐｅｎｄ＞Ａｓ［＃］＜文件号＞。（２）功能：用指定的文件号以顺序输出模式或添加模式打开文件。（３）说明：①文件名可以是字符串，包含路径；下一页返回７.２顺序文件②若指定的文件不存在，系统将创建一个相应的文件；③以Ｏｕｔｐｕｔ方式打开文件时，文件中原有的数据将被覆盖；④以Ａｐｐｅｎｄ方式打开文件时，写入的数据将添加到原文件的尾部；⑤文件号的使用必须是唯一的，即当前已经占用的文件号不能再分配给其他文件使用，文件号的使用范围是１～５１１；⑥一个文件在用Ｏｕｔｐｕｔ和Ａｐｐｅｎｄ方式打开后，不能再被重复打开。上一页下一页返回７.２顺序文件下面是打开文件的一些例子。Ｏｐｅｎ＂Ｄ：＼ｈｂ＼Ｔｅｓｔ.ｔｘｔ＂ＦｏｒＯｕｔｐｕｔＡｓ＃１该命令打开Ｄ盘下ｈｂ文件夹中的Ｔｅｓｔ.ｔｘｔ文件，文件号为１。再比如，下列代码打开了Ｄ盘下ｈｂ文件夹中的Ｔｅｓｔ.ｔｘｔ文件，文件号为１００：ＤｉｍｓＦｉｌｅＮａｍｅＡｓＳｔｒｉｎｇｓＦｉｌｅＮａｍｅ＝＂Ｄ：＼ｈｂ＼Ｔｅｓｔ.ｔｘｔ＂ＯｐｅｎｓＦｉｌｅＮａｍｅＦｏｒＡｐｐｅｎｄＡｓ＃１００上一页下一页返回７.２顺序文件但是，以下两句是错的：Ｏｐｅｎ＂Ｆｉｌｅ１＂ＦｏｒＯｕｔＰｕｔＡｓ＃９Ｏｐｅｎ＂Ｆｉｌｅ２＂ＦｏｒＯｕｔｐｕｔＡｓ＃９因为不能以相同的文件号打开两个不同的文件。下列两句也是错的：Ｏｐｅｎ＂Ｆｉｌｅ１＂ＦｏｒＡｐｐｅｎｄＡｓ＃１０Ｏｐｅｎ＂Ｆｉｌｅ１＂ＦｏｒＡｐｐｅｎｄＡｓ＃１１因为不能在文件未关闭前又将其重复打开。上一页下一页返回７.２顺序文件２.Ｐｒｉｎｔ语句（１）格式：Ｐｒｉｎｔ＜＃文件号＞，［＜输出列表＞］。（２）功能：将输出列表中的语句写到顺序文件中。（３）说明：该语句和普通的Ｐｒｉｎｔ语句的输出控制格式完全相同，也分紧凑和标准两种。３.Ｗｒｉｔｅ语句（１）格式：Ｗｒｉｔｅ＜＃文件号＞，［＜输出列表＞］。（２）功能：将输出列表中的语句写到顺序文件中。（３）说明：Ｗｒｉｔｅ语句和Ｐｒｉｎｔ语句的功能基本相同，它们之间的差别主要为：上一页下一页返回７.２顺序文件①Ｗｒｉｔｅ语句写入的数据按照紧凑格式存放，各数据项之间自动插入逗号作为分隔符；②Ｗｒｉｔｅ语句写入的字符串数据自动加上双引号作为限界符。７.２.２顺序文件的读操作当一个文件存在时，可以对它进行读操作。读操作分为两种，一种是一个数据一个数据地读，另一种是一行数据一行数据地读。１.打开文件（１）格式：Ｏｐｅｎ＜文件名＞ＦｏｒＩｎｐｕｔＡｓ＜＃文件号＞。（２）功能：用指定的文件号以顺序输入模式打开文件。上一页下一页返回７.２顺序文件（３）说明：以Ｉｎｐｕｔ方式打开的文件，只能进行读操作。２.Ｉｎｐｕｔ语句（１）格式：Ｉｎｐｕｔ＜＃文件号＞［，变量表］。（２）功能：从一个打开的顺序文件中读取数据，并将其赋值给相应的变量。（３）说明：①变量表可以包含简单变量和数组元素，变量之间用逗号间隔，变量类型必须与文件中的数据项的类型一致。②从顺序文件中读数据时，要从头开始，依次读出，若数据类型和变量类型不一致，则赋一个初值给对应的变量。上一页下一页返回７.２顺序文件③从顺序文件读数据时，忽略前导空格、回车符、换行符。④读取数值型数据时，以其后的第一个空格，或逗号，或回车换行符作为结束。⑤读取字符型数据时，以第一个不在双引号里的逗号，或回车换行符作为结束。⑥逻辑型和日期型数据以＃号作为起始符和结束符，要求大写。例如，已知Ｔｅｓｔ.ｔｘｔ中的数据：３４４５７８７８９，则执行下列代码后：ＤｉｍＡＡｓＩｎｔｅｇｅｒ，ＢＡＳＩｎｔｅｇｅｒ，ＣＡｓＩｎｔｅｇｅｒ上一页下一页返回７.２顺序文件ＤｉｍＳｔＡｓＳｔｒｉｎｇＩｎｐｕｔ＃２，Ａ，Ｂ，Ｃ，Ｓｔ结果为：Ａ＝３４，Ｂ＝４５，Ｃ＝７８，Ｓｔ＝“７８９”。思考：若已知文件ｔｅｓｔ.ｄａｔ中的数据如下：ＴｈｉｓｉｓＦｉｌｅＴｅｓｔ.ｄａｔ，－２３６５，４８９３，＃Ｔｒｕｅ＃要求按下面的格式将其输出在窗体上：ＴｈｉｓｉｓＦｉｌｅｔｅｓｔ.ｄａｔ－２３６５４８９３Ｔｒｕｅ上一页下一页返回７.２顺序文件３.ＬｉｎｅＩｎｐｕｔ语句（１）格式：ＬｉｎｅＩｎｐｕｔ＜＃文件号＞，＜变量名＞。（２）功能：将顺序文件以行为单位读出并赋值给一个变量。（３）说明：①变量为字符型变量，或字符型数组元素，或变体型变量。②将数据行中除回车符和换行符以外的所有字符都赋值给相应的变量。例如，设计程序，将Ｃ盘根目录下的ｃｏｎｆｉｇ.ｓｙｓ文件的内容显示在文本框中。上一页下一页返回７.２顺序文件分析：本例要用到打开文件、Ｄｏ循环、ＥＯＦ函数等，具体参考代码如下：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｃｌｉｃｋ（）ＤｉｍＬｉｎｅＡｓＳｔｒｉｎｇ，ｆｉｌｅｎｕｍｂｅｒＡｓＩｎｔｅｇｅｒ，ｓｔｒＡｓＳｔｒｉｎｇｆｉｌｅｎｕｍｂｅｒ＝ｆｒｅｅｆｉｌｅＯｐｅｎ“ｃ：＼ｃｏｎｆｉｇ.ｓｙｓ”ＦｏｒＩｎｐｕｔＡｓ＃ｆｉｌｅｎｕｍｂｅｒＤｏＷｈｉｌｅＮｏｔＥＯＦ（ｆｉｌｅｎｕｍｂｅｒ）ＬｉｎｅＩｎｐｕｔ＃１，Ｌｉｎｅ

上一页下一页返回７.２顺序文件ｓｔｒ＝ｓｔｒ＋Ｌｉｎｅ＋Ｃｈｒ（１３）＋Ｃｈｒ（１０）ＬｏｏｐＣｌｏｓｅ＃ｆｉｌｅｎｕｍｂｅｒＴｅｘｔ１.Ｔｅｘｔ＝ｓｔｒＥｎｄＳｕｂ顺序文件的特点是：（１）数据只能从头依次读出；（２）写文件时数据要么覆盖原来的文件，要么添加在文件的最后。上一页下一页返回７.２顺序文件这两个特点给顺序文件的修改与删除带来了困难。顺序文件的应用体现在两方面：（１）从文件中读取原始数据并提供给程序处理。（２）将程序处理结果存放到文件中。上一页返回７.３随机文件的处理以随机方式存取的文件称为随机文件，也称为记录文件，它由一组长度相等的记录组成，一般用于数据库文件。随机文件具有以下特点：（１）记录定长。（２）若记录为单字段，则可对应于任何一个ＶｉｓｕａｌＢａｓｉｃ的标准类型；若记录为多字段，则必须由用户进行自定义。（３）可根据记录号随机访问任何一个记录。７.３.１随机文件的打开（１）格式：Ｏｐｅｎ＜文件名＞［ＦｏｒＲａｎｄｏｍ］Ａｓ［＃］＜文件号＞Ｌｅｎ＝＜记录长度＞。下一页返回７.３随机文件的处理（２）功能：打开一个随机文件。（３）说明：①Ｒａｎｄｏｍ为文件的缺省访问模式，可省略。②Ｌｅｎ为指定的记录长度，不能比实际写入的数据短，否则会出错。７.３.２变量声明在处理随机文件之前