第6章 文件处理

28
VB 6.0程序设计
背景知识
• Get语句
– Get语句将一个已打开的磁盘文件读入一个变量之中。 其语法格式如下。 – Get #文件号, [记录号], 变量名 – 其中，记录号可选，以表示在此个记录； 变量名必需，将读出的数据放入其中。
11
VB 6.0程序设计
背景知识
• Open语句
– 在操作顺序文件之前，必须使用Open语句打开要操作的文件， 其语法格式如下。 – Open 文件名 For [Input | Output | Append] [Access access] As 文 件号 – 其中，For关键字指定文件打开方式：Input，Output和Append。 （1）Input方式，指从所打开的文件中读取数据，该文件必须已 经存在，否则会报错。 （2）Output方式，指向文件写入数据。如果该文件原来有数据， 则原有数据被覆盖。 （3）Append方式，指向文件末尾添加数据，文件中的原有数据 被保留。
16
VB 6.0程序设计
小结
• 根据文件的存取形式可以分为顺序文件、随机文件， 顺序文件中记录写入和读取的顺序是一致的。使用顺 序文件前都要用Open语句打开它，打开文件有三种方 式：Output，Input和Append。向顺序文件中写入数据， 要用Output方式或Append方式打开文件，VB 6.0提供 了向顺序文件中写入数据的语句，即Print语句和Write 语句。从顺序文件中读取数据，要用Input 方式打开该 文件，然后使用Input 语句，Line Input语句或者Input函 数将顺序文件的内容读取到计算机中。顺序文件操作 结束后，要用Close语句关闭。
9
VB 6.0程序设计
实现步骤
10
VB 6.0程序设计
背景知识
• 顺序文件
– 顺序文件以ASCII码方式存放数据，适合于存放有 规律、不经常修改的文件。为了提高效率，通常只 在以下情况使用顺序文件。 – （1）文件极少改动。 – （2）从头到尾处理文件中的内容不需要经常跳转。 – （3）只在文件结尾处添加内容。
学习目的
1．理解顺序文件的特点。 2．掌握顺序文件的打开、存取和关闭操作。
= s ( s − a )( s − b)( s − c)
5
VB 6.0程序设计
工作任务
• 本任务要求替换顺序文件中的字符串。首先在 文件中写入几行字符串，然后查找指定的字符 串“QBASIC”，找到后并替换它。
6
VB 6.0程序设计
23
VB 6.0程序设计
实现步骤
• 命令按钮Command1的单击事件把记录写入随 机文件MyRan1.txt中 。
24
VB 6.0程序设计
实现步骤
• 命令按钮Command2的单击事件同样把写入随 机文件MyRan2.txt中 。
25
VB 6.0程序设计
实现步骤
• 命令按钮Command3的单击事件完成把这两个 随机文件的合并
31
VB 6.0程序设计
练习
• 4．新建一个随机文件File1.Dat，并向文件中写入用户 自定义类型Student的数据。
Type Student ID As Integer Name As String * 15 Address As String * 20 End Type
• 5．打开第1小题中已经写入的随机文件File1.Dat，完成 下面的操作：
27
VB 6.0程序设计
背景知识
• Put语句
– Put语句，将一个变量的数据写入随机文件中。其语 法格式如下。 – Put #文件号, [记录号], 变量名 – 其中，记录号可选，指明在此处开始写入，如果省 略，则从紧随上一个Put语句的写入位置后开始写入 记录；变量名必需，包含要写入文件的变量名。
29
VB 6.0程序设计
背景知识
• Seek函数
– Seek 函数，返回一个 Long型数据，指出在 Open 语 句打开的文件中当前的读写位置。其语法格式如下。 – Seek(文件号)
30
VB 6.0程序设计
小结
• 随机文件同顺序文件一样都要用Open语句打开 它，只不过要指定打开文件方式为Random。 向随机文件写入数据用Put语句，从随机文件中 读取数据用Get语句，随机文件操作结束后， 需要用Close语句关闭文件。
Type Stu ' 定义用户自定义类型 ID As Integer Name As String * 20 End Type
21
VB 6.0程序设计
实现步骤
• 设计程序界面如图
22
VB 6.0程序设计
实现步骤
• 首先在窗体的通用部分定义自定义类型Record， 并声明Record类型的变量MyRecord和用于保存 记录号的整型变量RecordNumber
"Admin","123456" "user1","123" "user2","456"
当用户输入用户名和密码时，打开Password.txt文件，并与之对比， 如果相同，显示提示信息“登录成功”；反之，显示提示信息 “非法用户”。
18
VB 6.0程序设计
任务13 任务
• • • • • • 学习目的 工作任务 实现步骤 背景知识 小结 练习
17
VB 6.0程序设计
练习
1．分别用Print和Write语句向文件MyFile1.txt和MyFile2.Txt中写入下 面两行数据，并打开文件查看不同。
2008/1/10 扫描开始 2008/1/11 扫描结束
2．选择合适的语句打开前面第1小题中的两个文件，从文件中读取 数据并在Debug窗口中显示出来。 3．设计一个用户登录程序，用户的用户名和密码都存放在顺序文件 Password.txt中，如以下格式的内容。
26
VB 6.0程序设计
背景知识
• 随机文件的打开和关闭
– 在打开一个随机文件之前，应定义一个类型，该类 型对应于该文件包含的记录。 – 打开随机文件也要用到Open语句，只不过要指定打 开文件的方式为Random，同时还要指定记录的字节 长度。 – 使用完随机文件之后，与顺序文件一样，也要用 Close语句关闭。
（1）读取第60行数据，并显示在文本框中。 （2）读取所有数据，并显示在文本框中。
32
VB 6.0程序设计
结束
14
VB 6.0程序设计
背景知识
• 向文件添加数据
– 如果在顺序文件的末尾添加数据，则用Append方式 打开文件，原有的数据仍被保留。
15
VB 6.0程序设计
背景知识
• 关闭文件
– 当一个打开的文件不再使用时，要用Close语句关闭 它。Close语句的语法格式如下。 – Close [文件号列表] – 若省略文件号列表，则将关闭 Open 语句打开的所 有活动文件。
12
VB 6.0程序设计
背景知识
• 向文件写入数据
– 向顺序文件中写入数据，要用Output方式或Append 方式打开文件，VB 6.0提供了向顺序文件中写入数 据的语句，即Print语句和Write语句。 – Print语句用于将格式化的数据写入顺序文件中。 – Write语句与 Print语句不同，当将数据写入文件时 会自动插入逗号，没有必要在列表中键入明确的分 界符。Write语句在将“输出列表”中的最后一个字 符写入文件后会插入一个新行字符，即回车换行符： Chr(13) + Chr(10)。
合并随机文件
19
VB 6.0程序设计
学习目的
1．理解随机文件的特点。 2．掌握随机文件的打开、存取和关闭操作。
20
VB 6.0程序设计
工作任务
• 假设有两个随机文件MyRan1.txt和MyRan2.txt， 把这两个随机文件合并到一个随机文件中。这 两个随机文件的记录类型相同，都是用户自定 义类型Stu，如下：
13
VB 6.0程序设计
背景知识
• 从文件中读取数据
– 从顺序文件中读取数据，要用Input 方式打开该文件， 然后使用Input 语句，Line Input语句或者Input函数 将顺序文件的内容读取到计算机中。 – Input 语句从已打开的顺序文件中读出数据并将数据 指定给变量。 – Line Input 语句，从已打开的顺序文件中读出一行并 将它分配给变量。 – Input 函数，返回从文件中读取指定个数的字符。
1
VB 6.0程序设计
VB 6.0 程序设计
2
VB 6.0程序设计
第6章 文 件 处 理 章
• 任务12 替换顺序文件中的字符串 • 任务13 合并随机文件
3
VB 6.0程序设计
任务12 任务
• • • • • • 学习目的 工作任务 实现步骤 背景知识 小结 练习
替换顺序文件中的字符串
4
VB 6.0程序设计
实现步骤
• 设计程序界面。
7
VB 6.0程序设计
实现步骤
• 单击“写入文件”按钮将字符串写入顺序文件 中。
8
VB 6.0程序设计
实现步骤
• 单击“替换”按钮时，程序从Readme.Dat文件 中找到“QBASIC”字符串，并以“Visual Basic” 字符串替换之，代码中使用一个临时文件 Temp.Dat，在替换完成后，删除原来的文件， 并将临时文件Temp.Dat重命名为Readme.Dat。 • 代码如下：