第9章 文件 VB.ppt

打开文件 读出或写入 关闭文件 9.4 文件的读写 在程序中对文件的操作，通常按3个步骤进行： 9.4.1 顺序文件 1.打开顺序文件 其使用格式如下： Open FileName For [Input | Output | Append] [Lock]As filenumber [Len = Buffersize] 例如： OPEN “C:\TEMP\A.TXT ” FOR Input AS #1 OPEN“C:\TEMP\B.TXT ” FOR Output AS #2 OPEN“C:\TEMP\C.TXT ” FOR Append AS #3 2. 关闭文件——Close 语句 使用格式如下： Close [filenumberlist] 其中： filenumberlist：可选项，为文件号列表，如：#1, #2, #3， 例如： Close #1,#2,#3 如果省略，则将关闭Open语句打开的所有活动文件。 Close 9.4.1顺序文件的读写操作 向文件写入内容使用 Print # 语句或Write#语句，在程序是数据输出。 1．Print语句 使用格式： PRINT #文件号，[输出列表] 说明：文件号为以写方式打开文件的文件号； 输出列表为用分号或逗号分隔的变量、常量、空格和定位函数序列。 2．Write命令 使用格式： 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, Anum Close #1 End Sub print Write 例: 编程把一个文本框中的内容，以文件形式存入磁盘。 假定文本框的名称为Mytxt，文件名为Myfile.dat。 方法1：把整个文本框的内容一次性地写入文件。 Open Myfile.dat For Output As #1 Print #1, Mytxt.Text Close #1 方法2：把整个文本框的内容一个字符一个字符地写入文件。 Open Myfile.dat For Output As #1 For i=1 To len(Mytxt.Text) Print #1,Mid(Mytxt.Text,i,1); Next i Close #1 2. 顺序文件读操作 从现存文件中读入数据，应以顺序Input方式打开该文件。然后使用 Input# 语句、Line Input# 语句和Input( )函数读入到程序变量中。 使用格式如下： INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 读一行到变量中，主要用来读取文本文件。 INPUT$(读取字符数, #文件号) 读取指定的数量的字符，作为函数的返回值。 3．与读文件操作有关的几个函数 （1）Lof 函数 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 （2）Loc 函数 Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，它将返回最近读写的一个字节的位置。 （3）Eof 函数 Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，Eof 函数返回TRUE(-1)，否则返回FALSE(0)。 将一文本文件的内容读到文本框 假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。 方法1：一行一行读 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+vbCrLf Loop Close #1