程序设计基础(VB)_ 数据文件_

顺序文件打开与关闭
01. 顺序文件的打开
打开文件语句：Open • Open “文件名” For 读写模式 As #缓冲区号
说明： • 文件名：指定操作文件的路径和文件名。 • 读写模式： Output 、Input、Append • 缓冲区号:介于1～511之间的整数。
Open "c:\student.txt" For Output as #1
• 读写模式： Output 、Input、 Append
关键字 对文件的操作
Input 从文件读入数据，如果文件不存在，则会出错。
Output 把数据写出到文件中。如果文件不存在，则创建 新文件。如果文件已存在覆盖文件中原有的内容。
Append 追加数据到文件的末尾，不覆盖文件原来的内容。 如果文件不存在，则创建新的文件。
x = Int(Rnd * (90 - 65 + 1) + 65) Put #1, i, x Next i Close #1 MsgBox "任务完成！"
二进制文件
• 例8：以二进制方式读取文件test.txt中的内容，并将结果显示在文本框中。
Dim i%, x As Byte Open "G:\test.txt" For Binary As #1 For i = 1 To 100
格式： Open “文件名” [For Random] As #缓冲区号 [Len＝记录长度]
说明： 文件名：指定操作的文件。 Random：缺省的访问类型，可选项。 记录长度：指定每条记录的长度。缺省值是128字节，通过Len()函数可得 到记录的长度。
Open "c:\stud.dat" For Random as #1 len=len(s) 用Close语句关闭随机文件
Open "c:\student.txt" For Input as #2
顺序文件打开与关闭
02. 顺序文件的关闭
关闭文件语句：Close • Close [缓冲区号列表]
说明： • 文件读写操作后结束，必须将文件关闭，释放文件占用的缓 冲区，否则可能造成数据丢失。
Close ＃1 Close ＃1,＃2
说明： • 文件名：指定操作文件的路径和文件名。
例：Open "c:\student.txt" For Output as #1
顺序文件打开与关闭
01. 顺序文件的打开
打开文件语句：Open • Op源自n “文件名” For 读写 模式 As #缓冲区号
说明：
• 文件名：指定操作文件的路径 和文件名。
谢谢大家
随机文件
主讲教师：陈郡
西北农林科技大学
二进制文件
• 二进制文件 以字节为单位对文件进行读写，可以实现对文件的完全控制，文件中的字节可以代表任何 信息。
• 二进制操作 二进制访问模式与随机访问模式类似； 读写记录的语句也是Get和Put； 访问单位是字节。
二进制文件
01. 二进制文件操作语句
顺序文件
• 顺序文件操作的一般步骤
• 第一步：打开文件 • 建立文件缓冲区，为文件读写好准备。
• 第二步：记录读、写 • 向文件写入数据或从文件中读取记录数据。 • 读或写操作以记录为单位进行。
• 第三步：关闭文件 • 释放文件缓冲区，结束文件操作。
顺序文件打开与关闭
01. 顺序文件的打开
打开文件语句：Open • Open “文件名” For 读写模式 As #缓冲区号
1、打开文件： Open “文件名” For Binary As #缓冲区号 ● 文件名 指欲打开文件的文件名，包括该文件的路径。如果文件不存 在， 则建立一个新文件；如果存在则打开该文件。 ● For Binary 说明以二进制方式访问文件。
例：Open "test.txt" For Binary As #1
谢谢大家
随机文件
主讲教师：陈郡
西北农林科技大学
随机文件
随机文件特点: • 文件中数据分为一个个等长的单元； • 每个单元中包含一个或多个数据项，各单元中数据项数目相等，对应数据项类型 相同； • 随机文件中，除字符串之外，其他类型的数据不转换成字符形式，而是直接以二 进制形式存放。 • 随机文件不是文本文件，使用文本文件编辑软件打开随机文件，那些非字符数据 项会变得不可辩认。
随机文件
01. 随机文件读写操作的一般步骤
● 第一步：定义记录数据类型 ● 第二步：定义记录变量 ● 第三步：打开随机文件 ● 第四步：向文件写入数据或从文件中读取数据 ● 第五步：关闭文件
随机文件
02. 定义记录数据类型
Type 记录类型名 字段名1 As 类型 …… 字段名n As 类型
End Type
顺序文件
主讲教师：陈郡
西北农林科技大学
顺序文件
顺序文件的概念： • 按记录号的顺序进行读、写操作的文件。
顺序文件的特点： • 文件中记录与记录之间的分隔符为回车、换行符； • 记录中数据由特定分界符分隔（如逗号等）； • 数据以ASCII码形式存储； • 顺序文件记录存储、读、写操作按顺序进行。
2、关闭文件：close语句
二进制文件
01. 二进制文件操作语句
3、写文件： Put #缓冲区号，[字节位置]，字节变量
4、读文件： Get #缓冲区号，[字节位置]，字节变量
二进制文件
• 例7：以二进制模式建立一个数据文件，其中的内容是随机产生的100个大写字母。
Dim i%, x As Byte Open "G:\test.txt" For Binary As #1 For i = 1 To 100
Get #1, i, x Text1.Text = Text1.Text & Chr(x) Next i Close #1
二进制文件
• 例8：以二进制方式读取文件test.txt中的内容，并将结果显示在文本框中。
Dim i%, x As Byte Open "G:\test.txt" For Binary As #1 For i = 1 To LOF(1)
Type student
xh as string*10 xm as string*8 yw as single sx as single zf as single End Type
随机文件
03. 定义记录类型变量 格式：Dim 变量名 AS 记录类型名
Dim s as student
随机文件
04. 随机文件的打开与关闭