《全国计算机考试.ppt》由会员分享，可在线阅读，更多相关《全国计算机考试.ppt（24页珍藏版）》请在三一办公上搜索。
1、VB程序设计,VB语言程序设计,文 件,文件,文件的基本概念,文件控制,顺序文件,结束,上一页,下一页,返回,随机文件,二进制文件,数 据 文 件,顺序文件,随机文件,二进制文件,结束,上一页,下一页,8.1.2文件结构和分类,1.文件结构,Visual Basic的文件由记录组成，记录由字段组成，字段由字符组成,2.文件种类,根据数据性质分为：,程序文件,数据文件,根据数据的存取方式和结构分为：,顺序文件,随机文件（直接存取文件）,根据数据的编码方式分为：,ASCII文件（文本文件）,二进制文件,8.2 文件的读写,文件：存储在外部介质上数据的集合。,2.文件及其种类 文件是记录的集合。顺序
2、访问模式：顺序文件，记录可长可短；随机访问模式：随机文件，记录的长度相同；二进制访问模式：二进制文件（可认为记录长度为1）。,按名存取,1.记录由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录：,(1)顺序文件按顺序依次把记录写入文件；按顺序依次把记录读出来。,文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。(2)随机文件随机文件可以直接访问文件中的任意一个记录。记录长度相同；根据记录号访问；,(3)二进制文件直接把二进制码存放在文件中。,FreeFile函数：得到一个在程序中没有使用的文件号。Loc函数：返回由“文件号”指定的文件的当前读写位置。LOF(文件
3、号)：返回文件的长度(总字节数)。EOF(文件号)：用来测试文件的结束状态。指针在文件尾时，EOF函数为True，否则为False。,1.打开文件Open 文件名 For 模式 As#文件号 Len=记录长度(1)模式OUTPUT：写操作；INPUT：读操作；APPEND：追加到文件末尾。(2)文件号1511，可以用FreeFile函数获得下一个可利用的文件号。(3)记录长度小于或等于32767的整数，它指定数据缓冲区的大小。,一、顺序访问模式,打开文件,读出或写入,关闭文件,例如，打开C:VBSCORE，供写入数据，指定文件号为#1。OPEN C:VBSCORE FOR OUTPUT AS#
4、12.写入命令Print#文件号，Spc(n)|Tab(n)表达式表;|,利用Print#语句，可以向文件中写入多种格式的数据，例：Open“c:test.dat”For Output As#1 Print#1,“Hello”将字符串写入文件 Print#1,将空白行写入文件 Print#1,Spc(4);”How Do you do?”在字符串前加4个空格,Print#1,Tab(20);“Fine,Thank you.”从第20列开始写数据Close#1例1：private Sub Form_Click()Open“a:Testtel.dat”For Output As#1 Tpname$
5、=InputBox(“请输入姓名:”,“数据输入”)tptel$=InputBox(“请输入电话号码:”,“数据输入”),TpAssr$=InputBox(“请输入地址:”,“数据输入”)Print#1,Tpname$,tptel$,TpAssr$Close#1End Sub保存文本框 假定文本框的名称为Text1，文件名TEST.DAT。方法1：把整个文本框的内容一次性地写入文件。Open TEST.DAT For Output As#1 Print#1,Text1 Close#1,方法2：把整个文本框的内容一个字符一个字符地写入文件。Open TEST.DAT For Output As#
6、1For i=1 To len(Text1)Print#1,Mid(Text1,i,1);Next iClose#1 Write#文件号，输出列表 紧凑格式。数据项之间插入“,”，并加上双引号,用Write#语句写入时，文件必须以Output或Append方式打开；用Write#语句写入的正数的前面没有空格。例如，命令：Write#1,One,Two,123内容：One,Two,123例2:在磁盘上建立一个电话号码文件，存放单位名称和该单位的电话号码。private Sub Form_Click()Open“a:Teltel.dat”For Output As#1 unti$=InputBox
7、(“Enter unit:”)While Ucase(unit$)“DONE”tel$=InputBox(“Enter unit:”),Write#1,unti$,tel$unti$=InputBox(“Enter unit:”)Wend Close#1End Sub3.关闭文件Close#文件号,#文件号.例如，Close#1,#2,#3,4.读顺序文件INPUT#文件号,变量列表Input#语句从一个已经打开的顺序中读出的每个数据项分别存放到所对应的变量。例3：用Windows自带的“记事本”程序创建一个顺序文件Testdata.dat。该文件内包含若干整型数据，各数据间用空格分开。编写一
8、个程序，找出该文件中的最大值、最小值和平均值，并在窗体上打印出来。private Sub Form_Click()Dim maxnum As Integer Dim minnum As Integer Dim temp As Integer,Dim total As Double Dim mean As Double Dim counter As Integer Open“Testdata.dat”For Input As#1 While Not Eof(1)Input#1,temp counter=counter+1 统计数据个数 total=total+temp 求出所有数值之和 初始化最
9、大值，最小值为文件中的第一个数据 If(counter=1)Then maxnum=temp minnum=temp End If,找到最大值 If(temp maxnum)Then maxnum=temp End If 找到最小值 If(temp minnum)Then minnum=temp End If Wend Close#1 mean=total/counter 求出平均值 Print“最大值为”;maxnum,Print“最小值为”;minnum Print“平均值为”;meanEnd Sub LINE INPUT#文件号,字符串变量读一行到变量中，主要用来读取文本文件。例4：建立
10、一个工程，在该工程中新建一个名为Form1的窗体，窗体名为Form1.frm。编写程序，将Form1.frm的内容显示在文本框中。在窗体上画一个文本框Text1，为了完整显示Form1.frm的内容，在属性窗口中将文本框的MultiLine属性设置为True，ScrollBars属性设置为2。程序如下：,private Sub Form_Click()Dim txtline As String Dim wholetxt As String Open“Form1.frm”For Input As#1 Do While Not EOF(1)Line Input#1,txtline wholetxt
11、=wholetxt+txtline+Chr$(13)+Chr$(13)Loop Text1.Text=wholetxt Close#1End Sub,INPUT$(读取字符数,#文件号)随意读取字符例5：编写一个程序，用INPUT$函数从文件中一次读出一个数据并在窗体上显示出来，直到所有的数据都被读出为止。private Sub Form_Click()Dim OneChar Open“Testdata.dat”For Input As#1 Do While Not EOF(1)OneChar=Input$(1,#1)Print OneChar;Loop Close#1End Sub,读文本文
12、件到文本框 假定文本框名称为Text1，文件名为MYFILE.TXT。方法1：一行一行读Text1.Text Open MYFILE.TXT For Input As#1Do While Not EOF(1)Line Input#1,InputData Text1.Text Text1.Text+InputData+vbCrLfLoopClose#1,方法2：一次性读Text1.Text Open MYFILE.TXT For Input As#1Text1.Text=Input$(LOF(1),1)Close#1方法3：一个个字符读Dim InputData as String*1Text1.Text Open MYFILE.TXT For Input As#1Do While Not EOF(1)InputData=Input$(1,#1)Text1.Text Text1.Text+InputDataLoopClose#1,二、随机文件,1.打开Open 文件名 For Random As#文件号 Len=记录长度2.写操作Put#文件号，记录号，变量名将一个记录变量的内容写到指定的记录位置处。忽略记录号，则表示在当前记录后的位置插入一条记录。3.读操作Get#文件号，记录号，变量名忽略记录号，则读出当前记录后的那一条记录。,
