VB讲稿 第9章文件.pptVIP

本章主要内容 文件的打开、读写和关闭 处理顺序文件 处理随机文件 处理二进制格式文件 9.1 文件基本操作 顺序型——适合于连续块的文件 随机型——适合于有固定长度记录结构的文件 二进制型——适合于任何具有结构的文件 9.1.1 文件的打开与关闭 1．Open语句 打开文件使用Open语句，其格式如下： Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] Open 语句示例： 1）以顺序输入模式打开D盘根目录下TESTFILE.DAT 文件。 Open D:\TESTFILE.DAT For Input As #1 2）以只允许写操作的二进制方式打开D盘根目录下TESTFILE.DAT文件。 Open D:\TESTFILE.DAT For Binary Access Write As #1 Open 语句示例： 3）以随机方式打开D盘根目录下TESTFILE.DAT文件，文件中含有用户自定义数据类型 Record 的记录。 Type Record 定义用户自定义数据类型。 ID As Integer Name As String * 20 End Type Dim MyRecord As Record 声明变量。 Open D:\TESTFILE.DAT For Random As #1 Len = Len(MyRecord) Open 语句示例： 4）以顺序输出方式打开D盘根目录下TESTFILE.DAT文件。 Open D:\TESTFILE.DAT For Output Shared As #1 5）以只允许读的二进制方式打开D盘根目录下TESTFILE.DAT文件。 Open D:\TESTFILE.DAT For Binary Access Read Lock Read As #1 9.1.1 文件的打开与关闭 2．FreeFile函数 格式：FreeFile[(rangenumber)] 参数：可选，rangenumber用于指定可用文件号的范围 返回值：整型。 9.1.1 文件的打开与关闭 3．Close语句 格式：Close [filenumberlist] 参数：可选，filenumberlist为一个或多个文件号 filenumberlist参数格式为[[#]filenumber] [, [#]filenumber] 9.1.2 文件的读写 1．Input #语句 格式：Input #filenumber, varlist 功能：从已打开的顺序文件中读出数据并将数据赋值给变量列表varlist。 Dim MyString, MyNumber Open TESTFILE.DAT For Input As #1 打开输入文件。 Do While Not EOF(1) 循环至文件尾。 Input #1, MyString, MyNumber 将数据读入两个变量。 Debug.Print MyString, MyNumber 在立即窗口中显示数据。 Loop Close #1 关闭文件 9.1.2 文件的读写 2. Line Input #语句 格式：Line Input #filenumber, varname 功能：从已打开的顺序文件中读出一行并将它分配给字符串变量varname。 Dim TextLine Open TESTFILE.DAT For Input As #1 打开文件。 Do While Not EOF(1) 循环至文件尾。 Line Input #1, TextLine 读入一行数据并将其赋予某变量。 Debug.Print TextLine 在立即窗口中显示数据。 Loop Close #1 关闭文件 9.1.2 文件的读写 3. Input函数 格式：Input(number, [#]filenumber) 返回类型：字符串型。 功能：从文件中读入指定字符个数number，返回值为字符串 Dim MyChar Open TESTFILE.DAT For Input As #1 打开文件。 Do While Not EOF(1) 循环至文件尾。 MyChar = Input(1, #1) 读入一个字符。 Debug.Print MyChar 显示到立即窗口。 Loop Close #1 关闭文件 9.1.2 文件的读写 4. Get #语句 格式：Get [#]fi