新Visual Basic程序设计（第二版） 电子教案 丁亚明 第8章.pptVIP

Visual Basic 6.0程序设计（第二版） 主编 丁亚明 中国水利水电出版社 第8章 文件处理 8.1 文件概述 8.2 使用传统方法处理文件 8.3 使用文件系统控制处理文件 8.1 文件概述 文件是存储在外部介质上的数据的集合。计算机处理的大量数据一般都是以文件的形式存放在外部介质（如磁盘）上的。 8.1.1文件的基本概念 Visual Basic提供了从磁盘、磁带等外部存储设备上进行数据输入输出的功能。通过直接处理文件，应用程序可以极其方便地创建、复制、存储大量数据，一次可以访问多组数据，还可以与其它应用程序共享数据。 文件是一组相关信息的集合。对于计算机而言，文件是指存放在外部设备如磁盘上的一系列相关的字节。当应用程序访问一个文件时，必须假定这些字节所表示的是什么(是字符、整数、字符串还是数据记录等等)。 8.1.2 文件类型 顺序文件（文本文件） 随机文件（记录文件） 二进制文件（字节文件） 顺序文件的概念 顺序文件实际上是一系列的ASCII码格式的文本行。文件中的 数据是按顺序组织的，与文档中出现的顺序相同。若要读出第100个记录，必须首先读出前面的99个记录，写入亦如此。 随机文件的概念 以随机存取（Random Access）方式存取的文件称为随机文件。随机文件是由一组长度相等的记录组成。要读第100个记录，可按记录号100直接读取。 二进制文件的概念 文件中数据是以二进制格式进行编码存储的。它以字节数来定位数据，允许程序按所需的任何方式组织和访问数据，二进制文件可允许对文件中各字节数据进行存取访问和改变。 8.1.3 文件操作的一般步骤 打开文件 文件读/写 关闭文件 8.1.4 文件操作的语句与函数 1. Open语句 Open 文件名 [FOR 模式] [Access 存取类型] [锁定] AS [#]文件号 [Len=记录长度] 2. Close 语句 Close [[#]文件号] [, [#]文件号]…… 除了可用Close语句关闭文件外，当程序结束时，所有打开的文件也会自动关闭。 3. Reset语句 Reset语句的功能是关闭所有用Open语句打开的文件。 Reset 4. 文件操作函数 Eof(文件号) FileLen(文件名) Lof(文件号) Loc(文件号) FreeFile[(文件号范围)] 8.2使用传统方法处理文件8.2.1 顺序文件 1.顺序文件的写操作 打开文件 Open 文件名 For Output As [#]文件号 Open 文件名 For Append As [#]文件号 1. 顺序文件的写操作 Print #语句 Print # 文件号, [输出列表] Write #语句 Write # 文件号, [输出列表] 2. 顺序文件的读操作 Input #语句 Input # 文件号[, 变量表] Line Input #语句 Line Input # 文件号, 字符变量名 2.顺序文件的读操作 Input 函数 Input 函数的调用形式为： Input(n, [#]文件号) 其中：n是任意合法的数值型表达式，指明从文件中一次读出字符的个数。 EOF函数 EOF函数返回一个表示文件指针是否到达文件末尾的标志。如果到了文件尾，EOF函数返回TRUE(-1)，否则返回FALSE(0)。对于顺序文件用EOF函数来测试是否到文件尾，对于随机文件和二进制文件，当最近一个执行GET语句无法读到一个完整记录时返回TRUE(-1)，否则返回FALSE(0)。 LOF函数 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。例如： Dim FileLength Open TESTFILE For Input As #1 FileLength = LOF(1) Close #1 LOC函数 返回在一个打开文件中读写的位置。 对随机文件，返回上一次对文件进行读出或写入的记录号。 对顺序文件，返回文件中当前字节位置除以 128 的值。但是，对于顺序文件而言，不会使用 Loc 的返回值，也不需要使用 Loc 的返回值。 对二进制文件，返回上一次读出或写入的字节位置。