《第五章文件》由会员分享，可在线阅读，更多相关《第五章文件（32页珍藏版）》请在金锄头文库上搜索。
1、1,第10章 文 件,10.1 操作文件的控件 10.2 文件及其结构 10.3 顺序文件 10.4 随机文件 10.5 二进制文件 本章总结,2,例：一个文件管理器的界面,10.1 操作文件的控件,3,常用属性：Name Drive属性 ：在程序运行中使用。返回用户所选(单击)驱动器。可在程序中用赋值语句改变其值。对象.Drive = drive例：Drv1.Drive=“C” 常用事件： Change事件重新设置Drive属性引发Change事件,10.1.1 驱动器列表框,4,常用属性：Name Path属性:设置或返回目录列表框中当前目录.只能在程序代码中设置(运行时属性).对象.Pa
2、th = pathname 例：Dir1. Path=“C:ProgramVB5”,10.1.2 目录列表框,5,常用事件: Change事件重新设置Path属性引发Change事件注意:单击目录列表框中某一项目,此项突出显示,但并没改变Path值,只有双击才会改变Path值.,10.1.2 目录列表框,6,常用属性：Name 1) Path属性：设置或返回文件列表框中所显示文件的路径. 只能在程序代码中设置(运行时属性). 对象.Path = pathname重新设置Path属性引发“PathChange”事件, 且文件列表框内容被更新,显示由Path属性指定目录的文件.,10.1.3 文件
3、列表框,7,2) Pattern属性：设置运行时显示的文件类型。既可在属性窗口设置，也可在程序代码中设置。默认为“*.*”, 即所有文件.对象.Pattern = value重新设置Pattern属性引发“PatternChange”事件。 例如：File1.Pattern = “*.frm”表示只显示*.frm文件,10.1.3 文件列表框,8,3) FileName属性(运行属性)对象.FileName = pathname注意：引用时仅仅返回文件名，需用Path属性得到其路径；但用赋值语句设置时可带路径例：FilFile1.FileName = “C:Config.sys”这时,文件列表
4、框的Path属性也会改变.,10.1.3 文件列表框,9,4)文件列表框的 Click、DblClick事件：例1：单击输出文件名。Sub File1_Click( )MsgBox File1.FileNameEnd Sub例2：双击执行可执行程序Sub File1_DblClick( )RetVal = Shell(File1.FileName, 1) End Sub,10.1.3 文件列表框,10,文件系统控件组合使用的核心代码：,Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Cha
5、nge()File1.Path = Dir1.Path End Sub例10-1,11,10.2 文件及其结构,文件：存储在外部介质上数据的集合。按名存取 1.记录: 由若干个相互关联的数据项组成。例如：由学生的学习成绩信息组成的记录：,12,按存取方式及组成结构分类,顺序文件,随机文件,2. 文件及其种类文件是记录的集合,按数据编码 方式分类,ASCII码文件,二进制文件,10.2 文件及其结构,13,(1) 顺序文件按顺序依次把记录写入文件；按顺序依次把记录读出来。文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。,10.2 文件及其结构,14,(2) 随机文件随机文件可以直
6、接访问文件中的任意一个记录。记录长度相同, 根据记录号访问每条记录。,10.2 文件及其结构,15,(3) ASCII码文件数据是以ASCII码进行编码储存的。 (4) 二进制文件(Binary File)数据是以二进制格式进行编码保存的。,10.2 文件及其结构,16,1. 打开文件,10.3 顺序文件,Open “文件名“ For 模式Access 操作类型 锁定 As #文件号 Len=记录长度,(1)模式 Output:写入操作 Input：读出操作 Append:追加到文件未尾,(2)操作类型Read：只读Write：只写ReadWrite：读写皆可,17,(3) 锁定Shared(
7、缺省)Lock ReadLock WriteLock Read Write,(4) 文件号:1511可以用FreeFile函数获得下一个可利用的文件号。,10.3 顺序文件,Open “文件名“ For 模式Access 操作类型 锁定 As #文件号 Len=记录长度,18,(5) 记录长度小于或等于32767的整数。它指定数据缓冲区的大小。例如，打开C:VBdata1.txt，供写入数据，指定文件号为#1。 命令为：Open “C:VBdata1.txt“ For Output As #1 注意：P278说明,10.3 顺序文件,Open “文件名“ For 模式Access 操作类型锁定
8、 As #文件号 Len=记录长度,19,2. 写入命令 （1）Print 命令,Print #文件号，输出列表,10.3 顺序文件,输出列表的意义同Print方法。例10-2,20,（2）Write 命令,Write #文件号，输出列表,10.3 顺序文件,输出列表：用“,”分隔的表达式。以紧凑格式存放，即在数据项之间插入“,”并给字符串加上双引号。例如，命令：Write #1, “One“, “Two“, 123内容：“One“, “Two“, 123 例10-3,21,3. 关闭文件,Close #文件号,#文件号.,10.3 顺序文件,例如: Close #1Close #1, #2,
9、 #3 命令Close作用：关闭所有已打开的文件。,22,4. 读顺序文件（三种格式）格式一：把读出的每个数据项分别存放到所对应的变量。 注意：要用此命令读顺序文件，必须要求此文件中的数据应先用命令Write命令写入。,Input #文件号,变量列表,10.3 顺序文件,23,例如文件Test.dat内容为：“One” , “Two” , 123Open “Test.datT“ For Iutput As #1Input #1，str1,str2,num例10-6,10.3 顺序文件,Input #文件号,变量列表,24,格式二：读一行到变量中，主要用来读取文本文件。,Line Input #
10、文件号,字符串变量,Input$(读取字符数,#文件号),10.3 顺序文件,格式三：随意读取字符。例10-7,25,5. 读文件（包括随机、二进制）时常用的重要函数LOF(文件号) 返回文件的长度(总字节数)。EOF(文件号)文件结束：返回True(-1) 否则：False(0)。,10.3 顺序文件,26,LOC(文件号) 返回读写位置。随机文件：返回最近读写的记录号；二进制文件：返回最近读写的一个字节的位置。,10.3 顺序文件,27,10.4 随机文件,1.打开Open “文件名“ For Random As #文件号 Len=记录长度 2.写操作Put #文件号，记录号，变量名将一个
11、记录变量的内容写到指定的记录位置处。忽略记录号，则表示在当前记录后的位置插入一条记录。,28,10.4 随机文件,3.读操作Get #文件号，记录号，变量名忽略记录号，则读出当前记录后的那一条记录。,29,自定义类型,格式: Type 自定义类型名元素名(下标) As 类型名元素名(下标) As 类型名End Type,10.4 随机文件,30,例: 类型定义：Type StudTypeiNo As Integer strName As String*20strSex As String*1sMark(1 To 4) As SingleStotal as SinglefTag as Boole
12、anEnd Type变量说明：Dim Student1 AS StudType,10.4 随机文件,31,自定义变量引用格式：变量名. 元素名 例:Student1. iNo=102Student1. strName=“王小丽”,10.4 随机文件,32,本 章 总 结,文件是长久保存数据的有效且简便的方法。VB6.0支持三种类型的文件：顺序文件、随机文件和二进制文件。应用程序在读文件或写文件之前，必须首先打开文件，完成文件操作后，使用Close语句关闭文件。为了方便用户操作和提高应用程序的灵活性，应用程序通常都应该提供让用户选择要操作文件的手段。驱动器、目录列表框和文件列表框控件结合在一起，就实现了让用户自由选择要操作的文件的方法。,
