《Visual Basic 6.0可视化编程与实训 教学课件 ppt 作者 于泽 主编 项目八 文件管理》由会员分享，可在线阅读，更多相关《Visual Basic 6.0可视化编程与实训 教学课件 ppt 作者 于泽 主编 项目八 文件管理（52页珍藏版）》请在金锄头文库上搜索。
1、项目八 文件管理,了解数据文件的概念及分类 理解顺序文件、随机文件等的特点 掌握顺序文件的控制 了解与文件使用有关的函数和语句,知识1 文件的概念,文件的分类：根据文件存储数据的性质可以分为程序文件和数据文件 程序文件：存储的是可以由计算机执行的程序，包括源文件和可执行文件等，在Visual Basic中的窗体文件、模块文件、类文件和工程文件等都是程序文件。 数据文件：存储的是各种数据。例如学生信息、职工工资等。这类数据必须通过程序存取和管理。,知识1 文件的概念,文件的分类： 根据文件的存取方式和结构分为顺序文件和随机文件 顺序文件：结构比较简单，文件中的记录一个接一个的顺序存放。在这种文件
2、中要读取某个数据，必须从文件头开始，一个记录一个记录地顺序读取。顺序文件适用于有一定规律且不经常修改的数据存储。 随机文件：又称直接存取文件。在随机文件中，每个记录的长度都是固定的，记录中字段的长度也是固定的，每个记录都有一个记录号。可以根据记录号，直接存取随机文件中的记录。,知识1 文件的概念,文件的分类： 根据文件中数据的编码方式可以分为ASCII码文件和二进制文件 ASCII码文件：又称文本文件，文件中的数据都是以ASCII码字符的方式存储的，这种文件可以用普通的字处理软件打开编辑（以纯文本文件方式保存）。 二进制文件：指文件的数据以二进制的方式存储，占用空间较小。但二进制文件不能用普通
3、的字处理软件进行编辑。,知识1 文件的概念,文件结构：Visual Basic文件由记录组成，记录由字段组成，字段由字符组成。 字符：是构成文件的最基本单位。 字段：由若干字符组成的一项数据。 记录：由一组相关字段组成。 文件：由记录构成，一个文件含有一个以上记录。,知识1 文件的概念,文件的基本操作 打开（或建立）文件：一个文件必须先打开或建立后才能使用。 对文件进行读、写操作：根据用户的需要，在打开或建立的文件上执行所要求的输入输出操作。 关闭文件：将数据写入文件，并释放相关的资源。,知识2 文件的打开操作,语句格式： Open pathname For mode Access acces
4、s lock As #filenumber Len=reclength Open 文件名 For方式Access存取类型锁定 As #文件号Len=记录长度,知识2 文件的打开操作,文件名 文件名应是全名，可以跟路径，默认当前路径，应是字符串型数据，注意双引号。可以是变量或函数。,知识2 文件的打开操作,文件的存取方式： Input：打开文件，用于读文件到内存。 Output：打开文件，用于新建文件，把内存中的内容写入文件。如果已经存在，则覆盖该文件。 Append：打开文件，用于把内存中的内容追加到文件的末尾。如果文件不存在，则和Input方式一样，用于新建文件。 Binary：以二进制方式
5、打开文件。 Random：以随机方式打开文件，这是缺省的操作方式，即当For关键字省略时，文件以随机方式打开。,知识2 文件的打开操作,Access 存取类型：用来指定存取文件的类型。 Read：以只读方式打开文件。 Write：以只写方式打开文件。 Write Read：以读写方式打开文件（允许读也允许写），这是缺省的方式。,知识2 文件的打开操作,锁定：用于在多用户或多进程环境中限制其他用户或进程对打开文件的操作。 Lock Shared：任何用户或进程都可以读写该文件。 Lock Read：不允许其他用户或进程读该文件。 Lock Write：不允许其他用户或进程写该文件。 Lock W
6、rite Read：不允许其他用户或进程读写该文件，这是锁定的缺省值。,知识2 文件的打开操作,文件号 文件号是用来标识打开文件的文件句柄，是一个整数表达式，其值在1511之间。对打开文件的读写操作都要使用文件号。,知识2 文件的打开操作,记录长度 记录长度是一个整型表达式。对于随机文件，该值是记录长度；对于顺序文件，该值是缓冲字符数；对于二进制文件，将忽略Len子句。,知识3 文件的关闭操作,语法格式： Close # 文件号 , # 文件号 Close语句用来结束文件的输入输出操作,知识3 文件的关闭操作,说明 Close语句用来关闭文件。文件号是用Open语句打开文件时，给文件分配的文件
7、号。 Close可以关闭多个文件，如果指定了文件号，则把指定的文件关闭；如果省略所有的文件号，则关闭打开的所有文件。 除了用Close语句关闭文件外，在程序结束时，系统将自动关闭所有打开的数据文件。,知识4 顺序文件的读操作,Input #语句 Input #语句语法格式为： Input #文件号,变量列表 说明： “变量列表”可以由一个或多个变量组成，这些变量可以是不同的数据类型。但应与文件读取的数据类型相匹配。 Input #语句把读出的数据赋给数值型变量时，遇到空格、回车、换行符或逗号则结束读取。,知识4 顺序文件的读操作,Line Input #语句 Line Input #语句用于从
8、文件中读取一个行，并把它赋给一个字符串变量。 语法格式为： Line Input #文件号,字符串变量,知识4 顺序文件的读操作,Input$函数 Input$函数用于从文件中读出n个字符作为返回值。 语法格式为： Input$(n,文件号),知识5 顺序文件的写操作,Print #语句 Print #语句的语法格式如下： Print #文件号,Spc(n)|Tab(n) 表达式 ;|, Print #语法中除了比Print方法多了一个文件号，其他各参数，包括Spc函数、Tab函数、“表达式”以及尾部的分号、逗号都和Print方法相同。,知识5 顺序文件的写操作,Print #语句说明： 如果
9、Print #语句后面的“表达式”省略，则向文件中写入一个空行。如果Print #语句最后一项参数后面没有以分号或逗号结束，则下次Print #语句将把数据写到文件的下一行。 Print #语句的各项参数直接可以用分号或逗号隔开，分别对于紧凑格式和标准格式。 为了能正确读取输出的文件，除了数值数据可以用Print #语句写入到文件外，其他类型的数据尽量使用Write #语句写入。,【案例8.1】 随机生成50个150间的正整数，并存入到文件“abc1.dat”中,Private Sub Command1_Click() Dim i As Integer, x As Integer Random
10、ize Open “abc1.dat“ For Output As #1 For i = 1 To 50 x = Int(Rnd * 50) + 1 Print #1, x; Next End Sub,知识5 顺序文件的写操作,Wrtie #语句 语法格式为： Write #文件号,表达式 Write #语句没有Spc函数和Tab函数来控制输出位置。 表达式依然可以由多项组成，各项之间用逗号或分号分隔。 用Write #语句向文件写数据的时候，数据以紧凑格式存放。但Write #语句能自动在各项数据之间插入逗号，并给字符串数据两端加上双引号。,【案例8.2】 输入3个学生的学号、姓名、年龄并保
11、存到文件“abc2.dat”中,Private Sub Command1_Click() Dim i As Integer, age As Integer Dim name As String, num As String Open “abc2.dat“ For Output As #1 For i = 1 To 3 num = InputBox(“请输入学号：“) name = InputBox(“请输入姓名：“) age = Val(InputBox(“请输入年龄：“) Write #1, num, name, age Next Close #1 End Sub,【案例8.3】下面的语句建
12、立一个新文件123.dat，并存入1至10个数字,Cls Open “123.dat“ For Output As #1 打开一个文件名为123.dat的文件用于写。 For i = 1 To 10 Print #1, i; Next i Close #1 关闭和文件号为1 的文件的关联。 End,【案例8.4】把刚才建立的文件123.dat的文件内容读出来，输出到屏幕上,Cls Open “123.dat“ For Input As #1 For i = 1 To 10 Input #1, i Print i; Next i Close #1,【案例8.5】以下程序代码可以说明同时在Inpu
13、t模式下分配两个文件号码,a$ = “123.dat“ Open a$ For Input As #1 Open a$ For Input As #2 Input #1, i For i = 1 To 9 Input #1, y Input #2, z Print y; z; Next i Close #1, 2,【案例8.6】现在你可以把密码保存到一个文件里，程序运行时再把文件内容读到变量里，再和输入的内容比较，如果不对，则认为密码不正确,1）建立一个新的工程，并在窗体上按要求放置各个控件。,【案例8.6】现在你可以把密码保存到一个文件里，程序运行时再把文件内容读到变量里，再和输入的内容比较
14、，如果不对，则认为密码不正确,2）双击Command1，在代码编辑器中输入如图中的代码。,知识6 文件的读写相关函数,FreeFile函数 使用FreeFile函数可得到一个在程序中没有使用的文件号，该函数返回一个整型数据。 函数语法格式： FreeFile(范围) 参数“范围”是可选参数，用来决定返回的文件号的取值范围。缺省值为0，当参数为0时，则返回一个介于1255之间的文件号。为1时，则返回一个介于256511之间的文件号。,知识6 文件的读写相关函数,Loc函数 Loc函数返回由“文件号”指定的文件的当前读写位置,是一个长整型值。 语法格式： Loc(文件号) Loc函数对于随机文件，
15、返回上一次读取或写入的记录号；对于二进制文件，返回上一次读取或写入的字节位置；对于顺序文件，返回的是该文件打开以来读或写的记录个数，一个记录是一个数据块。,知识6 文件的读写相关函数,LOF函数 LOF函数返回一个长整型值，表示用Open语句打开的文件的大小，该大小以字节为单位。 语法格式： LOF(文件号) 例如： Open “in.dat“ For Input As #1 FileLength =LOF(1) 取得文件长度 Close #1,知识6 文件的读写相关函数,EOF函数 EOF函数用于测试文件的结束标志，可以避免因试图在文件结尾处进行输入而产生的错误。 语法格式： EOF(文件号
16、),知识6 文件的读写相关函数,EOF函数通常用来在循环读数据时测试是否已到文件尾，例如： Open “in.out“ For Input As #1 Do While Not Eof(1) 利用循环读取数据，一直读到文件尾 Input #1, a 把读出的数据赋予变量a Loop Close #1,课堂练习 文件的建立与读取,1）建立新文件：选择一个新的文件名，如abc123.txt. 2）选择文件的读取方式：选择Output。 3）选择文件号：选择1号文件。 4）写出相应语句： Open “abc123.txt” For Output As #1 5）输入文件内容,1至10个数字，换行输入 For i=1 To 10 Print #1,i; Next i 6）保存：保存文件名为 test.bas。,拓展1 随机文件的使用,随机文件的读写操作一般分为以下4步： 1）用TypeEnd Type语句定义数据类型。 2）以随机方式打开文件。格式如下：
