《全国计算机考试》PPT课件

1,VB程序设计,VB语言程序设计,文件,2,文件,文件的基本概念,文件控制,顺序文件,结束,上一页,下一页,返回,随机文件,二进制文件,数据文件,顺序文件,随机文件,二进制文件,结束,上一页,下一页,4,8.1.2文件结构和分类,1.文件结构,VisualBasic的文件由记录组成，记录由字段组成，字段由字符组成,2.文件种类,根据数据性质分为：,程序文件,数据文件,5,根据数据的存取方式和结构分为：,顺序文件,随机文件（直接存取文件）,根据数据的编码方式分为：,ASCII文件（文本文件）,二进制文件,6,8.2文件的读写,文件：存储在外部介质上数据的集合。,2.文件及其种类文件是记录的集合。顺序访问模式：顺序文件，记录可长可短；随机访问模式：随机文件，记录的长度相同；二进制访问模式：二进制文件（可认为记录长度为1）。,按名存取,1.记录由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录：,7,(1)顺序文件按顺序依次把记录写入文件；按顺序依次把记录读出来。,文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。(2)随机文件随机文件可以直接访问文件中的任意一个记录。记录长度相同；根据记录号访问；,(3)二进制文件直接把二进制码存放在文件中。,8,FreeFile函数：得到一个在程序中没有使用的文件号。Loc函数：返回由“文件号”指定的文件的当前读写位置。LOF(文件号)：返回文件的长度(总字节数)。EOF(文件号)：用来测试文件的结束状态。指针在文件尾时，EOF函数为True，否则为False。,9,1.打开文件Open文件名For模式As#文件号Len=记录长度(1)模式OUTPUT：写操作；INPUT：读操作；APPEND：追加到文件末尾。(2)文件号1511，可以用FreeFile函数获得下一个可利用的文件号。(3)记录长度小于或等于32767的整数，它指定数据缓冲区的大小。,一、顺序访问模式,打开文件,读出或写入,关闭文件,10,例如，打开C:VBSCORE，供写入数据，指定文件号为#1。OPENC:VBSCOREFOROUTPUTAS#12.写入命令Print#文件号，Spc(n)|Tab(n)表达式表;|,利用Print#语句，可以向文件中写入多种格式的数据，例：Open“c:test.dat”ForOutputAs#1Print#1,“Hello”将字符串写入文件Print#1,将空白行写入文件Print#1,Spc(4);”HowDoyoudo?”在字符串前加4个空格,11,Print#1,Tab(20);“Fine,Thankyou.”从第20列开始写数据Close#1例1：privateSubForm_Click()Open“a:Testtel.dat”ForOutputAs#1Tpname$=InputBox(“请输入姓名:”,“数据输入”)tptel$=InputBox(“请输入电话号码:”,“数据输入”),12,TpAssr$=InputBox(“请输入地址:”,“数据输入”)Print#1,Tpname$,tptel$,TpAssr$Close#1EndSub保存文本框假定文本框的名称为Text1，文件名TEST.DAT。方法1：把整个文本框的内容一次性地写入文件。OpenTEST.DATForOutputAs#1Print#1,Text1Close#1,13,方法2：把整个文本框的内容一个字符一个字符地写入文件。OpenTEST.DATForOutputAs#1Fori=1Tolen(Text1)Print#1,Mid(Text1,i,1);NextiClose#1Write#文件号，输出列表紧凑格式。数据项之间插入“,”，并加上双引号,14,用Write#语句写入时，文件必须以Output或Append方式打开；用Write#语句写入的正数的前面没有空格。例如，命令：Write#1,One,Two,123内容：One,Two,123例2:在磁盘上建立一个电话号码文件，存放单位名称和该单位的电话号码。privateSubForm_Click()Open“a:Teltel.dat”ForOutputAs#1unti$=InputBox(“Enterunit:”)WhileUcase(unit$)“DONE”tel$=InputBox(“Enterunit:”),15,Write#1,unti$,tel$unti$=InputBox(“Enterunit:”)WendClose#1EndSub3.关闭文件Close#文件号,#文件号.例如，Close#1,#2,#3,16,4.读顺序文件INPUT#文件号,变量列表Input#语句从一个已经打开的顺序中读出的每个数据项分别存放到所对应的变量。例3：用Windows自带的“记事本”程序创建一个顺序文件Testdata.dat。该文件内包含若干整型数据，各数据间用空格分开。编写一个程序，找出该文件中的最大值、最小值和平均值，并在窗体上打印出来。privateSubForm_Click()DimmaxnumAsIntegerDimminnumAsIntegerDimtempAsInteger,17,DimtotalAsDoubleDimmeanAsDoubleDimcounterAsIntegerOpen“Testdata.dat”ForInputAs#1WhileNotEof(1)Input#1,tempcounter=counter+1统计数据个数total=total+temp求出所有数值之和初始化最大值，最小值为文件中的第一个数据If(counter=1)Thenmaxnum=tempminnum=tempEndIf,18,找到最大值If(tempmaxnum)Thenmaxnum=tempEndIf找到最小值If(tempminnum)Thenminnum=tempEndIfWendClose#1mean=total/counter求出平均值Print“最大值为”;maxnum,19,Print“最小值为”;minnumPrint“平均值为”;meanEndSubLINEINPUT#文件号,字符串变量读一行到变量中，主要用来读取文本文件。例4：建立一个工程，在该工程中新建一个名为Form1的窗体，窗体名为Form1.frm。编写程序，将Form1.frm的内容显示在文本框中。在窗体上画一个文本框Text1，为了完整显示Form1.frm的内容，在属性窗口中将文本框的MultiLine属性设置为True，ScrollBars属性设置为2。程序如下：,20,privateSubForm_Click()DimtxtlineAsStringDimwholetxtAsStringOpen“Form1.frm”ForInputAs#1DoWhileNotEOF(1)LineInput#1,txtlinewholetxt=wholetxt+txtline+Chr$(13)+Chr$(13)LoopText1.Text=wholetxtClose#1EndSub,21,INPUT$(读取字符数,#文件号)随意读取字符例5：编写一个程序，用INPUT$函数从文件中一次读出一个数据并在窗体上显示出来，直到所有的数据都被读出为止。privateSubForm_Click()DimOneCharOpen“Testdata.dat”ForInputAs#1DoWhileNotEOF(1)OneChar=Input$(1,#1)PrintOneChar;LoopClose#1EndSub,22,读文本文件到文本框假定文本框名称为Text1，文件名为MYFILE.TXT。方法1：一行一行读Text1.TextOpenMYFILE.TXTForInputAs#1DoWhileNotEOF(1)LineInput#1,InputDataText1.TextText1.Text+InputData+vbCrLfLoopClose#1,23,方法2：一次性读Text1.TextOpenMYFILE.TXTForInputAs#1Text1.Text=Input$(LOF(1),1)Close#1方法3：一个个字符读DimInputDataasString*1Text1.TextOpenMYFILE.TXTForInputAs#1DoWhileNotEOF(1)InputData=Input$(1,#1)Text1.T