利用Visual Basic命令操作文件(1)

（一）打开和关闭文件

1、顺序文件

打开顺序文件，我们可以使用Open语句。它的格式如下：

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize] 

说明：

（1）参数pathname表示要打开的文件名，文件名可以包含有驱动器和目录。

（2）Input Output和Append用于设置顺序文件的打开方式。其中，Input表示从打开的文件中读取数据。

以这种方式打开文件时，文件必须存在，否则会产生错误。Output表示向打开的文件中写入数据。以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。如果文件不存在，则创建一个新文件。

Append表示向打开的文件中添加数据。以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件为开始添加。如果文件不存在，则创建一个新文件。

（3）As[#]filenumber子句用于为打开的文件指定文件号。对文件进行读写操作时，要用文件号表示该文件。文件号是介于1~511之间的整数，既可以是数字，又可以是变量。也可以省略不用。

(4)当在文件与程序之间拷贝数据时，Len=buffersize子句指定缓冲区的字符数。

例如：

Open App.Path + "\test.dat" For Output As 1

Open App.Path + "\test.dat" For Output As 1

这两句代码在当前应用程序所在目录下创建了一个名为test。dat的文本文件，分配文件号为1。

Open App.Path + "\test.dat" For Input As [#]filenumber

这条语句是从文本文件中读取数据。

Open App.Path + "\test.dat" For Append As [#]filenumber

这条语句则是像文本文件中添加数据。

2、随机文件

操作随机文件之前，首先必须定义用于保存数据项的记录类型。该记录是用户自定义数据类型，他们是随机文件中存储数据的基本结构。例如：

Type Student

　No As Integer

　Name As String * 20

　age As Integer

End Type

Dim Stud As Student ‘定义一个可以存放学生材料的变量

随机文件中，所有的数据都将保存到若干个结构为Student类型的记录中， 而从随机文件中读出的数据则可以存放到变量Stud中。

之后我们就可以打开并读写文件了。下面是打开随机文件的语法格式：

Open filename For Random as [#]filenumber Len = Reclength

说明：

(1)参数filename 和filenumber 分别表示文件名或文件号。

(2)关键字Random 表示打开的是随机文件。

(3)Len子句用于设置记录长度，长度由参数Reclength指定。Reclength的值必须大于0，而且必须与定义的记录结构的长度一致。计算记录长度的方法是将记录结构中每个元素的长度相加。例如前面声明的Student的长度应该是2+20+2=24字节。

打开一个记录类型为Student的随机文件的方法是：

Open "c:\Student.txt " For Random As #1 Len = 25

3、二进制文件

打开二进制文件的语法格式如下：

Open pathname For Binary As [#]filenumber