第14讲：文件

Append 则打开旧文件，在文件结尾处续写。
顺序文件的写操作
1．Print语句
Print语句的一般格式： Print #文件号 [，输出表列]
说明：输出列表中是用逗号分隔的表达式，类似窗 体上输出，一条Print语句在文件中书写一行数据
例如：
Open "D:\shu2.txt" For Output As #2 Print #2, "zhang", "wang", "li" Print #2, 78, 99, 67 Close #2
Write语句的一般格式：
Write #文件号 [，输出表列]
Open "d:\shu2.txt" For Output As #6 Write #6, "zhang", " wang"," li " Write #6, 78, 99, 67 Close #6 执行上面的程序段后，写入到文件中的数据如下：
"zhang","wang","li"
78,99,67
Dim x$, y$, z$, a%, b%, c% Open "D:\shu2.txt" For Input As #1 Input #1, x, y, z „读第一行数据 Input #1, a, b, c „读第二行数据 Print x, y, z Print a, b, c Print a + b + c Close #1
Private Sub Command1_Click() If Text1.Text <> Text2.Text Then MsgBox ("两次密码不一致，重新输入") Text1.Text = "" Text2.Text = "" Else Open "d:\shu2.txt" For Output As #6 Write #6, Form1.num, Text1.Text MsgBox ("修改成功") Text1.Text = "" Text2.Text = "" Close #6 End If End Sub
的操作通常都有3个步骤：
（1）打开文件
（2）访问文件
（3）关闭文件
文件的操作
1、打开文件
文件操作的第一步是打开文件。操作文件之前， 必须先打开文件。说明文件的位置、名字、并指定文 件的处理方式。打开文件时，系统会为这个文件在内 存中开辟一个空间，我们称为一个缓冲区，这个缓冲 区与磁盘上的文件相关联。
写数据 Output
磁盘 文件 读数据 Input
内存 缓冲区
Addend:添加数据，把新数据添加到原数据的后面， 原数据保留。 Open 文件名 [For打开方式 ] As [#]文件号
（3）文件号：是一个1～511之间的整数，打开文件时指定
该整数给当前打开的文件，直到该文件关闭后该文件号才
可以再指定给其他文件。文件号用来代表所打开的文件，
记录
计算机处理的数据多种多样，系统提供的数据类型 不能满足需要，因此各种语言都允许程序员自己定义数 据类型，VB中把用户自定义的数据类型称为记录类型。 记录类型是编程人员自己定义的数据类型，记录可以 看成几种简单数据类型的复合。 记录的本质是一种数据类型，如同 Integer 一样，只 不过记录复杂一点，是自己定义的，而Integer 简单一点，
End Sub
Input函数 :读取特定数目的字符（包括回车符）
格式： Input（字符数，#文件号） Dim s As String Open "D:/shu2.txt" For Input As #1 s = Input(3, #1)
Text1.Text = s
EOF函数：判断是否读取到了文件结尾，到达文件结
ห้องสมุดไป่ตู้
从打开的#1文件 中读取数据。 EOF(1)读取到文 件尾结束。
• 例题：创建登录窗体，利用文件保存用户名和密码，输入
密码正确可以登录，否则提示错误，登录成功后显示密码
的修改窗口。
Public num As String Private Sub Command1_Click() Dim name$, password$ Open "d:\shu2.txt" For Input As #6 Input #6, name, password Close #6 If (Text1.Text = name) And (Text2.Text = password) Then form2.Show Form1.Hide num = Text1.Text Else k = MsgBox("错误重新录入！") Text1.Text = "" Text2.Text = "" End If End Sub
2．打开文件并操作完毕后要关闭文件，以归还缓冲区，关
闭文件用Close语句。
一般格式
Close [文件号表列] 例如： ① Close #1 关闭文件号为1的文件。 ② Close #2，#7，#8 关闭文件号为2，7，8的文件。 ③ Close 关闭所有已打开的文件。
顺序文件的写操作
读/写是文件操作的第二个阶段，VB用Print或Write
★★以读方式打开文件shu2. txt，并指定文件号为5。
•
当程序打开多个文件时，为了避免文件号重复，可以通过
FreeFile 函数得到一个尚未使用的文件号。
③ FileNo=FreeFile
Open "d：\shu3. txt " For Close #FileNo ★★该语句以添加方式打开文件shu3. txt ，并关闭该 文件。 Append As #FileNo
顺序文件
• • 顺序文件中各数据只能顺序写入，顺序读出。 顺序文件通常用来存储少量数据且访问速度不要求 太高的情况。
顺序文件的打开与关闭
对顺序文件操作前，必须用Open语句打开的文件。在
文件操作完成后，要用Close语句将它关闭。
1．Open语句的一般格式 Open 文件名 [For打开方式 ] As [#]文件号 （1）文件名：包含文件存放路径和文件名称（包括扩 展名）的全称。例如： d：\data.txt
语句向一个已存在的顺序文件中添加数据。
顺序文件写操作的步骤： 1、 用Open以Output或Append方式打开文件 2 、用Print语句或Write语句把数据写入文件 3 、关闭打开的文件
注意：
Output 或 Append 方式打开文件，若文件不存在， 系统会按指定路径和名称建立一个新文件，这时两 者写入没有区别，如果给出的文件已经存在， Output 则会用建立的新文件写入后覆盖原文件 。
在VB中，根据文件不同的存取访问方式和数据存放形 式，将文件分为顺序文件、随机文件、二进制文件。 ① 顺序文件：即文本文件，其存取方式只能是由文件的 开头到结尾的顺序的方式，如果要读出第100个数据项， 必须从头读起，逐条查找，读完第99个，才能读出第100 个数据。因此顺序文件的存取效率比较低，通常用来存储
1．Input #文件号，变量表列
作用从文件中读取一行数据，并将该行数据中的每 个数据依次放到变量列表每一个变量中。 变量列表:由“，”分隔，与要读取的数据行中数据个 数和类型相同。用来存放特定行中的多个数据。
为了能将数据正确的读出，数据写入文件时，要使用
Write 语句，而不用 Print 语句.因为语句 Write 可以确保 将各个数据项正确的区分开。
尾返回真，否则返回假。 格式： EOF（文件号）
读程序，写结果
Private Sub Command1_Click() Open "d:\shu9.txt" For Output As #6 Write #6, 1, 2, 3 Write #6, 4, 5, 6
Close #6
End Sub
Private Sub Command2_Click() Dim x%, y%, z%, a%, b%, c% Open "d:\shu9.txt" For Input As #1 Do While Not EOF(1) Input #1, x, y, z a=a+x b=b+y c=c+z Loop Close #1 Print a, b, c End Sub
（2）打开方式包括以下3种。
Input Output Append
Open 文件名 [For打开方式 ] As [#]文件号
Input：从文件中读出数据，文件必须存在。
Output ：向文件中写数据，如果文件不存在则会建立
一个新文件，如果文件存在并且文件中有数据，新写 的数据将覆盖原来的数据。通常创建一个新的顺序文 件时使用该方式。
执行上面的程序段后，在D:\建立shu2.txt
把文本框的内容以文件的形式保存在磁盘上。
Open "D:\shu2.txt" For Output As #2 Print #2, text1.text Close #2
2．Write语句
用Write语句向文件写入数据时，与Print语句区别是， Write语句能自动在各数据项之间插入逗号，并给各字符 串加上双引号。
少量数据且访问速度不要求太高的情况。
文件的分类
② 随机文件：由一组相同长度的记录组成，可以直接 在文件的任何位置写入或读出数据，而不必每次存取都从
文件头开始。记录是随机文件的存取单位。
③二进制文件：类似于随机文件，只不过对文件的存取 不是以记录为单位的，而是以字节为单位。