第12章 数据.ppt

《第12章 数据.ppt》由会员分享，可在线阅读，更多相关《第12章 数据.ppt（76页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第1212章章 数数 据据 文文 件件第第1212章章 数数 据据 文文 件件 大大多多数数的的应应用用程程序序都都需需要要读读写写磁磁盘盘文文件件。本本章章介介绍绍如如何何建建立立文文件件、读读取取文文件件、写写文文件件以以及及文文件件夹夹中中文文件件的的删删除除、复制、更名等各种操作。复制、更名等各种操作。v12.1 文件的结构与分类文件的结构与分类 文文件件是是指指记记录录在在外外部部介介质质上上的的信信息息的的集集合合，文文件件的的结结构构是是指指如如何何合合理理地地组组织织数数据据而而形形成成文文件件，当当然然这这与与文文件件的的类类型有关。型有关。12.1.1 12.1.1 文件

2、的分类文件的分类 根据不同的分类标准，根据不同的分类标准，VB文件可以分为不同的类型。文件可以分为不同的类型。1.按文件性质分类按文件性质分类 根据文件的性质，可分为程序文件和数据文件两大类。根据文件的性质，可分为程序文件和数据文件两大类。1)程程序序文文件件：这这种种文文件件存存放放的的是是可可供供计计算算机机执执行行的的程程序序，包括源程序文件和可执行程序文件。包括源程序文件和可执行程序文件。2)数数据据文文件件：用用来来存存放放运运行行程程序序所所需需的的数数据据，或或用用来来存存储程序的运行结果。储程序的运行结果。2.按存取方式和结构分类按存取方式和结构分类 根根据据文文件件中中数数据

3、据存存取取方方式式的的不不同同，可可以以将将数数据据文文件件分分为为顺序文件和随机文件两大类。顺序文件和随机文件两大类。1)顺顺序序文文件件：数数据据（通通常常以以记记录录的的形形式式存存放放）的的写写入入是是一一个个接接一一个个依依次次进进行行的的。数数据据在在文文件件中中的的存存放放次次序序，以以及及读读出出次次序序与与写写入入数数据据时时的的顺顺序序一一致致，也也是是从从头头到到尾尾按按序序进进行的。行的。2)随随机机文文件件：数数据据通通常常也也以以记记录录的的形形式式存存放放，但但与与顺顺序序文文件件不不同同的的是是，其其每每条条记记录录的的长长度度相相等等，且且拥拥有有一一个个唯唯

4、一一的记录号。的记录号。3.按编码方式分类按编码方式分类 根根据据文文件件中中存存储储信信息息所所使使用用的的编编码码方方式式，可可以以将将文文件件分分为为ASCII文件和二进制文件。文件和二进制文件。1)ASCII文文件件：又又称称为为文文本本文文件件，它它以以ASCII方方式式存存储储，数数值值型型数数据据中中的的每每位位数数字字分分别别使使用用代代表表它它们们的的ASCII码码存存储，汉字的存储则使用双字节的汉字字符集编码。储，汉字的存储则使用双字节的汉字字符集编码。2)二二进进制制文文件件：以以二二进进制制方方式式保保存存信信息息，该该类类文文件件不不具具有有可可读读性性，不不能能使使

5、用用TYPE命命令令输输出出或或显显示示，也也不不能能用用文文本编辑器建立或修改，占空间较小。本编辑器建立或修改，占空间较小。12.1.2 12.1.2 文件的结构文件的结构 为为了了有有效效地地存存取取数数据据，数数据据必必须须以以某某种种特特定定的的方方式式存存放放，这这种种特特定定的的方方式式就就是是文文件件的的结结构构。VB的的数数据据文文件件由由记记录录组组成，记录由字段组成，字段由字符组成。成，记录由字段组成，字段由字符组成。1)字字符符(Character)：是是构构成成文文件件的的最最基基本本单单位位，可可以以是是数数字字、字字母母、特特殊殊符符号号或或单单一一的的字字节节。一

6、一个个字字符符通通常常用用一一个字节存放，一个汉字或全角字符则用两个字节存放。个字节存放，一个汉字或全角字符则用两个字节存放。2)字字段段(Field)：又又称称域域，由由若若干干个个字字符符组组成成，用用来来表表示示一项数据。一项数据。3)记记录录(Record)：由由一一组组相相关关的的字字段段组组成成。例例如如在在通通信信录录中中，每每个个人人的的姓姓名名、单单位位、住住址址、电电话话号号码码等等组组成成一一个个记录。记录。4)文件文件(File)：由记录组成。：由记录组成。v12.2 文件操作语句和函数文件操作语句和函数 在在Visual Basic中中，对对于于数数据据文文件件的的处

7、处理理，传传统统的的方方法法是是通通过过使使用用Open语语句句以以及及一一些些相相关关的的语语句句和和函函数数来来实实现现的的。这这些些语语句句和和函函数数，适适用用于于顺顺序序文文件件、随随机机文文件件和和二二进进制制文文件的访问。件的访问。12.2.1 12.2.1 数据文件的操作数据文件的操作 在在微微型型计计算算机机中中，数数据据文文件件一一般般为为磁磁盘盘文文件件。从从磁磁盘盘文文件件向向计计算算机机的的内内存存传传送送数数据据，对对于于计计算算机机来来说说，属属于于“输输入入”操操作作，称称为为“读读文文件件”。从从计计算算机机的的内内存存向向磁磁盘盘文文件件传送数据，则是计算机

8、的传送数据，则是计算机的“输出输出”操作，称为操作，称为“写文件写文件”。为为了了有有效效地地管管理理文文件件的的输输入入输输出出操操作作，每每一一个个打打开开的的数数据据文文件件中中都都有有一一个个指指针针，指指向向下下一一次次将将要要读读写写的的数数据据位位置置，称称为为“文文件件指指针针”或或“记记录录指指针针”。当当缺缺省省读读写写位位置置时时，数据的读出或写入总是指向文件指针的当前位置。数据的读出或写入总是指向文件指针的当前位置。数据文件的操作，一般按以下数据文件的操作，一般按以下3个步骤进行：个步骤进行：1)打打开开（或或建建立立）文文件件：一一个个数数据据文文件件，首首先先必必须

9、须打打开开才才能能使使用用。如如果果文文件件不不存存在在，在在执执行行某某些些打打开开命命令令时时，将将建立一个新文件。建立一个新文件。2)读读写写文文件件：执执行行文文件件的的“写写”操操作作，就就是是把把内内存存中中的的数数据据传传输输到到外外部部设设备备（一一般般为为磁磁盘盘）并并予予以以存存储储的的过过程程；执执行行文文件件的的“写写”操操作作，则则是是把把文文件件中中的的数数据据传传输输到到计计算算机内存的过程。读写文件是数据文件处理的核心部分。机内存的过程。读写文件是数据文件处理的核心部分。3)关关闭闭文文件件：对对于于一一个个不不再再使使用用的的文文件件，应应执执行行关关闭闭命命

10、令，以便释放相关的文件缓冲区。令，以便释放相关的文件缓冲区。12.2.2 12.2.2 文件的打开与关闭语句文件的打开与关闭语句1.Open语句语句 在在对对文文件件执执行行任任何何读读写写操操作作之之前前，必必须须打打开开文文件件。Open语语句句用用来来打打开开或或建建立立一一个个文文件件，分分配配一一个个缓缓冲冲区区供供文文件件进进行输入行输入/输出，并决定缓冲区的访问方式。其语法格式为：输出，并决定缓冲区的访问方式。其语法格式为：Open文文件件名名For读读写写方方式式Access存存取取类类型型 锁锁定定类型类型 As#文件号文件号Len=记录长度记录长度2.Close语句语句 C

11、lose语语句句用用来来关关闭闭Open语语句句所所打打开开的的输输入入/输输出出文文件件。其语法格式为：其语法格式为：Close#文件号文件号,#文件号文件号12.2.3 12.2.3 文件访问函数文件访问函数1.EOF函数函数 EOF函函数数用用于于测测试试指指定定文文件件的的结结束束状状态态，通通常常用用来来检检查查以以Input方式打开的顺序文件。其语法格式为：方式打开的顺序文件。其语法格式为：EOF(文件号文件号)2.FreeFile函数函数 FreeFile函函数数返返回回指指定定范范围围内内下下一一个个可可用用的的文文件件号号。其其语语法格式为：法格式为：FreeFile(区间号

12、区间号)12.2.3 12.2.3 文件访问函数文件访问函数3.Input函数函数 Input函函数数返返回回它它所所读读出出的的所所有有字字符符，包包括括逗逗号号、空空格格符符、引引号号以以及及回回车车符符和和换换行行符符等等，可可用用于于以以Input方方式式打打开开的的顺顺序文件或以二进制文件方式打开的文件。其语法格式为：序文件或以二进制文件方式打开的文件。其语法格式为：Input(字符个数字符个数,#文件号文件号)4.Len函数函数 Len函函数数返返回回字字符符串串表表达达式式中中包包含含字字符符的的数数目目，或或是是存存储一个变量所需的字节数。其语法格式为：储一个变量所需的字节数。

13、其语法格式为：Len(字符串表达式字符串表达式)5.Loc函数函数 Loc函函数数返返回回一一个个用用Open语语句句打打开开文文件件的的上上一一次次读读写写位位置。其语法格式为：置。其语法格式为：Loc(文件号文件号)6.LOF函数函数 LOF函函数数返返回回用用Open语语句句打打开开文文件件的的大大小小（以以字字节节为为单单位）。其语法格式为：位）。其语法格式为：LOF(文件号文件号)7.Seek函数函数 Seek函函数数返返回回一一个个用用Open语语句句打打开开的的文文件件的的当当前前读读写写位位置。其语法格式为：置。其语法格式为：Seek(文件号文件号)v12.3 顺序文件的操作顺

14、序文件的操作 顺顺序序文文件件的的打打开开与与关关闭闭由由Open语语句句和和Close语语句句来来实实现现。打开顺序文件的基本语法格式为：打开顺序文件的基本语法格式为：Open文文件件名名For Input|Output|Append As文文件件号号Len=buffersize 其其中中参参数数说说明明参参见见12.2.2。下下面面介介绍绍用用来来对对顺顺序序文文件件进进行行读写操作的语句。读写操作的语句。12.3.1 12.3.1 顺序文件的写操作顺序文件的写操作 要要将将数数据据写写入入文文本本文文件件，应应以以Output或或Append方方式式打打开开该该文文件件。然然后后使使用用

15、Print#或或者者Write#语语句句将将数数据据写写入入文文件件中。中。1.Print#语句语句 Print#语语句句将将格格式式化化数数据据写写入入顺顺序序文文件件中中，其其功功能能与与多多次次使使用用的的Print方方法法类类似似，只只是是Print方方法法输输出出的的对对象象是是窗窗体体、图图片片框框或或打打印印机机，而而Print#语语句句的的输输出出对对象象是是文文件件。其其语语法格式为：法格式为：Print#文文件件号号，Spc(n)|Tab(n)表表达达式式列列表表，|；【例例12-1】用用Print#语句向顺序文件输出数据。语句向顺序文件输出数据。窗体的窗体的Click事件

16、代码：事件代码：Private Sub Form_Click()Open c:out1.txt For Output As#1 Print#1,1;2;3;4;5 用紧凑格式输出数值型数据用紧凑格式输出数值型数据 Print#1,计算机计算机;等级考试等级考试;1;2;3 用用紧紧凑凑格格式式输输出出字字符串型数据符串型数据 Print#1,4,5,12.35,12-76 用标准格式输出用标准格式输出 Print#1,输出一个空行输出一个空行 Print#1,这是用这是用;Pirnt#语句语句;注意，输出列表最后有分号注意，输出列表最后有分号 Print#1,“输出的文件输出的文件”紧紧凑凑上

17、上一一个个Print#语语句句输输出出 Close#1End Sub图图12-1 用用Print#语句写入文件的格式示例语句写入文件的格式示例 运运行行程程序序，用用鼠鼠标标单单击击窗窗体体后后，用用Windows的的“记记事事本本”打打开开文文件件“out1.txt”，可可以以看看到到文文件件的的内内容容及及其其格格式式，如图如图12-1所示。所示。2.Write#语句语句 与与Print#相相同同，Write#语语句句将将输输出出列列表表指指定定的的数数据据，顺序写入文件号所代表的文件中，其语法格式为：顺序写入文件号所代表的文件中，其语法格式为：Write#文件号文件号，表达式列表表达式列

18、表 用用Write#语句写入的顺序文件具有如下的格式：语句写入的顺序文件具有如下的格式：1)字符型数据，用双引号（字符型数据，用双引号（）括起来。）括起来。2)逻辑型数据，保存为逻辑型数据，保存为#TRUE#或者或者#FALSE#。3)日日期期型型数数据据，采采用用#yyyy-mm-dd hh:mm:ss#的的格格式式，或或将将日日期期部部分分和和时时间间部部分分分分开开处处理理，其其形形式式为为#yyyy-mm-dd#和和#hh:mm:ss#。4)各各数数据据项项之之间间以以紧紧凑凑格格式式存存放放，并并自自动动插插入入分分界界符符（逗号）。（逗号）。5)在在输输出出列列表表中中的的最最后后

19、一一个个字字符符写写入入文文件件后后，自自动动插插入入回车换行符。回车换行符。【例例12-2】用用Write#语句向顺序文件输出数据。语句向顺序文件输出数据。选选择择“新新建建”工工程程，进进入入窗窗体体设设计计器器，编编写写窗窗体体的的Click事件代码：事件代码：Private Sub Form_Click()Dim I As Integer,S As String Dim D As Date,B As Boolean Open c:WEXAM26160001out2.txt For Output As#1 以顺序输出方式建立并打开文件以顺序输出方式建立并打开文件 I=100:S=7734

20、56 D=Date:B=True Date函数返回系统当前的日期函数返回系统当前的日期 Write#1,I,S,D,B 写入第写入第1条记录条记录 Write#1,这是用这是用Write语句输出的文件语句输出的文件 写入第写入第2条记录条记录 Close#1 关闭文件关闭文件End Sub图图12-2 用用Write#语句写入文件的格式示例语句写入文件的格式示例 运运行行程程序序，用用鼠鼠标标单单击击窗窗体体后后，用用Windows的的“记记事事本本”打打开开文文件件“out2.txt”，可可以以看看到到文文件件的的内内容容及及其其格格式式（图（图12-2）。）。Print#语语句句与与Wri

21、te#语语句句的的区区别别：Print#语语句句根根据据指指定定的的格格式式，将将数数据据写写入入文文件件，数数据据项项之之间间不不会会自自动动插插入入分分界符，而界符，而Write#语句在数据项之间自动插入分界符。语句在数据项之间自动插入分界符。Write#语语句句适适合合输输出出不不同同类类型型的的数数据据，特特别别是是当当数数据据写写入入文文件件后后，还还需需用用其其他他程程序序读读出出进进行行处处理理的的情情况况。Print#语语句句适适合合输输出出文文本本类类型型或或列列表表格格式式的的数数据据，供供打打印印或或显显示示用。用。【例例12-3】用用Write#语语句句向向顺顺序序文文

22、件件输输出出20个个随随机机两两位位整整数。数。窗体的窗体的Click事件代码：事件代码：Private Sub Form_Click()Randomize Open c:WEXAM26160002datain.txt For Output As#1 For i=1 To 20 Write#1,Int(Rnd*90)+10 Next Close#1End Sub【例例12-4】设设在在工工程程中中有有一一个个标标准准模模块块，其其中中定定义义了了如如下下记录类型（用户自定义类型）：记录类型（用户自定义类型）：Type Books Name As String*10 TelNum As Stri

23、ng*20End Type 执行下列事件过程代码将在顺序文件中写入一条记录：执行下列事件过程代码将在顺序文件中写入一条记录：Private Sub Command1_Click()Dim b As Books Open c:Person.txt For Output As#1 b.Name=InputBox(输入姓名输入姓名)b.TelNum=InputBox(输入电话号码输入电话号码)Write#1,b.Name,b.TelNum Close#1End Sub12.3.2 12.3.2 顺序文件的读操作顺序文件的读操作 要要读读取取文文本本文文件件的的内内容容，应应以以Input方方式式打打

24、开开该该文文件件。然然后后使使用用Input#或或者者Line Input#语语句句将将文文件件复复制制到到内内存存变变量中。量中。1.Input#语句语句 Input语语句句从从一一个个打打开开的的顺顺序序文文件件中中读读出出数数据据，并并将将数数据据赋给指定的变量，其语法格式为：赋给指定的变量，其语法格式为：Input#文件号文件号，变量列表变量列表 通通常常，用用Write#语语句句写写入入文文件件的的数数据据，可可使使用用Input#语语句句读读出出数数据据。读读数数据据时时，一一般般不不需需处处理理就就可可直直接接将将数数据据指定给变量。指定给变量。【例例12-5】用用Input#语

25、语句句读读取取例例12-2所所建建立立文文件件中中的的数数据据，并将数据显示在窗体上。并将数据显示在窗体上。选选择择“新新建建”工工程程，进进入入窗窗体体设设计计器器，编编写写窗窗体体的的Click事件代码：事件代码：Private Sub Form_Click()Dim I As Integer,S As String Dim D As Date,B As Boolean Open c:out2.txt For Input As#1 以顺序输入方式打开文件以顺序输入方式打开文件 Input#1,I,S,D,B 读取第读取第1条记录条记录 Close#1 关闭文件关闭文件 Cls Print

26、文件中第一个记录为：文件中第一个记录为：Print I,S,D,BEnd Sub 程序运行结果如图程序运行结果如图12-3所示。所示。图图12-3 用用Input#语句读取文件语句读取文件 注注意意：在在用用Input#语语句句读读取取用用Write#语语句句写写入入文文件件的的数数据据时时，并并没没有有对对字字符符串串数数据据的的定定界界符符（）作作特特别别的的处处理理，也也没没有有删删除除日日期期型型数数据据和和布布尔尔型型数数据据的的定定界界符符（#）。Input#语语句句在在将将数数据据指指定定给给变变量量时时，会会自自动动去去掉掉这这些些定定界界符符，如如同同Write#语语句句在在

27、写写文文件件时时会会根根据据变变量量的的类类型型自自动动添添加定界符。加定界符。【例例12-6】设设数数据据文文件件datain1.txt和和datain2.txt文文件件中中各各有有20个个整整数数（如如例例12-3中中过过程程所所写写），设设计计程程序序读读入入文文件件中中的的各各20个个整整数数，分分别别放放入入两两个个数数组组Arr1和和Arr2中中，然然后后计计算算：把把两两个个数数组组中中对对应应下下标标的的元元素素相相加加，其其结结果果放放入入第第三三个个数数组组中中（即即：第第一一个个数数组组的的第第n个个元元素素与与第第二二个个数数组组的的第第n个个元元素素相相加加，其其结结

28、果果作作为为第第三三个个数数组组的的第第n个个元元素素。这这里里的的n为为1、2、.、20），并并计计算算第第三三个个数数组组各各元元素素之之和和，最最后后把把所所求求得得的的和和在在窗窗体体上上显显示示出出来来，并并将将计计算算结结果果存存入入dataout.txt 文件中。文件中。首先在窗体的通用段声明数组及变量：首先在窗体的通用段声明数组及变量：Option Base 1Dim Arr1(20)As IntegerDim Arr2(20)As IntegerDim s As Integer然后编写读取和写入数据的通用过程。然后编写读取和写入数据的通用过程。读取文件读取文件datain1.

29、txt的的ReadDate1过程代码：过程代码：Sub ReadData1()Open App.Path&datain1.txt For Input As#1 For i=1 To 20 Input#1,Arr1(i)Next i Close#1End Sub 读取文件读取文件datain2.txt的的ReadDate2过程代码：过程代码：Sub ReadData2()Open App.Path&datain2.txt For Input As#1 For i=1 To 20 Input#1,Arr2(i)Next i Close#1End Sub写入文件的写入文件的WriteDate过程代码

30、：过程代码：Sub WriteData(Filename As String,Num As Integer)Open App.Path&Filename For Output As#1 Print#1,Num Close#1End Sub 其中，其中，App.Path表示当前工程所在的文件夹（目录）。表示当前工程所在的文件夹（目录）。最后编写事件过程代码。最后编写事件过程代码。编写命令按钮编写命令按钮C1（读入数据）的（读入数据）的Click事件代码：事件代码：Private Sub C1_Click()Call ReadData1 Call ReadData2End Sub编写命令按钮编写命

31、令按钮C2（计算）的（计算）的Click事件代码：事件代码：Private Sub C2_Click()Dim Arr3(20)As Integer For i=1 To 20 Arr3(i)=Arr1(i)+Arr2(i)Next s=0 For i=1 To 20 s=s+Arr3(i)Next Cls Print Print 各元素之和为：各元素之和为：,sEnd Sub图图12-4 运行程序运行程序编写命令按钮编写命令按钮C3（存盘）的（存盘）的Click事件代码：事件代码：Private Sub C3_Click()WriteData dataout.txt,sEnd Sub 运运行

32、行程程序序，依依次次用用鼠鼠标标单单击击命命令令按按钮钮“读读入入数数据据”、“计计算算”、“存存盘盘”（如如图图12-4）后后，所所得得结结果果保保存存在在当当前前文件夹的文件夹的dataout.txt文件中。文件中。2.Line Input#语句语句 Line Input#语语句句从从顺顺序序文文件件中中读读出出一一行行，并并把把它它赋赋给给一一个字符串变量，其语法格式为：个字符串变量，其语法格式为：Line Input#文件号文件号，字符串变量字符串变量 其其中中，文文件件号号的的含含义义同同上上，字字符符串串变变量量用用来来接接受受从从文文件件中读出的一行字符。中读出的一行字符。Lin

33、e Input#语语句句通通常常用用来来读读取取用用Print#语语句句写写入入的的文文件件。它它一一次次从从文文件件中中读读取取一一行行字字符符，直直到到遇遇到到回回车车符符为为止止。回回车车符符将将被被忽忽略略，不不会会附附加加到到字字符符串串上上。Line Input#语语句句也也可可用用来来读读取取以以ASCII码码存存放放在在磁磁盘盘上上的的各各种种源源程程序序文文件件以及文本文件等。以及文本文件等。【例例12-7】在在当当前前目目录录中中有有顺顺序序文文件件in7.txt，文文件件中中有有几几行行汉汉字字（如如图图12-5所所示示）。在在窗窗体体上上画画一一个个文文本本框框，名名称

34、称为为Text1，能能显显示示多多行行；再再画画一一个个命命令令按按钮钮，名名称称为为C1，标标题题为为“存存盘盘”。并并编编写写适适当当的的事事件件过过程程，使使得得在在加加载载窗窗体体时时，把把in7.txt文文件件的的内内容容显显示示在在文文本本框框中中，然然后后在在文文本本的的最最前前面面手手工工插插入入一一行行汉汉字字：“计计算算机机等等级级考考试试”。最最后后单单击击“存存盘盘”按按钮钮，可可以以把把文文本本框框中中修修改改过过的的内内容容存存到到文文件件out7.txt中中（如图（如图12-6所示）。所示）。图图12-5 顺序文件顺序文件in7.txt 图图12-6 读取与写入文

35、本读取与写入文本 程序代码：程序代码：1)窗体的窗体的Load事件代码可以读入文件事件代码可以读入文件in7.txt：Private Sub Form_Load()Open App.Path&in7.txt For Input As#1 a=Do Until EOF(1)Line Input#1,b a=a&b&Chr(13)&Chr(10)Loop Close#1 Text1.Text=aEnd Sub 2)命命令令按按钮钮C1的的Click事事件件代代码码可可以以将将文文本本框框中中的的内内容容写写入文件入文件Out7.txt：Private Sub C1_Click()Open App.

36、Path&out7.txt For Output As#1 Print#1,Text1.Text Close#1End Sub 程序运行结果如图程序运行结果如图12-6所示。所示。【例例12-8】一一个个简简易易文文本本编编辑辑器器，具具有有创创建建、编编辑辑、保保存存普通文本文件的功能，如图普通文本文件的功能，如图12-7所示。所示。为为了了使使改改变变窗窗体体大大小小的的时时候候文文本本框框能能随随之之改改变变，编编写写窗窗体的体的Resize事件代码：事件代码：Private Sub Form_Resize()Text1.Left=0 Text1.Top=0 Text1.Height=F

37、orm1.ScaleHeight Text1.Width=Form1.ScaleWidth-Picture1.WidthEnd Sub图图12-7 简易的文本编辑器简易的文本编辑器 然后编写菜单控键数组然后编写菜单控键数组File()的的Click事件代码：事件代码：Private Sub File_Click(Index As Integer)n=Index Select Case n Case 0 新建新建 Text1.Text=Form1.Caption=未命名未命名 Case 1 打开打开 CommonDialog1.ShowOpen 显示显示打开打开公共对话框公共对话框 fname=

38、CommonDialog1.FileName If fname Then Text1.Text=Open fname For Input As#1 b=Do Until EOF(1)Line Input#1,nextline b=b&nextline&Chr(13)&Chr(10)Loop Close#1 Text1.Text=b End If Form1.Caption=fname Case 2 保存保存 If Form1.Caption=未命名未命名 Or Form1.Caption=Then CommonDialog1.ShowSave 显示显示另存为另存为公共对话框公共对话框 fnam

39、e=CommonDialog1.FileName Else fname=Form1.Caption End If If fname Then Open fname For Output As#1 Print#1,Text1.Text Close#1 End If Case 3 另存另存 CommonDialog1.ShowSave 显示显示另存为另存为公共对话框公共对话框 fname=CommonDialog1.FileName If fname Then Open fname For Output As#1 Print#1,Text1.Text Close#1 End If Case 4 T

40、ext1.Text=End End Select Text1.SetFocusEnd Subv12.4 随机文件的操作随机文件的操作 随随机机文文件件中中的的一一行行数数据据称称为为一一笔笔记记录录。随随机机文文件件对对文文件件的的读读写写顺顺序序没没有有限限制制，可可以以随随意意读读写写某某一一条条记记录录。这这就就要要求求记记录录的的长长度度是是固固定定的的，以以便便由由记记录录号号来来定定位位。随随机机文文件件的读写速度较快，但其占用空间较大。的读写速度较快，但其占用空间较大。随随机机文文件件的的打打开开与与关关闭闭仍仍由由Open语语句句和和Close语语句句来来实实现。打开随机文件的

41、基本语法格式为：现。打开随机文件的基本语法格式为：Open文件名文件名For Random As文件号文件号Len=记录长度记录长度12.4.1 12.4.1 随机文件的读写操作随机文件的读写操作 对对打打开开的的随随机机文文件件中中的的记记录录进进行行编编辑辑，要要先先把把记记录录从从文文件件读读到到内内存存变变量量，然然后后改改变变各各变变量量的的值值，最最后后，把把变变量量写写回该文件。回该文件。1.Get#语句语句 把记录读入变量使用把记录读入变量使用Get#语句，其语法格式为：语句，其语法格式为：Get#文件号文件号，记录号记录号，变量名变量名 其其中中，文文件件号号是是打打开开文文

42、件件时时指指定定的的文文件件句句炳炳，记记录录号号是是要要读读入入的的记记录录号号数数；而而变变量量名名则则是是接接收收记记录录内容的记录型变量名，一般声明为用户定义类型。内容的记录型变量名，一般声明为用户定义类型。12.4.1 12.4.1 随机文件的读写操作随机文件的读写操作2.Put#语句语句 使使用用Put#语语句句可可以以把把数数据据写写入入或或替替换换随随机机文文件件中中的的记记录录，其语法格式为：其语法格式为：Put#文件号文件号,记录号记录号,变量名变量名 其其中中，文文件件号号是是打打开开文文件件时时指指定定的的文文件件句句炳炳，记记录录号号是是要要写写入入或或替替换换的的记

43、记录录位位置置，变变量量名名是是接接收收记记录的内容的记录型变量名。录的内容的记录型变量名。【例例12-9】利利用用随随机机文文件件保保存存学学生生的的成成绩绩，可可以以浏浏览览或或编编辑辑（读读取取、修修改改、写写入入）学学生生的的学学号号、姓姓名名以以及及三三门门功功课课的成绩，如图的成绩，如图12-8所示。所示。图图12-8 简易的学生成绩管理软件简易的学生成绩管理软件 1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。选选择择“新新建建”工工程程，进进入入窗窗体体设设计计器器，首首先先增增加加两两个个框框架架 Frame1 Frame2和和 三三 个个 命命

44、令令 按按 钮钮 Command1Command3。选选定定Frame1，在在其其中中增增加加一一个个文文本本框框数数组组Text1(0)Text1(4)、和和五五个个标标签签。选选定定Frame2，在在其其中中增增加一个列表框加一个列表框List1。设设置置框框架架、文文本本框框、标标签签、列列表表框框和和命命令令按按钮钮的的属属性性如如图图12-8所示。所示。2)编写代码。编写代码。首首先先在在窗窗体体的的通通用用段段创创建建用用户户定定义义类类型型（记记录录类类型型）并并声明变量：声明变量：Private Type cj xm As String*6 xh As String*6 sx

45、As Integer yw As Integer wy As IntegerEnd TypePrivate da As cj编写编写“读取读取”按钮的按钮的Click事件代码：事件代码：Private Sub Command1_Click()Dim sx As Single,yw As Single,wy As Single FileName=App.Path&xsda2.dat Open FileName For Random As#1 Len=Len(da)打开随机数据文件打开随机数据文件 lastrec=LOF(1)/Len(da)List1.Clear For n=1 To lastr

46、ec Get#1,n,da xh=Format(da.xh,)xm=Format(RTrim(da.xm),)yw=Format(da.yw,#)wy=Format(da.wy,#)sx=Format(da.sx,#)msg=xh&yw&wy&sx&xm List1.AddItem msg Next Command1.Enabled=FalseEnd Sub 编写编写“保存保存”按钮的按钮的Click事件代码：事件代码：Private Sub Command2_Click()recnum=List1.ListIndex da.xh=Text1(0).Text da.xm=Text1(1).Te

47、xt da.yw=Text1(2).Text da.wy=Text1(3).Text da.sx=Text1(4).Text xh=Format(da.xh,)xm=Format(RTrim(da.xm),)yw=Format(da.yw,#)wy=Format(da.wy,#)sx=Format(da.sx,#)msg=xh&yw&wy&sx&xm Put#1,recnum+1,da List1.RemoveItem recnum List1.AddItem msg,recnum Command2.Enabled=FalseEnd Sub 编写编写“关闭关闭”按钮的按钮的Click事件代码：

48、事件代码：Private Sub Command3_Click()Close#1 Unload MeEnd Sub 编写列表框的编写列表框的Click事件代码：事件代码：Private Sub List1_Click()If List1.ListIndex -1 Then n=List1.ListIndex+1 Get#1,n,da Text1(0).Text=da.xh Text1(1).Text=da.xm Text1(2).Text=da.yw Text1(3).Text=da.wy Text1(4).Text=da.sx End If Command2.Enabled=TrueEnd

49、Sub12.4.2 12.4.2 随机文件中记录的增加与删除随机文件中记录的增加与删除1.增加记录增加记录 在在随随机机文文件件中中添添加加记记录录，是是指指向向文文件件的的末末尾尾添添加加记记录录。其其方方法法是是，把把记记录录号号的的值值设设置置为为比比文文件件中中的的记记录录数数多多1，然后使用，然后使用Put语句。语句。【例例12-10】在在例例12-9中中增增加加一一个个添添加加新新记记录录的的功功能能，如如图图12-9所示。所示。设计步骤如下：设计步骤如下：只只需需在在例例12-9中中增增加加一一个个命命令令按按钮钮Command4，并并编编写写其其Click事件代码：事件代码：P

50、rivate Sub Command4_Click()lastrec=LOF(1)/Len(da)+1 da.xh=Text1(0).Text da.xm=Text1(1).Text da.yw=Text1(2).Text da.wy=Text1(3).Text da.sx=Text1(4).Text xh=Format(da.xh,)xm=Format(RTrim(da.xm),)yw=Format(da.yw,#)wy=Format(da.wy,#)sx=Format(da.sx,“#”)图图12-9 增加添加新记录的功能增加添加新记录的功能 msg=xh&yw&wy&sx&xm Put#