《2011年9月二级VB等级考试辅导第8次课》由会员分享，可在线阅读，更多相关《2011年9月二级VB等级考试辅导第8次课（39页珍藏版）》请在金锄头文库上搜索。
1、CopyRight2009 SWPUNCRE All Rights Reserved2011年9月等级考试辅导二级Visual B第八讲 文件随机文件2顺序文件1文件控件3多窗体4文件操作步骤打开文件打开文件文件读文件读/ /写写关闭文件关闭文件把内存中的数据传输到相关联的外部设备（如磁盘） 并作为文件存放的操作叫做写数据（输出Output）。 把数据文件中的数据传输到内存中的操作叫做读数据 （输入Input）。即：内存 外设叫做输出或写外设 内存 叫做输入或读顺序文件和随机文件（1）顺序文件：顺序文件的结构比较简单，文件中的记录一个接一个地存放；（2）随机文件：数据采用记录方式组织，可以根据
2、需要直接访问文件中的每个记录。优点是数 据的存取较为灵活、方便，速度较快，容易修改 ；缺点是占空间较大，数据组织较复杂。顺序文件：文件读/写只能在文件指针所指位置随机文件：可任意读取或在任意位置写入记录P154- 考点2 文件的操作语句和函数文件的打开（建立）文件的打开（建立）在对文件进行操作之前，必须先打开或建立文件。 在对文件进行操作之前，必须先打开或建立文件。 1. 1. 语句格式语句格式 例1：Open “in5.txt“ For Input As #1例2：Open App.Path + “in5.txt“ For Input As #1Open Open 文件名文件名 ForFor
3、模式模式 As # As #文件号文件号 Len=Len=记录长度记录长度 P154- 考点2 文件的操作语句和函数Open Open 文件名文件名 ForFor模式模式 As # As #文件号文件号 Len=Len=记录长度记录长度 OutputOutput：顺序文件写：顺序文件写P154- 考点2 文件的操作语句和函数Open Open 文件名文件名 ForFor模式模式 As # As #文件号文件号 Len=Len=记录长度记录长度 Input：顺序文件读Input方式打开，要求被读取文件必须存在P154- 考点2 文件的操作语句和函数Open Open 文件名文件名 ForFor模
4、式模式 As # As #文件号文件号 Len=Len=记录长度记录长度 Append：顺序文件追加方式写P154- 考点2 文件的操作语句和函数Open Open 文件名文件名 ForFor模式模式 As # As #文件号文件号 Len=Len=记录长度记录长度 Random：随机文件读写P154- 考点2 文件的操作语句和函数文件指针文件指针 文件打开后自动生成一个文件指针。文件打开后自动生成一个文件指针。 当使用当使用InputInput、OutputOutput、RandomRandom等方式打开文件时等方式打开文件时 ，文件指针指向文件的开头。，文件指针指向文件的开头。 使用使用A
5、ppendAppend方式打开文件时，文件指针指向文件的方式打开文件时，文件指针指向文件的 末尾。末尾。 完成一次读写操作后，文件指针自动地指向下一次完成一次读写操作后，文件指针自动地指向下一次 读写操作的位置。读写操作的位置。P154- 考点2 文件的操作语句和函数Open Open 文件名文件名 ForFor模式模式 As # As #文件号文件号 Len=Len=记录长度记录长度 文件号：文件号：15111511，在操作时用于指代打开的文件，在操作时用于指代打开的文件记录长度：随机文件操作时需指定记录长度记录长度：随机文件操作时需指定记录长度文件大小=所有记录大小之和P154- 考点2
6、文件的操作语句和函数文件的关闭文件的关闭 文件的读写操作结束后，必须将文件关闭， 文件的读写操作结束后，必须将文件关闭， 这一操作将缓冲区的内容写入文件。这一操作将缓冲区的内容写入文件。 1. 1. 语句格式语句格式Close# Close# 文件号文件号, #, #文件号文件号Close Close 关闭所有已打开的文件关闭所有已打开的文件关闭指定编号文件关闭指定编号文件P154- 考点2 文件的操作语句和函数 重要函数重要函数 1 1LOF(LOF(文件号文件号) )返回文件的长度（字节数）返回文件的长度（字节数）2 2EOF(EOF(文件号文件号) ) 如果当前文件指针指向文件末尾，则返
7、回如果当前文件指针指向文件末尾，则返回TrueTrue， 否则返回否则返回FalseFalse3. Seek #3. Seek #文件号文件号, ,位置位置定位文件指针定位文件指针P163-11在窗体上画一个命令按钮，然后编写如下代码：在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click()Private Sub Command1_Click()Dim Dim MaxSizeMaxSize, , NextcharNextchar, , MycharMycharOpen “ Open “d:d: fm.txtfm.txt“ For Input As #
8、2“ For Input As #2MaxSizeMaxSize = = LOF(2)LOF(2)For For NextcharNextchar = = MaxSizeMaxSize To 1 Step -1 To 1 Step -1Seek #2, Seek #2, NextcharNextcharMycharMychar = Input(1, #2) = Input(1, #2)Next Next NextcharNextcharPrint Print EOF(2)EOF(2)Close #2 Close #2 End SubEnd Sub 程序运行后，单击命令按钮，其输出结果为程序运行
9、后，单击命令按钮，其输出结果为_。 （A A）0 0 （B B）NullNull （C C）TrueTrue （D D）FalseFalseP155 考点3 顺序文件 顺序文件的写操作顺序文件的写操作 1 1Print #Print #语句语句 Print #Print #文件号文件号,Spc(n)|Tab(nSpc(n)|Tab(n)表达式表表达式表;|,;|,Open “test” For Output As #1 Open “test” For Output As #1 打开文件供输出（写入打开文件供输出（写入 ）Print #1, “ this is a test “ Print #1
10、, “ this is a test “ 输出一行内容输出一行内容Print #1,Print #1, 输出一个空行输出一个空行Print #1, “hello“; “; “world“Print #1, “hello“; “; “world“Print #1, Spc(5); “hello everyone “ Print #1, Spc(5); “hello everyone “Print #1, Tab(10); “hello “ Print #1, Tab(10); “hello “Close #1 Close #1标准输出紧凑输出省略会怎么样呢？P155 考点3 顺序文件 顺序文件的
11、写操作顺序文件的写操作 2 2Write#Write#语句语句Write #Write #文件号，表达式表文件号，表达式表 Print语句和Write语句的区别在于：Write语句以紧凑的格式存放数据，系统自动在各数据 项之间加入“，”，字符串加上双引号。而使用Print语句 写入数据时，系统不会自动添加分隔符。例如命令：例如命令：Write #1,“One“,“Two“,123Write #1,“One“,“Two“,123 内容：内容：“One“,“Two“,123“One“,“Two“,123笔试真题 P156-1P156-1P155- 考点3 顺序文件 顺序文件写操作顺序文件写操作 将
12、一个二维数组将一个二维数组a(5,5)a(5,5)的所有数组元素的所有数组元素 按矩阵（按矩阵（5 5行行5 5列）写入到文件列）写入到文件OUT.txtOUT.txtDim a(4, 4) As IntegerFor i = 0 To 4For j = 0 To 4a(i, j) = Rnd * 100Next jNext iOpen “out.txt“ For Output As #1For i = 0 To 4For j = 0 To 4Print #1, a(i, j);Next jPrint #1,Next iP155- 考点3 顺序文件 顺序文件的读操作顺序文件的读操作 1 1In
13、put#Input#语句语句格式：格式：Input #Input #文件号，变量表文件号，变量表 功能：把读出的每个数据项分别存放到所对应的变量功能：把读出的每个数据项分别存放到所对应的变量 2 2Line Input #Line Input #语句语句格式：格式：Line Input #Line Input #文件号，字符串变量文件号，字符串变量 功能：读一行到变量中，主要用来读取文本文件。功能：读一行到变量中，主要用来读取文本文件。 3 3Input$Input$函数函数格式：格式：Input$Input$（n n，# #文件号）文件号） 功能：从功能：从“ “文件号文件号” ”所指定的顺
14、序文件中读出所指定的顺序文件中读出n n个字符个字符Open “test.txt“ For Input As #1Input #1, a, b, c, d, e, f, gCloseOpen “test.txt“ For Input As #1While Not EOF(1)Line Input #1, aWendCloseDo While Not EOF(1)inputdata = Input(1, #1)Text1.Text = Text1.Text + inputdata LoopP157-历年真题2 2在名称为在名称为Form1Form1的窗体上画一个文本框，其名称为的窗体上画一个文本
15、框，其名称为Text1Text1 ，在属性窗口中把该文本框的，在属性窗口中把该文本框的MultiLineMultiLine属性设置为属性设置为TrueTrue， 然后编写如下的事件过程：然后编写如下的事件过程： Private Sub Private Sub Form_ClickForm_Click() ()Open “d:testsmtext1.txt“ For Input As #1 Open “d:testsmtext1.txt“ For Input As #1Do While Not Do While Not 【1 1】 Line Input #1, aspect$ Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)Loop LoopText1.Text
