VB第8章(2012-12)

一个记录中所包含的各数据项既可以是相同类 型的数据，也可以是不同类型的数据。这些数 据项一般都是有内在联系的。 例如描述每个学生的信息包括学号、姓名、性 别、专业、入学年份等数据项。 写文件：把程序中的数据保存到磁盘上的操作， 即向磁盘输出数据。 读文件：把磁盘文件中的数据读到计算机中的 操作，即将文件读入内存。

（3）Append方式：


As引导的短语为打开的文件指定一个文件号。#号 是可选项。文件号是1~511之间的整数。文件号代表 所打开的文件，在程序中可以直接引用文件号来替 代文件名。
Байду номын сангаас.2.1 顺序文件的打开和关闭

Open语句的示例： 打开一个名为Employee.dat的文件，打开的方式为 Output方式，即向Employee.dat文件进行写操作。指定 在程序中以文件号“1”代表该文件。
8.2.3 顺序文件的读操作 2．用Line Input 语句从文件读入数据 Line Input 语句的作用是从打开的顺序文件 中读取一个记录，即一行信息。一般格式如 下： Line Input #<文件号>，<变量> 其中：变量用来接收从顺序文件中读入的一 行数据。

8.2.3 顺序文件的读操作
Open “Employee.dat” For Output As #1
打开一个名为Leader.dat的文件，打开方式为Input方式， 即从Leader.dat中读入数据，文件号为10。
Open “Leader.dat” For Input As #10
8.2.1 顺序文件的打开和关闭


Open “c:\d1.dat” For Output As #1 Print #1, “Visual”; “Basic”; “&”; “Computer” Close #1
8.2.2 顺序文件的写操作




说明：运行程序，输出到d1.dat文件中的内容是： VisualBasic&Computer 4个字符串之间没有空格相间。VB规定Print语句中 用分号作为输出项的分隔符时，各数据项之间是没 有空格，字符连成一片。 将Print语句中的分号改成逗号，在字符串之间增加 间隔。例如，Print语句修改如下： Print #1, “Visual”, “Basic”, “&”, “Computer” 写入文件的数据如下： Visual Baisc & Computer
8.2.1 顺序文件的打开和关闭






2．Close语句的格式 Close语句的作用是关闭先前所打开的文件。若不关 闭，会影响后续对文件的使用。一般格式如下： Close [文件号表列] 其中：文件号是Open语句中指定的文件号。例： Close #2 使用一条Close语句，可以同时关闭多个文件，例： Close #10，#11，#15 若Close语句后面省略了文件号，表示关闭当前所有 被打开的文件，即： Close
8.2.2 顺序文件的写操作


向顺序文件写数据的语句，Print和Write语句。 1．用Print语句向文件写数据 一般格式如下： Print #<文件号> [，输出表列] 其中：<文件号>是在Open语句中所指定的文件号。 “输出表列”是指准备写到文件中的数据，既可 以是变量名，也可以是常量。各数据之间用逗号 或分号隔开。例如：
Open “c:\ d2.dat” For Append As #1 mystr$=“I am learning VB” Write #1, mystr$ Close #1
8.2.3 顺序文件的读操作

顺序文件的读操作：从已建好的顺序文件中将数据读 入计算机中。 读一个文件时，首先要将该文件用Input方式打开。 读入语句：Input和Line Input 1．用Input语句从文件读入数据 Input语句的一般格式如下： Input#<文件号>，<变量表列> 其中： （1）变量用于存放从顺序文件中读入的数据。 （2）<变量表列>中的变量用逗号分开，且变量的个 数和类型应该与磁盘文件中所存储的数据一致。


例如：有顺序文件d2.dat，内容如下： “Visual ” （第1个记录） “Basic ” （第2个记录） “& ” （第3个记录） “Computer ” （第4个记录） 读数据的程序如下： Private Sub cmdInput_Click() Dim s1 As String, s2 As String, s3 As String, s4 As String Open "c:\d2.dat" For Input As #1 Input #1, s1 Input #1, s2 Input #1, s3 运行程序，文本框中 Input #1, s4 text1.Text = s1 + s2 + s3 + s4 显示的是： Close #1 Visual Basic & Computer End Sub
Open命令中的文件名可以是变量，例如： Filenm=“FirstFile.txt” Open Filenm For Append As #2
上述两条语句的作用是打开一个文件名为 FirstFile.txt的文本文件，并准备进行增添数 据的操作，文件号为2。 文件名可以是一个已被赋值的字符串变量。
Input函数的一般格式如下：

Input（整数，[#]<文件号>）

其中：“整数”是所要读取的字符个数。
第8章 文件及文件系统控件
8.1什么是文件 8.2对顺序文件的读写
对随机文件的读写 8.4 文件系统控件
8.3
8.1什么是文件



文件:存放在外部介质上的数据集合。每一个文件 要有一个文件名作为标识。 多种文件分类方法： 按照文件的内容，可分成程序文件和数据文件两 大类 按照文件存储信息的形式可分成ASCII文件和二进 制文件 按照文件的组织形式可分成顺序文件和随机文件 按照存储介质分为光盘文件、磁盘文件、磁带文 件、打印文件等



有数据文件“d3.dat”，内容如下： There are some data about employeeId in the file： （第1个记录） 100,101,260,530,999 （第2个记录）
Private Sub Command1_Click() Dim s1 As String, s2 As String Open "c:\d3.dat" For Input As #3 Line Input #3, s1 Line Input #3, s2 Ptint s1, s2 Close #3 End Sub

8.2对顺序文件的读写
顺序存取文件（Sequence Access File）简称 顺序文件。 顺序文件中各记录的写入顺序、在文件中存 放的顺序和从文件中读出的顺序三者一致。 即最先写入的记录放在最前面，也最早被读 出。 从顺序文件中读取记录必须从第一个记录读 起，顺序进行。

8.2.1 顺序文件的打开和关闭

8.2.1 顺序文件的打开和关闭

（2）Output方式：

向文件写数据，即从计算机向所打开的文件写数据。如 果该文件中原来已有数据，则原有数据被删除，即新写 的数据将已有的数据覆盖。 向文件添加数据，即从计算机向所打开的文件写数据。 Append方式把新的数据添加到文件尾部原有数据的后边， 文件中原有数据保留。

因此，将第1条读入s1，然后将第2条记录中第1个 逗号之前的内容读入s2，后面的内容都未输入。 Line Input语句读数据时不受空格和逗号的限制，它 将一行中回车之前的信息作为一个记录一次读入。
8.2.3 顺序文件的读操作

3．用Input函数从文件中读取数据

Input函数的作用是从文件中读取指定字数的字符。

“This is a test about file”,"Visual ", "Basic ", "& ","Computer"
8.2.2 顺序文件的写操作

3．向文件追加数据 如果要在原有数据文件中增加数据，应使用Append 方式打开文件，数据被添加在文件尾部。 注意：在Output方式下进行写操作时，新的数据是 从文件头部开始写入的，原有的文件内容被覆盖。
8.1什么是文件
数据文件就是保存数据的文件。 数据文件中的数据是以“记录”（Record） 的形式组织起来的。 一个文件是由若干个记录组成的。 一个记录中可以包含若干数据项。 可以认为，由一组数据组成一个记录，若干 记录构成一个文件。即文件是记录的集合， 而记录是数据项的集合。

8.1什么是文件
运行结果： There are some data about employeeId in the file：100,101,260,500,999
8.2.3 顺序文件的读操作

对同样的数据，使用Input语句读数据：
Private Sub Command1_Click() Dim s1 As String, s2 As String Open "c:\d3.dat" For Input As #3 Line Input #3, s1 Line Input #3, s2 Ptint s1, s2 Close #3 End Sub
8.2.2 顺序文件的写操作