VB程序设计二级教程.pdf

《VB程序设计二级教程.pdf》由会员分享，可在线阅读，更多相关《VB程序设计二级教程.pdf（94页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、主讲老师：主讲老师：主讲老师：主讲老师：韩维良韩维良韩维良韩维良2005.32005.32005.32005.3第十四章第十四章数据文件数据文件二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件第一节第一节第一节第一节 文件概述文件概述文件概述文件概述一、基础知识一、基础知识一、基础知识一、基础知识 文件是指存放在外存贮器上的、有一个名称的、相关信息的集合；是计算机中组织信息的基本单位；操作系统按文件名对其进行管理。最主要的特点在于它能够使信息长久地保存起来。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件一个程序在运行

2、的过程中，需要的数据可以从一个磁盘文件中获得，输出的信息可以输出到一个磁盘文件中。好处有二：1、原始数据用文件保存，便于重复利用（尤其在有大量数据的场合，调试程序的需要），可保证输入的正确性。2、输出的信息存放到一个文件中，可以长久地保留起来，以备以后重复使用有用的数据；如：学生档案数据，处理完以后，存放到文件中，可作为一个档案，而不是仅仅显示出来。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件二、两种基本操作二、两种基本操作二、两种基本操作二、两种基本操作 1 1、读操作、读操作 又称为输入，是指从文件中读出数据到内存中。读出来以后，一般要赋给同一类型

3、的一个变量。2 2、写操作、写操作 又称为输出，是指将内存中的数据存到文件中。一般情况下，将一些变量的值输出到文件中。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件三、文件的类型三、文件的类型 文件的类型根据不同的标准可有下列三种形式：1 1、按数据形式分类、按数据形式分类程序文件程序文件：存放计算机可执行代码的文件；其类型名：exe,com等。数据文件数据文件：可供程序处理的原始数据，必须通过程序来管理和使用。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、按存取方式和结构分类、按存取方式和结构分类顺序文件

4、顺序文件：只能按顺序存取方式进行操作的文件。只能从头到尾地按顺序进行读写操作。因此可以说，顺序文件是顺序的字符流。在顺序文件中，对文件不允许从文件中的某个任意位置进行读写。如同磁带中的歌曲，只能一首接一首地播放。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件随机文件随机文件：是指按随机存取方式进行读写操作的文件。以定长记录为单位组织信息，并以记录为单位进行读写。在随机文件中，对文件的读写可以从文件中的任意位置开始，又称为直接存取文件。适用于读写有固定长度记录结构的文本文件或者二进制文件。如同VCD盘上的歌曲，可任意指定播放哪一首歌。二级VB程序设计教程第

5、十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件3 3、按数据的编码形式分类、按数据的编码形式分类文本文件文本文件：又称为ASC文件，文件的内容是以字符的 ASC 码形式存放的，可用文本编辑器直接编辑。如：存放数值234.56，则分别存放位数的ASC码。可用DOS 的 TYPE 命令显示出来，可直接在显示器和打印机上输出来。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件二进制文件二进制文件：文件内容以在内存中的表现形式存放，占用内存较小，存取速度较快。由于有数据类型区别，所以文件的大小比存放同一内容的文本文件要小，如：一个整型数，在二进制

6、文件中，只占两个字节，而在文本文件中，有多少数位，就要占多少字节。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件第二节第二节第二节第二节 文件的打开与关闭文件的打开与关闭文件的打开与关闭文件的打开与关闭一般文件的操作分三个步骤进行：打开文件读写文件关闭文件。一、文件的打开（建立）一、文件的打开（建立）一、文件的打开（建立）一、文件的打开（建立）打开文件的物理含义打开文件的物理含义：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方法。缓冲区内存文件二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件格式：Open 文

7、件名 FOR 打开方式 Access 存取类型 锁定 As#文件号 Len=记录长度功能：以指定的方式打开一个文件，并与一个文件号关联。、文件名、文件名是字符串表达式，用来指定所要访问的文件的路径和文件名，一般都需要包括目录、文件夹及驱动器名称等等。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件、ForFor方式参数方式参数用于指定文件的打开方式，即打开一个文件以后，要干什么。Output 顺序输出方式（实为新建文件）Append 顺序输出追加方式 Input 顺序输入方式 Random 随机存取方式Binary二进制文件操作方式（按字节为单位对文件进行

8、操作）二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件、AccessAccess存取类型参数存取类型参数对于按Random、Binary方式打开的文件，还要指定其Access参数。用于指定打开文件后，进行什么操作。Rread 只读操作 Write 只写操作 ReadWrite 读/写操作均可（默认）二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件、锁定参数、锁定参数主要指定在多用户或者多进程环境中使用时，限制其它用户或者进程某文件进行读写操作。如果不指定该参数，则文件被一个进程打开操作期间，其它用户或进程不得进行读写操

9、作。LockShared 允许其它进程读写操作 LockRead 不允许其它进程读操作 LockWrite 不允许其它进程写操作 LockReadWrite 不允许其它进程读写操作；默认的设定。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件、记录长度参数、记录长度参数对Random方式打开的随机文件要指定每条记录的大小。为了文件系统定位的需要，需要指定记录的长度；如果没有指定记录长度，则默认的长度为：512个字节。附加：测记录长度的函数测记录长度的函数 LEN 格式：变量=len(记录型变量)用户可以使用 Len 函数来获得记录类型的长度二级VB程序设计

10、教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件例如定义一个记录型变量myfriend，则其大小：reclength=len(newfriend)也可以直接用下列形式打开：Open “E:friend.dat For Random As filenum Len=len(记录型变量)二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件、文件号参数、文件号参数以一个阿拉伯数字代表的一个有效的文件句柄，范围在 1 到 511 之间；每个文件必须有一个唯一的文件号，以后对文件的所有操作都是以文件号指明是哪一个文件。二级VB程序设计教程第十四章第十

11、四章第十四章第十四章 数据文件数据文件数据文件数据文件如果在程序中已经使用 Open 语句打开多个文件，同时又关闭了部分文件，现在要打开一个新文件时，可能不知道还有哪个数字没有被使用，此时可用FreeFile 函数得到下一个可用的文件句柄；格式：filenumber=FreeFile功能：返回下一个可用的文件号。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件例如以下语句就是以只读的方式打开 Readme.txt 文件：Dim filenumber As Integer filenumber=FreeFile Open“c:Readme.txt“For I

12、nput As filenumber 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件OpenFilename“For Input As#FileNumber OpenFilename“For OutputAs#FileNumber OpenFilename“For Append As#FileNumber 如下结合通用对话框的使用打开一个文件。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件DimfilenumberAsInteger Dim flnm as string filenumber=FreeFile Co

13、mmonDialog1.Filter=文本文件(*.txt)|*.txt CommonDialog1.ShowOpen flnm=CommonDialog1.FileName Open flnm For Input As#FileNumber 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件二、关闭打开的文件二、关闭打开的文件二、关闭打开的文件二、关闭打开的文件 对文件的操作完成以后，必须关闭文件。格式：Close#文件号1，#文件号2，功能：关闭由文件号指定的文件，如果省略文件号，则关闭所有的文件。可以一次关闭一个文件，也可以一次关闭多个文件，如：Clo

14、se 1 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Close 1,2,3 如果省略文件号参数，则将关闭程序中所有使用 Open 语句打开的所有活动文件；即：关闭所有打开的文件，可使用命令：Close 在执行 Close 语句后，被关闭的文件与其文件号之间的关联将终结，即此文件号已经是一个可用的自由号，以后可以用它来打开其他文件。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件关闭操作的物理意义：这一步操作在文件的操作中，很关键；清理工作现场，更准确地讲，则清理缓冲区，尤其当进行了写操作后，必须进行这样的操作，否

15、则可能导致信息的丢失。不论什么时候生成了文件或打开了已有的文件都要在程序终止前关闭它。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件第三节第三节第三节第三节 文件操作语句和函数文件操作语句和函数文件操作语句和函数文件操作语句和函数一、文件指针一、文件指针一、文件指针一、文件指针在对文件进行读写时，为了表示对文件中当前读写信息的位置，文件系统中设置有一个位置指针。用Append方式打开一个文件后，位置指针指向文件的末尾，其它几种打开方式，位置指针均指向文件首部，即第一个字符处。每一次读写操作完成后，位置指针自动指向下一个要读写的位置。二级VB程序设计教程第

16、十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件对任何一个进行读写操作的文件而言，都有一个位置指针，读写操作总是从位置指针指示的位置开始，当读写完成后，自动指示下一个要读写位置。1 1、位置指针定位、位置指针定位 格式：Seek#文件号,位置序号功能：将位置指针置于指定位置处。可以用于顺序文件和随机文件中，将位置指针定位到任何一个位置。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件在顺序文件中，（即按Input、Output、Append这三种方式打开的文件）这个位置序号是指从文件头开始到指定位置的字节数。如在 PUT 和 GET 语句中

17、，如果省略位置序号，则可以用这个语句定位。在随机文件中，这个位置序号就是记录号。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、测位置函数、测位置函数 格式：Seek(文件号)功能：返回文件中下一次将读写的位置序号。或者说是文件指针的当前位置（文件指针总是指向下一次将读写的位置）。同样，这个位置序号的约定在顺序文件和随机文件中的约定不同。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件3 3、Loc Loc 函数函数 格式：Loc(文件号)功能：返回文件中最后一次读写过的位置序号。与Seek不同，在当前位置前上

18、一次所处的位置。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件二、其它语句和函数二、其它语句和函数二、其它语句和函数二、其它语句和函数1、FreeFile函数格式：filenumber=FreeFile功能：返回下一个可用的文件号。例如以下语句就是以只读的方式打开 Readme.txt 文件：DimfilenumberAsInteger filenumber=FreeFile Open“c:Readme.txt ForInputAs filenumber二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、LofL

19、of函数函数 格式：Lof(文件号)功能：返回指定文件的长度。Num=Lof(#1)3 3、EOFEOF函数函数格式：EOF(文件号)功能：检测文件尾函数。如果位置指针已到达文件尾，则返回 True，反之返回 False 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件常用模式是：DoWhile Not EOF(文件号)读处理环节 Loop二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件4 4、LENLEN函数函数在随机文件进行读写操作时，需要知道一个记录的长度，可用Len函数求得。格式：变量=len(记录型变量)功能

20、：返回指定类型变量的长度。如：Open“E:friend.dat For RandomAs filenumLen=len(记录型变量)二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件第四节第四节第四节第四节 顺序文件顺序文件顺序文件顺序文件一、顺序文件的写操作一、顺序文件的写操作一、顺序文件的写操作一、顺序文件的写操作1 1、PrintPrint语句语句 格式：Print 文件号,输出项列表 功能：将以指定分隔方式分隔的多个数据项输出到文件中当前位置指针处。Print 方法可以有多个输出项，输出项之间的分隔符与前面讲述的相同，主要有四种：逗号、分号、SPC

21、()函数、TAB()函数。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Private Sub Form_Click()Open c:temp.txt For Output As#1Print#1,This is a testPrint#1,Print#1,Zone1;Tab(10);Zone2Print#1,Hello;WorldPrint#1,Spc(5);5 loading spacesPrint#1,Tab(10);HelloClose#1End Sub二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、

22、WriteWrite语句语句 格式：Write 文件号,输出项列表 功能：将用逗号或者分号、空格分隔的多个数据项写入指定的文件中当前位置指针处；说明：数据在文件中以紧凑格式存放，并自动地在数据项之间插入逗号。若输出项是一个字符串，则自动给其加上双引号定界符。当最后一个输出项输出完以后，自动输出一个换行符，使得其后输出的内容在下一行开始输出。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件输出项列表是可选的，它代表要写入文件的数值表达式或字符串表达式，用一个或多个空格、分号或逗号将这些表达式分隔开。如果省略输出项，并在文件号参数之后加上一个逗号，则会将一个空

23、行添加到文件中。Write语句在输出项的最后一个字符写入文件后会另起一行，即插入回车换行符(Chr(13)Chr(10)。与Print语句不同，当要将数据写入文件时，Write语句会自动在字符串的两边添加双引号，在相邻的数据项之间添加一个逗号。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Private Sub Form_Click()Open C:temp.txt For Output As#1Write#1,Hello World,234Write#1,没有逗号,语句错Dim MyBool,MyDate,MyNull,MyErrorMyBool=Fa

24、lse:MyDate=#2/12/1969#MyNull=Null:MyError=CVErr(32767)Write#1,MyBool,is a Boolean valueWrite#1,MyDate,is a dateWrite#1,MyNull,is a null valueWrite#1,MyError,is an error valueClose#1End Sub二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件举例：从键盘上输入 5 个学生的档案数据，并将它们写入文件 DA.TXT 中。学生信息包括：姓名，学号，年龄，家庭地址、在工程中添加一个标

25、准模块，定义记录：Type stu name AS String*8 num AS Integer age AS Integer addr AS String*20 EndType 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件、在窗体模块中输入下列的代码：Option Base1 PrivateSub Form_click()Static stud()as stu Openc:Da.txtFor OutputAS#1 n=inputbox(请输入学生数：)ReDimstud(n)二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据

26、文件数据文件Fori=1TOn stud(i).name=inputbox(姓名：)stud(i).num=inputbox(学号：)stud(i).age=inputbox(年龄：)stud(i).addr=inputbox(家庭地址：)Write#1,stud(i).name,stud(i).num,stud(i).age,stud(i).addr Nexti Close#1 End EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件二、顺序文件的读操作二、顺序文件的读操作二、顺序文件的读操作二、顺序文件的读操作1 1、LineLineIn

27、put Input 语句语句 格式：LineInput 文件号,字符串变量 功能：从已打开的顺序文件中读出一行并将它赋给一个字符串变量，不包括行尾的回车换行符；二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件字符串变量是一个用来存储文件中被读取行信息的字符串变量，LineInput 语句一次只能从文件中读出一行字符，直到遇到回车符“Chr(13)”或回车换行符“(Chr(13)Chr(10)”为止，回车换行符将被跳过，而不会被附加到字符串变量上。如果要保留该回车换行，必须添加代码。说明：在读取数据的过程中，位置指针的位置将自动发生改变。二级VB程序设计教程

28、第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件将C:temp.txt文件在一个文本框中显示出来。设置文本框的相关属性。Private Sub Form_click()Dim TextLine,Enterline Enterline=Chr(13)Chr(10)Text1.Text=“”Open“C:temp.txt For Input As 1Do While Not EOF(1)Line Input 1,TextLine 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Text1.Text=Text1.Text+Enterline+T

29、extLine Loop Close 1EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、Input Input 函数函数 格式：变量=Input（读取的字符数,文件号)功能：从顺序文件的当前位置开始，读取指定数量的字符串；函数的返回值是字符串。字符数参数是一个任何有效的数值表达式，用来指定要读取的字符个数，有鉴于此，如果需要，可以一次读出整个文件的内容，只要指定合适的大小（如用 LOF（文件号）：测文件长度）。Input函数只适用于以Input方式打开的文件，Input函数返回所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和

30、前导空格等等。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Private Sub Form_Click()Dim MyChar Open“C:temp.txt For Input As 1DoWhile NotEOF(1)MyChar=Input(1,1)Text1.text=Text1.text+MycharLoop Close 1 EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件PrivateSubForm_Click()Dim Num as long Text1.Text=“Open“c:tem

31、p.txtForInputAs 1Number=LOF(1)Text1.Text=Input(Number,1)Close 1 EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件举例：编写程序，在文本文件中，查找指定的字符串；具体实现方法：先将文件的内容读到一个变量中，再在这个变量中查找有没有指定的字符串。PrivateSubForm_click()Fstring=InputBox(请输入要查找的字符串：)Openc:temp.txtForInputAs#1 x=Input(Lof(1),#1)Close(#1)y=InStr(1,X,Fstr

32、ing)二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件IfY0then MsgBox 找到字符串：+Fstring Else MsgBox 没找到字符串：+Fstring EndIf EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件3 3、Input Input 语句语句 格式：Input 文件号,变量表功能：从指定的文件中，读取若干个以逗号分隔的数据给相应的变量。变量表是用逗号分隔的变量列表，将文件中读出的值分配给这些变量；被读取的文件中的数据必须使用逗号分隔开，变量表中的变量与文件中的数据按出现的顺

33、序一一对应；要求对应的变量与数据的类型匹配。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件如：把前面建立学生数据在窗体上显示出来。Option Base 1 Private Sub Form_click()Static stud()As stu Open c:da.txt“For Input As#1 n=InputBox(请输入学生数：)ReDimstud(n)Print 学号;Tab(12);姓名;Tab(20);年龄;Tab(30);家庭地址 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Fori=1Ton

34、Input#1,stud(i).name,stud(i).Num,stud(i).age,stud(i).addr Printstud(i).name;Tab(12);stud(i).Num;Tab(20);stud(i).age;Tab(30);stud(i).addr Nexti Close#1 EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件三、改变文本文件的内容三、改变文本文件的内容三、改变文本文件的内容三、改变文本文件的内容如果要编辑一个文件，先把它的内容读入到程序变量中，然后如果要编辑一个文件，先把它的内容读入到程序变量中，然后改

35、变这些变量，最后再把这些变量写回到该文件。改变这些变量，最后再把这些变量写回到该文件。1、打开文件。2、取出文件内容赋给一个变量。3、关闭文件。4、编辑变量内容。5、打开文件。6、变量存入文件。7、关闭文件。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件第五节第五节第五节第五节 随机文件随机文件随机文件随机文件一、基本操作模式一、基本操作模式一、基本操作模式一、基本操作模式 顺序文件就象盒式磁带机，因为如果想读取后面的数据就得把前面的数据先读过去。随机存取文件就象 CD，因为可以立即跳至你想听的那一首歌。随机存取文件是以记录（Structure）不单位来

36、存取的，在文件里数据放在一个个记录里。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件如果用户在程序中需要读取整个文件或文件中大块的数据，那么就应该使用顺序文件，但是，如果用户想从文件中指定的不同位置上读取数据块时，最好使用随机文件，随机文件也称为记录型文件，因为随机文件一般由一些长度相等的记录组成，所以在文件移动、搜索数据的速度就要比顺序文件快得多。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件在随机文件中，数据以定长记录为单位进行组织，以记录为单位进行管理，进行存取操作时，每次存取一个或者几个记录。每一个记录赋予

37、一个编号（或者说是位置序号），第一条记录的编号是 1，其它记录的编号依次往下编。进行定位时，以记录号为依据，进行读写操作时，必须给出记录号。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件基本的操作模式是：定义一个记录类型，用该类型定义一些记录型的变量，具体读写时，可将记录型变量的值写到文件中，或者，从文件中读出一个记录数据，赋给某个记录型的变量。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件如：定义一个存放通讯录的记录类型：Type stu nameAS String*8 num AS Integer age AS

38、 Integer addr AS String*20 EndType 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件由于记录式的特点，在文件中一个个记录按下列的形式排列：先存放第一条记录的各字段，再存放第二条记录的各字段，依次类推：NameNumAgeAddr NameNumAgeAddr NameNumAgeAddr 二、写操作二、写操作二、写操作二、写操作 Put Put Put Put 语句语句语句语句 格式：Put#文件号,记录号,记录型变量 功能：将记录型变量的值写到文件中指定的位置上。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据

39、文件数据文件数据文件数据文件如果在这个位置上原来有一个记录，则将其改之，如果是在文件的最后一条记录之后，则相当于添加一个记录。记录型变量是保存有需要写入的数据信息的记录型变量。记录号是你想放置数据的位置。在随机存取文件里第一个记录放在位置1，第二个记录放在位置 2，等等。记录号可以省略；如果省略记录号，则数据写到下一条记录的位置上；即总是写到下一条记录上；即最近执行 Put 或 Get 后的记录。由于总是不断地取下一条记录，所以在用循环处理时，比较方便；另外，省略记录号时，逗号不能省略。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件举例：有一个名为“c:

40、Da.txt”的随机文件，在其末尾添加若干个学生的记录；学生记录的类型同前；LastOne 变量用于表明文件已存在多少条记录；二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件PrivateSubCMDADD_Click()Static student as stu Dim SLength AsLong Dim LastOne AsLong SLength=Len(Student)Openc:Da.DatForRandomAs#1Len=SLength LastOne=LOF(1)Slength 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件

41、数据文件数据文件数据文件n=inputbox(请输入添加的学生数：)Fori=1TOn LastOne=LastOne+1 定位到最后一条记录后 student.name=inputbox(请输入下一位学生的姓名：)student.num=inputbox(学号：)student.age=inputbox(年龄：)student.addr=inputbox(家庭地址：)put#1,LastOne,student Nexti Close#1 EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件例：在上例中将第二个学生的记录进行替换：PrivateS

42、ubCMDEDIT_Click()Staticstudentasstu DimSLengthAsLong DimLastOneAsLong SLength=Len(Student)Openc:Da.DatForRandomAs#1Len=SLength LastOne=LOF(1)Slength 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件student.name=inputbox(姓名：)student.num=inputbox(学号：)student.age=inputbox(年龄：)student.addr=inputbox(家庭地址：)Put#

43、1,2,Student Close#1 EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件替换记录的要点：指定合适的位置，写一条记录时，把原有的一个记录替换了。通过清除记录字段的方法删除一个记录时，该空记录仍在文件中存在。通常文件中不能有空记录，因为它们会浪费空间且会干扰顺序操作。最好把余下的记录拷贝到一个新文件，然后删除旧文件。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件要清除随机访问文件中删除的记录，请按照以下步骤执行：1.创建一个新文件。2.把所有有用的记录从原文件复制到新文件。3.关闭原文件并用

44、 Kill 语句删除它。4.使用 Name 语句把新文件以原文件的名字重新命名。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件三、读操作三、读操作三、读操作三、读操作 Get Get Get Get语句语句语句语句 格式：Get 文件号,记录号,记录型变量 功能：可以从文件中读取一个记录保存到同一类型记录变量中。记录号参数是一个整数，它表示需要读取的记录位于随机文件中的序号，记录型变量用来保存读取的数据。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件例如：把前面建立的通讯录中的内容在窗体上显示出来。PrivateS

45、ubForm_click()Static student as stu Dim SLength As Long Dim LastOne As Long SLength=Len(Student)Openc:Da.DatFor Random As#1 Len=SLength LastOne=LOF(1)Slength Print 学号;Tab(12);姓名;Tab(20);年龄;Tab(30);家庭地址 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件Fori=1ToLastOne Get#1,i,student Printstudent.name;Tab(1

46、2);student.Num;Tab(20);student.age;Tab(30);student.addr Nexti Close#1 EndSub 二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件使用随机文件的优点：由于可以通过记录号直接存取文件中的任一条记录，所以可以提高其存取效率，加快存取速度；二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件第六节第六节第六节第六节 文件系统控件文件系统控件文件系统控件文件系统控件VisualBasic 提供了三个控件以对磁盘、文件夹和文件进行显示和选择操作，它们分别是：磁盘

47、列表框（DriveListBox）、文件夹列表框（DirListBox）和文件列表框（FileListBox）；它们在工具箱中分别：这三个控件可以单独使用，也可以任意组合使用，灵活性很大。名称前缀分别为：名称前缀分别为：DRVDRV、DIRDIR、FILFIL。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件一、磁盘列表框一、磁盘列表框一、磁盘列表框一、磁盘列表框在窗口中创建磁盘列表框，它就会自动显示电脑上或网络上的所有磁盘驱动器；1 1、主要属性：、主要属性：DriveDrive属性属性用来返回或设置运行时选择的驱动器名称，Drive属性的缺省值为当前驱

48、动器。用程序代码赋值：磁盘列表框名称.Drive=二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件软磁盘：“a：”或 “b：”等等硬盘：“c：硬盘卷标 ”网络连接驱动器：“x:servershare”等等Drive1.Drive=D:“二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、主要事件：、主要事件：Change()Change()改变改变 DriveDrive属性的设置值会激活磁盘列表框的属性的设置值会激活磁盘列表框的 ChangeChange事件事件。3 3、设置当前盘、设置当前盘实际上使用上述的方法并

49、不能改变当前驱动器。要要改变当前驱动器使用下列语句：改变当前驱动器使用下列语句：ChDriveDrive1.Drive二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件二、文件夹列表框二、文件夹列表框二、文件夹列表框二、文件夹列表框DirListBox 控件用来显示文件夹和路径。1 1、主要属性、主要属性 PathPath用来 返回或设置当前文件夹列表框的路径返回或设置当前文件夹列表框的路径，其缺省值是当前路径。使用语法使用语法：对象名称.Path=二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件2 2、主要事件：、主要

50、事件：Change()Change()Path 属性的改变将激发一个 Change事件。3 3、设置当前目录、设置当前目录若将选中折目录设置为当前目录使用如下语句：ChDir Dir1.Path二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件三、文件列表框三、文件列表框三、文件列表框三、文件列表框用来显示所选择文件类型的文件列表。在应用程序中创建文件列表框控件，可以通过它选择一个文件或者一组文件。二级VB程序设计教程第十四章第十四章第十四章第十四章 数据文件数据文件数据文件数据文件1 1、主要属性、主要属性文件列表框控件主要有两个属性：Path 属性和 F