1、第第7 7章章 数据文件数据文件 Visual Basic 6.0中进行数据存储是通过文件系统进行的。文件系统在应用程序的设计中是数据输入和输出的一种重要方式。在应用程序中，对于需要输入的数据，可以通过文件的形式提供给数据处理模块进行处理；处理后的数据也可以通过文件系统进行存储。本章主要介绍文件系统的概念、结构和类型、不同文件类型的读写操作、常用文件操作的函数和语句，以及如何更好地使用文件系统对象。7.1 7.1 文件的基本概念文件的基本概念文件结构文件结构 为了有效地存取数据，数据必须以某种特定的方式存放，这种特定的方式称为文件结构。在Visual Basic中，文件由记录组成，记录由字段组
2、成，字段由字符组成。1）字符2）字段3）记录4）文件文件类型文件类型 在Visual Basic 6.0中提供了三种基本的数据访问方式，顺序访问、随机访问和二进制访问。根据这三种访问方式将文件分为顺序文件、随机文件和二进制文件三种。下面分别对这三种文件类型予以介绍。（1）顺序文件是为普通的文本文件的使用设计的。（2）随机文件由相同格式的记录组成。（3）二进制文件适用于读写任意有结构的文件。7.2 7.2 顺序文件顺序文件【相关知识】【相关知识】1.文件操作语句及函数 Visual Basic的文件操作语句很多，此处列出几个常用的供用户参考。（1）Open语句Open语句是打开文件的语句。其基本
3、语法如下：Open 文件名路径 For 打开方式 As#文件代码Clone语句 使用Close语句可关闭使用Output模式访问的文件。其语法格式为：Close#文件代码FileCopy语句 FileCopy语句用于复制一个文件。其语法格式为：FileCopy源文件名 目标文件名Kill语句 Kill语句的功能为删除文件。其语法格式为：Kill 文件名Name语句 Name语句用于重新命名一个文件或目录。其语法格式为；Name 文件名 新文件名顺序访问顺序访问 文件的顺序访问，即依照文件次序由文件的开头读取到末尾，或由文件开头写入到文件末尾。要读取到文件后端的数据，必须要经过前面的部分，不能直
4、接跳转到指定的定点。一般来说，最常用的进行顺序访问的文件类型是文本文件。属于顺序访问的打开文件模式有如下3种:（1）写文件：Open文件名路径For Output As#文件代码。（2）附加写入：Open文件名路径For Append As#文件代码。（3）读文件：Open文件名路径For Input As#文件代码。其中，采用Output写文件有两种语句可实现，如下：Print#文件代码,输出行Write#文件代码,输出行 Print的使用与前面介绍的方法类似，只需加上指定的文件代码即可。使用Write所做的输出，在每项以逗号或分号隔开的数据中间会自动加上逗号。字符串数据则会在其前后加上双引
5、号“”，日期数据则会加上“#”号。此外，布尔型数据True和False的前后也将加上“#”号。Input读取顺序文件的语句有3种：（1）Line Input#文件代码，字符串变量。（2）Input函数。（3）Input文件代码，变量行。其中，Line Input语句一次将会读取指定文件的一行数据到一个字符串变量中。该语句通常与EOF函数（判断是否到文件末尾）及循环语句一起使用，以读取整个文件的内容：Do Until EOF(FileNo)Line Input#FileNo,APrint ALoopInput函数是读取固定长度的字符串。其调用格式为：Input(长度,#文件长度)该函数的返回值是
6、一个字符串类型的数据，长度等于所指定的长度参数。而Input#语句将会把指定文件中的数据一一放到对应的变量行中，数据以“空格”或“逗号”作为分隔符。实践训练实践训练【实训项目】1.实训内容用Print和Write两种方法，将”张三”,”男”,22,”5/4/1999”内容，顺序写入文件“Test.txt”中。2.解决方案程序名：F:VBprac7_2_1.frmF:VBPrac7_2_1.vbpFileNo=FreeFileOpen App.Path&“Test.txt”For Output As#FileNoPrint#FileNP,”张三”,”男”,22,”5/4/1999”Write#F
7、ileNP,”张三”,”男”,22,”5/4/1999”Close项目分析项目分析 可以看出，这两种语句的输出是不一样的。上述通过Output打开文件有一个问题，即当指定的文件名已经存在，原本的文件内容会完全消失。如果需要将新写入的数据接续在原来的文件之后，则可以使用Append模式打开文件。即使原文件不存在，系统也会在指定处新建一个文件。7.3 7.3 随机文件随机文件 随机访问（Random Access）可以从文件的定点读取文件，其打开随机文件的方式为：Open文件名路径For Random As#文件代码len=长度一般来说，采用随机文件存储数据的情况分为如下3类：（1）需要存储多组格
8、式相同的数据。（2）数据不需一次读写完毕时。（3）需要可以同时读写数据时，内容变动频繁的数据文件。随机文件的读写语句如下；写入：Put#文件代码,数据编号,输出数据读取：Get#文件代码,数据编号,变量名称例如，下列程序建立一个大小为200字节的文件。file=FreeFileDim i As IntegerOpen App.Path&“test.txt”For Random As#file Len=Len(i)For i=0 To 99Put#file,iNextGet#file,70,iPrint iClose上述程序中，由于一个Integer字符所占字节为2个字节，因此，i的值为099。
9、7.4 7.4 二进制文件二进制文件 二进制打开文件的语法为；Open文件名路径For Binary As#文件代码 与随机文件类似，二进制访问文件也采用Put和Get读写，但是其不满指定长度，因为二进制的读写更为自由。在二进制文件的读取中，Input函数用于读取固定长度的数据，而Seek语句用来指定目前文件指针的位置。Seek语句的语法为：Seek#文件代码,位置 例如：Seak#file,10 Gat#file,l 相当于：Get#file,10,i7.5 7.5 综合实训综合实训【综合实训】1.实训内容 现有一文件Test.txt，文件中有10个整数，如图7-1所示。编程将这10个整数读
10、入，按照升序排列，并显示排列好的数据。图7-1 Test.txt文件2.解决方案程序名：F:VBprac7_5_1.frmF:VBPrac7_5_1.vbpOption ExplicitDim A(1 To 10)As Integer定义数组Private Sub cmdRead_Click()Dim n Dim str As String Dim i As Integer i=1 Open App.Path&Test.txt For Input As#1 Do While Not EOF(1)Input#1,n str=str&n&,A(i)=n i=i+1 Loop txtOld.Text
11、=str Close#1End SubPrivate Sub cmdOrd_Click()Dim i As Integer Dim j As Integer Dim temp As Integer Dim str As String For i=1 To 9 For j=1 To 10-i If A(j)A(j+1)Then temp=A(j)A(j)=A(j+1)A(j+1)=temp End If Next j Next i For i=1 To 10 str=str&A(i)&,Next i txtNew.Text=strEnd Sub 运行结果：按下F5运行程序。单击“读入程序”按钮，将文件中的数据读入。单击“数据排序”按钮对数据按照升序进行排序，结果如图7-2所示。项目分析当点击“读入数据”按钮，sub过程cmdRead_Click()，从文件读入数据；当点击“数据排序”按钮，cmdOrd_Click()，把数据排序并显示。图7-2 运行结果Thank You
