《VB电子讲稿》PPT课件

《《VB电子讲稿》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8数据文件文件是指存放在外存储器(如磁盘)上的信息集合使用文件可以将应用程序所处理的数据以文件的形式保存起来程序文件和数据文件本章主要内容数据文件概述顺序文件随机文件文件基本操作文件系统对象(FSO)简介第8章数据文件8.1.1数据文件的结构数据文件由记录组成，记录由字段组成，字段由字符组成记录1数据文件记录2…………学号姓名951001张三…学号姓名951002李四…字段8.1数据文件概念(1)顺序文件：文本文件。文件中的记录按顺序一个接一个地排列。无法灵活地随意存取它。只适用于有规律的、不经常修改的数据(2)随机文件：随机文件的每一个记录都有固定的长度，每一个记录都有

2、记录号，这种文件的特点是允许用户存取文件中任一个记录。可以同时进行读或写操作存入和读出速度较快，数据容易更新(3)二进制文件：可理解为长度为1的特殊的随机文件8.1.2文件类型(1)打开(或新建)文件(2)进行读、写操作系统设置文件指针，用来记住当前读写的位置(3)关闭文件8.1.3文件处理的一般步骤1.打开文件(Open)Open文件名[For模式][Access存取类型][锁定]As[#]文件号[Len=记录长度]说明：(1)文件名；(2)模式用于指定文件访问的方式，包括：Append——从文件末尾添加Binary——二进制文件Input——顺序输入Output——顺序输出Ra

3、ndom——随机存取方式(3)文件号(或称文件缓冲区)(4)存取类型：访问文件的类型，为Read(只读)、Write(只写)、ReadWrite(读写)(5)锁定：限制其他用户或其他进程对文件进行读写操作Shared(共享)、LockRead(禁止读)、LockWrite(禁止写)、LockReadWrite(禁止读写)(6)Len：用来指定每个记录的长度(字节数)示例：Open"d:cj1.dat"ForOutputAs#18.1.4文件的打开和关闭2.关闭文件(Close)打开的文件使用完后必须关闭。关闭文件的语句格式：Close[#]文件号1[,[#]文件号2…]]示例：Cl

4、ose#11.FreeFile函数格式：FreeFile功能：返回一个在程序中没有使用的文件号示例：FileNo=FreeFileOpen"D:MyFile.txt"ForOutputAsFileNo2.Seek语句和Seek函数Seek函数的格式：Seek(文件号)功能：返回文件指针的当前位置对于随机文件，Seek函数返回指针当前所指的记录号。对于顺序文件，Seek函数返回指针所在的当前字节位置(从头算起的字节数)Seek语句的格式：Seek[#]文件号，位置功能：将指定文件的文件指针设置在指定位置，以便进行下一次读或写操作对于随机文件，“位置”是一个记录号；对于顺序文件，

5、“位置”表示字节位置8.1.5相关的语句和函数3.Eof函数格式：Eof(文件号)功能：测试与文件号相关的文件是否已达到文件的结束位置。如果是，函数值为真值，否则为假值。使用Eof是为了避免在文件结束处读取数据而发生错误4.Lof函数格式：Lof(文件名)功能：返回与文件号相关的文件的总字节数5．Loc函数格式：Loc(文件号)功能：返回与文件号相关的文件的当前读写位置8.2.1顺序文件的写入操作以Output或Append方式打开文件，然后使用Write#语句或Print#语句将数据写入文件中1.Write语句格式：Write#文件号[，表达式表]功能：将表达式的值写到与文件

6、号相关的顺序文件中每个Write语句向顺序文件写入一个记录(不定长)，它会自动地用逗号分开每个表达式的值。给字符串加上双引号在最后一个字符写入后，插入一个回车换行符(Chr(13)+Chr(10))，以此作为记录结束的标记。示例：Write#1,"GoodAfternoon",19988.2顺序文件把1～50的50个整数，以及这些数中能被7整除的数分别存入两个文件中，文件名为num1和num2，文件存放在VB缺省文件夹下PrivateSubForm_Load()Open"num1.txt"ForOutputAs#1Open"num2.txt"ForOutputAs#2Fori=1To

7、50Write#1,iIfiMod7=0ThenWrite#2,iNextiClose#1,#2UnloadMeEndSub说明：num1.txt文件中一共写入50个记录，而num2.txt文件只写入其中能被7整除的若干个记录例8.1把1～50各数及能被7整除的数分别存入两个文件中在例8.1所生成的num2.txt文件中，存放了若干个能被7整除的数，现要求再加入51～200范围内能被7整除的数程序代码如下：PrivateSubFor