VB教程第8章教案

《VB教程第8章教案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8程序中经常需要将大量数据信息作为数据文件存储在磁盘上。VB可以处理三种类型的数据文件，即顺序文件、随机文件和二进制文件，并且提供了与文件处理有关的控件。数据文件与文件管理文件是指存放在外存储器(如磁盘)上的信息集合两大类文件：程序文件和数据文件可以将应用程序所处理的数据以文件的形式保存起来本章主要内容第8章数据文件与文件管理数据文件概述数据文件文件系统控件文件基本操作文件系统对象(FSO)退出磁盘数据文件内存通过程序来实现数据存取操作存取数据程序文件8.1.1数据文件的基本结构1.数据文件的结构数据文件由记录组成，记录由字段组成，字段由字符组成记录1数据文件

2、记录2…………学号姓名951001张三…学号姓名951002李四…字段8.1数据文件(1)顺序文件：文本文件。文件中的记录按顺序一个接一个地排列。只能按记录的先后顺序进行存取。(2)随机文件：随机文件的每一个记录都有固定的长度，每一个记录都有记录号，这种文件的特点是允许用户存取文件中任一个记录。可以同时进行读或写操作存入和读出速度较快，数据容易更新(3)二进制文件：可理解为长度为1的特殊的随机文件2.文件类型记录1记录2记录3……按记录顺序进行存取操作记录1记录2记录3……允许存/取任一个记录如存入记录3，再读取记录2(1)打开(或新建)文件(2)进行读、写

3、操作系统设置文件指针，用来记住当前读写的位置(3)关闭文件3.文件处理的一般步骤1.打开文件(Open)Open文件名[For模式][Access存取类型][锁定]As[#]文件号[Len=记录长度]说明：模式用于指定文件访问的方式，包括：Append——从文件末尾添加Binary——二进制文件Input——顺序输入Output——顺序输出Random——随机存取方式文件号(或称文件缓冲区)：1～511的整数长度Len：用来指定每个记录的长度(字节数)示例：Open"d:cj1.dat"ForOutputAs#12.关闭文件(Close)打开的文件使用完后

4、必须关闭。关闭文件的语句格式：Close[#]文件号1[,[#]文件号2…]]示例：Close#14文件的打开和关闭1.顺序文件的写入操作以Output或Append方式打开文件使用Write#语句或Print#语句将数据(一个不定长记录)写入文件中2.顺序文件的读出操作以Input方式打开文件采用Input#或LineInput#语句从文件中读出数据8.1.2顺序文件Input或LineInput磁盘Write或Print顺序文件内存写入数据读出数据格式：Write#文件号[,表达式表]Input#文件号,变量名表把1～50的50个整数，以及这些数中能被7整

5、除的数分别存入两个文件中，文件名为num1和num2，文件存放在VB缺省文件夹下PrivateSubForm_Load()Open"num1.txt"ForOutputAs#1Open"num2.txt"ForOutputAs#2Fori=1To50Write#1,iIfiMod7=0ThenWrite#2,iNextiClose#1,#2UnloadMeEndSub说明：num1.txt文件中一共写入50个记录，而num2.txt文件只写入其中能被7整除的若干个记录例8.1把1～50各数及能被7整除的数分别存入两个文件中例8.1已知文件“num2.txt”中存

6、放一批能被7整除的数(见例8.1)，现要求把这些数显示出来。每行显示4个数。PrivateSubForm_Load()ShowOpen"num2.txt"ForInputAs#1DoWhileNotEOF(1)'文件未结束时，循环Input#1,xPrintxLoopClose#1EndSub例8.2从文件“num2.txt”中读取数据例8.2随机文件中每一个记录定长，并设置记录号(从1开始)。存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置(1)使用Type…EndType语句定义一个记录类型，该类型包括多个数据项，并与文件中记录应包括的域一致。

7、(2)指定Random类型打开文件，记录定长，打开文件后，就可以存或取任一个记录。(3)分别通过Get和Put语句，并指定记录号进行读一个记录或存一个记录8.1.3随机文件Put记录磁盘随机文件内存写入数据读出数据Get记录格式：Get#文件号,[记录号],变量Put#文件号,[记录号],变量例8.5建立一个随机文件，文件中包含10个记录，每个记录由一个数(1至10)的平方、立方和开方根三个数值组成，以该数作为记录号。存入全部记录后,再读出其中3个记录。(1)通过Type...EndType语句定义记录类型：PrivateTypeNumval‘定义一个Numva

8、l类型的变量nvSqur