文件的存取.ppt

1、第9章 文件的存取,本章主要内容,文件及其操作过程 顺序文件的基本操作,导读,程序除了以键盘、显示器为输入、输出外，还经常要从文件中读写信息。 理解“文件” 是信息的集合 存储于一定的介质上 按名存取 文件名的表达 E:vb_classDrawmypic.bmp teachersharesubfile1.txt App.Path Next i Close #1,示例1：向顺序文件中写入数据,用户在文本框中输入长度不超过20的字符串后，单击“保存”按钮将字符串输出到文件a.txt中。,MaxLength = 20,程序代码,Private Sub Command1_Click () 打开文件a.

2、txt，准备写数据 Open d:a.txt For Output As #1 将文本框中字符串输出到文件a.txt中 Print #1, Text1.Text Close #1 关闭a.txt文件 MsgBox 保存完毕 End Sub,结果,程序运行结束后，系统在D盘中建立了一个名为a . txt的顺序文件； 文件内容可以通过Windows中的记事本进行查看。,2. Write #语句 格式： Write #文件号，表达式表 Write #1，A，B，C 将把变量A，B，C的值写入文件号为1的文件中。,顺序文件的写操作(Print, Write),顺序文件的写操作(Print, Write

3、),Write #语句与Print #语句的区别： Write #语句：数据在磁盘上以紧凑格式存放，能自动地在数据项之间插入逗号，并给字符串加上双引号。一旦最后一项被写入，就插入新的一行。 用Write #语句写入的正数的前面没有空格。,Print与Write语句输出数据结果比较,Private Sub Form_Click() Dim Str As String, Anum As Integer Open D:Myfile.dat For Output As 1 Str = ABCDEFG Anum = 12345 Print #1, Str, Anum Write #1, Str, Anu

4、m Close #1 End Sub,结果,顺序文件的读操作(Input, Line Input),1. Input 语句 格式： Input #文件号，变量表 Input #语句从一个顺序文件中读出数据项，并把这些数据项赋给程序变量。 例如： Input #1，A，B，C 从文件中读出三个数据项，分别把它们赋给A，B，C三个变量。,示例2:从顺序文件中读取数据,在示例1的基础上添加显示功能。单击“显示”按钮后将已保存过的文件内容输出到标签中。,新加,程序代码,Private Sub Command2_Click () 打开文件a.txt，准备读出数据 Open d:a.txt For Inp

5、ut As #1 从#1文件中读出一行字符赋给变量s Input #1, s Label1.Caption = s Close #1 End Sub,2. Line Input 语句 格式： Line Input #文件号,字符串变量 Line Input #语句从文件中读取一行，并把它赋给字符串变量。 遇回车符(Chr(13)、换行符 (Chr(10)或文件结束符时结束一行的“读”操作； 读出字符序列中不包括回车或换行符； 再次执行Line Input #语句时，将从新的一行 开始读取。 通常情况下，Print #语句与Line Input #语句匹配使用。,顺序文件的读操作(Input,

6、Line Input),程序代码,Private Sub Command2_Click () 打开文件a.txt，准备读出数据 Open d:a.txt For Input As #1 从#1文件中读出一行字符赋给变量s Do While Not EOF(1) Input #1, s Label1.Caption = Label1.Caption + s Loop Close #1 End Sub,Line Input #1, s Label1.Caption = s,?,如何写/读多行数据呢？,使用循环结构 For i = 0 to 100 Print #1,s Next i ,Line I

7、nput #1,s,示例5：读写多行,编写程序，创建文件“c:try.txt”，在文件中写入10行“”，要求每行10个“”。,Private Sub Command1_Click() 写入文件 Dim i As Integer Open c:try.txt For Output As #1 For i = 0 To 9 Print #1, * Next i Close #1 MsgBox “写入成功！ End Sub,Private Sub Command2_Click() 从文件读出 Dim i As Integer Open c:try.txt For Input As #1 For i

8、= 0 To 9 Line Input #1, s Print s Next i Close #1 End Sub,3. Input函数 格式： Input(n，#文件号) Input函数返回从指定文件中读出的具有n个字符的字符串。 例如： x$Input(100，#1) 从文件号为1的文件中读取100个字符，并把它赋给变量X$。,顺序文件的读操作(Input, Line Input),读文本文件到文本框,文本框名称为Text1,文件名为MYFILE.TXT 方法1：一行一行读 Text1.Text “ Open MYFILE.TXT For Input As #1 Do While Not

9、EOF(1) Line Input #1, InputData Text1.TextText1.Text + _ InputData+vbCrLf Loop Close #1,回车换行,方法2：一次性读 Text1.Text “ Open MYFILE.TXT For Input As #1 Text1.Text = Input$( LOF(1),#1) Close #1 LOF()函数返回的是以字节为单位的文件大小。,方法3：一个个字符读 Dim InputData as String*1 Text1.Text Open MYFILE.TXT For Input As #1 Do While

10、 Not EOF(1) Input #1, InputData Text1.Text Text1.Text + InputData Loop Close #1,文件的关闭,Close语句 格式：Close #文件号, #文件号, 例如： Open rice.dat For Output As#1 则可以用下面的语句关闭该文件： Close #1,文件的关闭,(1) 关闭一个数据文件具有两方面的作用： 把文件缓冲区中的所有数据写到文件中。 释放与该文件相联系的文件号，以供其他Open语句使用。 (2) Close语句如果不指定文件号，则把所有打开的文件统统关闭。 (3) 除了用Close语句关闭文件外，在程序结束时将自动关闭所有打开的数据文件。,文件的当前位置是否是结尾,EOF函数 格式： EOF(文件号) EOF函数常用来在循环中测试是否已到文件尾 Open “d:1.txt” for Input As #1 DO While Not EOF(1) Line Input #1, x$ Loop,文件的基本操作,在Visual Basic中，数据文件的操作步骤： (1) 打开(或建立)文件 如果一个文件已经存在，则打开该文件； 如果不存在，则建立该文件。并制定一个文件号给打开的文件。 (2) 进行读、写操作 (3) 关闭文件 所有操作必须根据文件号进行。,应用举例,