第六章 文件与数据存储

第二节 Visual Basic中的文件操作基础与数据存储

概述

本节主要介绍Visual Basic语言中关于文件操作的基本知识和数据存储方法。文件作为数据的持久化载体，是程序设计中不可或缺的重要部分。掌握文件的打开、读写、关闭等操作，以及理解不同文件类型及其使用场景，是通过全国计算机等级考试二级的重要内容。通过本节的学习，考生将能够：

• 理解文件操作相关核心概念
• 掌握Visual Basic文件的打开、读写、关闭方法
• 理解文本文件与二进制文件的区别及处理方式
• 运用文件操作进行数据的存储和读取
• 了解常见的文件操作误区及避免方法

核心概念

文件

文件是存储在计算机磁盘或其他存储设备上的数据集合。它可以是文本文件，也可以是二进制文件。

文本文件（Text File）

以字符形式存储数据，内容可以直接用文本编辑器查看。常见后缀有.txt、.csv等。

二进制文件（Binary File）

以二进制形式存储数据，通常不能直接用文本编辑器查看，需要程序按特定格式读取。

文件流（File Stream）

程序与文件之间的数据通道，允许程序顺序地读取和写入文件内容。

文件模式（Open Mode）

文件打开时指定的访问方式，常见的有输入模式（Input）、输出模式（Output）、追加模式（Append）等。

文件指针（File Pointer）

指示当前读写位置的指针，可以通过定位操作移动。

原理分析

文件操作的基本流程

文件操作通常包括以下几个步骤：

1. 打开文件：通过指定路径和模式，程序与文件建立联系，获得文件句柄。
2. 读写文件：根据需求读取文件内容或写入数据。
3. 关闭文件：释放资源，确保数据完整写入。

文件模式的作用

• Input：以只读方式打开文件，通常用于读取文本文件。
• Output：以写入方式打开文件，若文件存在则覆盖，适合新建文件。
• Append：以追加方式打开文件，写入内容追加到文件末尾。
• Binary：以二进制方式打开文件，读写二进制数据。

数据存储与读取原理

文本文件以字符为单位存储，读取时按行或字符处理。二进制文件以字节为单位，数据结构一致，适合存储结构化数据。

文件指针随着读取或写入操作自动移动，程序可以通过定位命令修改指针位置，实现随机访问。

详细内容

1. 文件的打开与关闭

Visual Basic中使用Open语句打开文件，Close语句关闭文件。

Open "filename.txt" For Input As #1  '以输入模式打开
Close #1                             '关闭文件

• 文件号（如#1）是程序内标识文件的句柄，范围是1-511。
• 打开文件时必须指定文件路径、模式和文件号。
• 关闭文件时应确保所有数据写入完成。

注意：

• 文件号不可重复使用，且必须成对使用Open和Close。

2. 读取文本文件

常用语句有Input #、Line Input #。

• Input #：以逗号或分隔符分割读取数据，适用于结构化数据。
• Line Input #：按行读取整行字符串，适合逐行处理文本。

示例：

Dim s As String
Open "data.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, s
    Debug.Print s
Loop
Close #1

EOF(1)函数检测文件结束，防止超出读取。

3. 写入文本文件

使用Print #或Write #语句。

• Print #：写入文本，格式较自由，支持换行。
• Write #：写入文本，自动加引号和逗号，适合写入结构化数据。

示例：

Open "output.txt" For Output As #1
Print #1, "Hello, World!"
Write #1, "VB", 2024
Close #1

4. 追加文件内容

使用Append模式打开文件，新的数据写入文件末尾。

示例：

Open "log.txt" For Append As #1
Print #1, "New log entry"
Close #1

5. 读写二进制文件

二进制文件操作使用Get和Put语句，适合存储复杂数据结构。

示例：

Type Student
    ID As Integer
    Name As String * 20
    Score As Single
End Type

Dim s As Student
Open "student.dat" For Binary Access Read Write As #1
Get #1, , s  '读取
s.Score = 95
Put #1, , s  '写入
Close #1

• 结构体必须固定长度，字符串用定长定义。
• 文件以二进制方式打开，支持随机访问。

6. 文件指针定位

使用Seek函数定位文件指针位置，实现随机读写。

Seek #1, 10  '移动指针到第10个记录
Get #1, , s

7. 文件操作的异常处理

文件操作容易出现文件不存在、权限不足等异常，使用错误处理机制保障程序稳定。

On Error GoTo ErrHandler
Open "file.txt" For Input As #1
'...文件操作代码...
Close #1
Exit Sub

ErrHandler:
MsgBox "文件操作错误：" & Err.Description

实例分析

实例一：读取学生成绩文本文件

背景：有一个文本文件students.txt，每行包含学生姓名和成绩，格式如张三,85。

分析：使用Open和Line Input #逐行读取，利用Split函数分割姓名和成绩，存入数组或集合。

代码示例：

Dim line As String
Dim parts() As String
Dim name As String
Dim score As Integer

Open "students.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, line
    parts = Split(line, ",")
    name = parts(0)
    score = CInt(parts(1))
    Debug.Print name & " 的成绩是 " & score
Loop
Close #1

结论：通过文本文件读取，实现了数据的提取和处理。

实例二：二进制文件存储员工信息

背景：需要保存员工编号（整数）、姓名（20字符定长字符串）和工资（单精度浮点数）到二进制文件。

分析：定义自定义类型Employee，使用Put写入，Get读取，实现高效存储。

代码示例：

Type Employee
    ID As Integer
    Name As String * 20
    Salary As Single
End Type

Dim emp As Employee
emp.ID = 101
emp.Name = "李四"
emp.Salary = 5800.5

Open "employee.dat" For Binary Access Write As #1
Put #1, , emp
Close #1

结论：二进制文件适合存储结构化数据，节省空间且读取速度快。

实例三：日志文件追加写入

背景：应用程序需要记录操作日志，每次运行追加新的日志记录。

分析：使用Append模式打开文件，写入新日志，避免覆盖已有内容。

代码示例：

Open "app.log" For Append As #1
Print #1, Now & " - 程序启动"
Close #1

结论：追加模式适合日志类文件，保证历史记录不丢失。

常见误区

1. 误区：忘记关闭文件

   • 关闭文件是必要操作，未关闭可能导致数据丢失或文件锁定。
   • 正确做法：程序中确保每个Open对应一个Close，尤其在异常处理中。

2. 误区：文件号重复使用

   • 文件号应唯一且不重复使用，重复使用可能导致读写混乱。
   • 正确做法：合理管理文件号，操作完毕及时关闭。

3. 误区：混用文本与二进制模式

   • 文本文件用Binary模式读写会产生乱码，二进制文件用文本模式易损坏数据。
   • 正确做法：根据文件性质选择正确的打开模式。

4. 误区：忽略EOF判断

   • 读取时不检测EOF会导致错误或程序崩溃。
   • 正确做法：循环读取时使用EOF函数判断文件结尾。

5. 误区：字符串长度未定长导致二进制文件结构混乱

   • 二进制文件中字符串应定长，否则读写不匹配。
   • 正确做法：定义固定长度字符串类型，保证数据结构一致。

应用场景

• 数据持久化存储：程序运行产生的数据通过文件保存，便于后续读取和处理。
• 日志记录：系统运行日志、操作日志通过文件追加保存，方便维护和审计。
• 配置文件管理：应用程序配置信息存储于文本文件，便于修改和维护。
• 结构化数据存储：通过二进制文件高效存储复杂数据结构，如学生信息、员工档案。
• 数据交换：不同程序之间通过文本文件或二进制文件交换数据。

知识拓展

• 文件路径与访问权限
  了解绝对路径与相对路径的区别，掌握文件权限设置，避免文件访问失败。

• 高级文件操作
  包括文件复制、移动、删除操作，利用FileSystemObject对象实现更灵活的文件管理。

• 数据库与文件的比较
  理解文件存储与数据库存储的优缺点，何时选择文件作为数据存储手段。

• 异常处理机制
  深入学习错误捕获和处理，保证文件操作的鲁棒性。

• 多线程文件访问
  多线程环境下文件操作的同步问题，避免数据竞争和死锁。

总结回顾

本节内容围绕Visual Basic语言中的文件操作和数据存储展开，重点掌握了：

• 文件的基本概念及分类（文本文件与二进制文件）
• Visual Basic中打开、读写、关闭文件的具体语法与用法
• 不同文件模式的选择及其影响
• 文本文件与二进制文件的读写方法及注意事项
• 文件指针的使用及随机访问实现
• 常见的文件操作错误及正确处理方法
• 通过实例深入理解文件操作的应用

掌握以上内容不仅是考试的重点，也是编写高质量Visual Basic程序的基础。建议考生通过实践操作，加深对文件操作流程和细节的理解，提升编程能力和问题解决能力。

---

祝各位考生学习进步，顺利通过全国计算机等级考试二级！