第六章 文件与数据存储
第一节 文件的基本操作与数据存储
概述
在Visual Basic程序设计中，文件操作是实现数据持久化存储的重要手段。本节主要介绍文件的基本概念、文件的创建、打开、读写及关闭等操作方法，帮助考生掌握如何使用Visual Basic对文件进行有效管理，以实现数据的长期保存和调用。通过学习，考生能够理解文件的类型与结构，掌握文本文件和二进制文件的处理方法，熟悉文件操作相关的关键语句及函数，为后续数据存储和高级文件处理打下坚实基础。
核心概念
- 文件（File）：存储在磁盘或其他存储介质上的数据集合，具有唯一的文件名，用于长期保存信息。
- 文件类型：文本文件（包含可读字符）、二进制文件（包含非文本数据）
- 文件路径：文件在系统中的具体位置，通常包括磁盘符、文件夹路径和文件名。
- 文件操作模式：包括输入（读取）、输出（写入）、追加等模式。
- 文件指针：指示当前文件操作位置的标记。
原理分析
文件操作的核心在于文件的打开和关闭。打开文件时，程序与文件建立连接，指定操作模式；关闭文件时，释放资源并确保数据完整写入存储介质。文件的读写操作基于文件指针，指针的位置决定了数据的读写起点。文本文件以字符流方式处理，适合存储字符数据；二进制文件以字节流方式处理，适合存储复杂数据结构，如图像和程序数据。
Visual Basic通过一套内置语句和函数实现文件操作，主要包括Open语句打开文件，Input和Print语句进行数据读写，Close语句关闭文件。文件操作需要注意缓冲区的管理和异常处理，防止数据损坏。
详细内容
1. 文件的打开与关闭
打开文件是文件操作的第一步，语法格式为：
Open "文件路径" For 访问模式 As #文件号
访问模式包括：
Input：以只读方式打开文本文件Output：以写入方式打开文本文件，若文件存在则清空Append：以追加方式打开文本文件，写入数据追加到文件末尾Binary：以二进制方式打开文件，支持读写任意数据
文件号：文件的标识符，1~511之间的整数，用于区分不同打开的文件。
关闭文件使用语句：
Close #文件号
关闭文件时应确保所有数据已写入，避免数据丢失。
2. 文本文件的读写操作
文本文件以行或字段为单位读写。
写入文本文件使用
Print #或Write #语句：Print #写入数据，数据之间用空格分隔，写入格式较自由。Write #写入数据，数据之间用逗号分隔，字符串自动加引号。
读取文本文件使用
Input #语句：- 按字段读取数据，每次读取一个数据项。
- 使用
Line Input #读取整行文本。
示例：
Open "data.txt" For Output As #1
Print #1, "张三", 90, 85
Close #1
Open "data.txt" For Input As #1
Input #1, name$, score1, score2
Close #1
3. 二进制文件的读写操作
二进制文件适合存储复杂数据结构，读写时使用Get和Put语句。
Put #文件号, 位置, 变量：向文件写入变量的二进制数据，位置可指定写入位置。Get #文件号, 位置, 变量：从文件读取数据到变量。
读取和写入数据时，变量类型和数据结构必须保持一致。
示例：
Type Student
name As String * 20
score As Integer
End Type
Dim stu As Student
Open "stu.dat" For Binary As #1
stu.name = "李四"
stu.score = 95
Put #1, , stu
Close #1
Open "stu.dat" For Binary As #1
Get #1, , stu
Close #1
4. 文件操作注意事项
- 在打开文件前，应确保文件路径正确，避免路径错误导致文件无法访问。
- 使用完文件后，及时关闭文件，释放资源。
- 文件号不能重复使用，避免文件操作冲突。
- 处理文件异常时，添加错误处理代码，防止程序崩溃。
实例分析
实例1：学生成绩文本文件管理
背景：需要将学生姓名和成绩保存到文本文件，并能读取文件显示成绩。
代码示例：
Dim name$
Dim score As Integer
Open "scores.txt" For Output As #1
name$ = "张三"
score = 88
Print #1, name$, score
name$ = "李四"
score = 92
Print #1, name$, score
Close #1
Open "scores.txt" For Input As #1
Do While Not EOF(1)
Input #1, name$, score
Debug.Print "学生：" & name$ & " 成绩：" & score
Loop
Close #1
分析：程序通过Output模式写入文件内容，Input模式读取文件数据，利用EOF函数判断文件末尾，确保读取完整。
结论：掌握文本文件的读写方法，实现数据的持久存储与读取。
实例2：二进制文件存储员工信息
背景：保存员工信息，包括姓名和工资，使用二进制文件存储。
代码示例：
Type Employee
name As String * 30
salary As Currency
End Type
Dim emp As Employee
Open "emp.dat" For Binary As #1
emp.name = "王五"
emp.salary = 5500.5
Put #1, , emp
Close #1
Open "emp.dat" For Binary As #1
Get #1, , emp
Debug.Print "员工：" & Trim(emp.name) & " 工资：" & emp.salary
Close #1
分析：使用自定义类型保存结构化数据，通过Put和Get实现二进制读写，保证数据的完整性和准确性。
结论：二进制文件操作适合复杂数据结构的存储。
实例3：追加模式写入日志文件
背景：程序每次运行需要向日志文件追加记录。
代码示例：
Dim logEntry As String
logEntry = Now & " - 程序运行成功"
Open "log.txt" For Append As #1
Print #1, logEntry
Close #1
分析：使用Append模式打开文件，写入新内容不会覆盖原内容，适合日志和历史数据记录。
结论：追加模式保证数据连续性，防止数据被覆盖。
常见误区
未关闭文件导致资源占用
- 错误做法：打开文件后没有调用
Close，导致文件被锁定，无法再次访问。 - 正确做法：操作结束后及时调用
Close语句，释放文件资源。
- 错误做法：打开文件后没有调用
文件号重复使用
- 错误做法：多个文件操作使用同一文件号，造成文件访问混乱。
- 正确做法：为每个打开的文件分配不同的文件号。
忽视文件路径的正确性
- 错误做法：硬编码文件路径，忽略路径是否存在或权限。
- 正确做法：使用相对路径或检查路径合法性，确保文件可访问。
文本文件读写方式混用
- 错误做法：用
Input #读取由Print #写入的数据时，格式不匹配导致读取错误。 - 正确做法：统一使用
Print #与Input #或Write #与Input #配对，保持格式一致。
- 错误做法：用
未处理文件读写异常
- 错误做法：不做异常处理，文件不存在或损坏时程序崩溃。
- 正确做法：使用
On Error语句进行错误捕获，保证程序稳定运行。
应用场景
- 学生成绩管理系统：利用文本文件存储学生信息，实现数据输入、保存和查询。
- 员工信息数据库：使用二进制文件保存员工结构化数据，支持快速读写。
- 日志文件记录：程序运行过程中记录操作日志，使用追加模式保证日志连续性。
- 配置文件存储：保存程序配置信息，支持读取和修改，保持程序个性化。
- 数据备份与恢复：通过文件操作实现程序数据的备份，防止数据丢失。
知识拓展
- 高级文件操作：学习文件随机访问技术，掌握文件指针的移动方法，如
Seek函数。 - 文件与数据库的比较：理解文件存储与数据库存储的异同，掌握何时选择文件存储。
- 文件加密技术：学习对文件数据加密保护，确保数据安全性。
- 异常处理机制：深入学习Visual Basic的错误处理，提高程序健壮性。
总结回顾
本节重点介绍了Visual Basic中与文件相关的基本操作，包括文件的打开、读写、关闭及文件指针的基本概念。通过文本文件和二进制文件的对比，明确了不同文件类型的用途和操作方法。典型实例演示了学生成绩管理、员工信息存储及日志追加的实现，帮助考生理解文件操作的实际应用。常见误区提醒考生注意文件资源管理、访问权限及异常处理，避免编程错误。掌握本节内容，是理解和实现数据持久化存储的基础，对提高程序设计能力至关重要。
关键知识点
- 文件的基本概念及类型
- 文件的打开、关闭及文件号的使用
- 文本文件的读写方法（Print、Input、Write等）
- 二进制文件的读写方法（Put、Get）
- 文件操作模式：Input、Output、Append、Binary
- 文件指针和EOF函数的使用
- 常见文件操作误区及防范措施
- 文件操作的实际应用场景
- 文件操作异常处理机制
- 文件存储与数据结构的关系