第7章 数据文件操作(1)

第7章 数据文件操作
重要知识点： 数据流和数据文件概念 顺序文件 随机文件
学习内容
数据流和数据文件概念 顺序文件 随机文件 二进制文件（自学）
数据文件
是数据的集合，一般保存在磁盘等外部存 储器中，简称文件。 开发应用程序中，少量变化不大的数据存 放在变量、数组等结构中；数据量大的要 以文件形式保存。 数据文件孤立地看就是二进制比特流，其 结构保存在应用程序中。 在中有顺序文件、随机文件和二进 制文件三种类型。
注意字符串的声明方式
注：该结构类型的长度为3 + 6 + 2 + 8 + 4 Biblioteka 23(B)创建和打开随机文件
语法格式：
FileOpen(文件号，路径+文件名，OpenMode.打开模式，[读写 方式]，[共享方式]，记录长度)
文件号：一个整型数，代表被打开的文件 打开模式：Append、Binary、Input、Output和Random。 随机文件使用OpenMode.Random模式 读写模式：Read、Write和ReadWrite(可读可写，默认) 共享方式：Shared、LockRead、LockWrite、 LockReadWrite(读写锁定，默认) 记录长度：指定构成记录的字节数（≤32767字节）
【例5】在例4中再增加一个按钮，将“心率.txt”文 件中“王小光”及心率删除。
“删除数据”的Click事件过程代码：
Dim FileWriter As New System.IO.StreamWriter(“c:\temp.txt") 创建临时文件 Dim FileReader As New System.IO.StreamReader(“c:\心率.txt") 准备读取数据 Dim str_name As String, data As Integer str_name = FileReader.ReadLine 读取第一个姓名 data = FileReader.ReadLine 读取第一个心率 当文件中还有数据时 Do While str_name <> Nothing If str_name <> "王小光" Then FileWriter.WriteLine(str_name) 如果不是王小光的数据， 则写入临时文件中 FileWriter.WriteLine(data) End If str_name = FileReader.ReadLine 读取下一个姓名和心率 data = FileReader.ReadLine Loop FileWriter.Close() 关闭两个文件 FileReader.Close() 删除原文件 Kill(“c:\心率.txt") 将临时文件改为原文件的路径和名称 Rename(“c:\temp.txt", “c:\心率.txt")
3. 关闭文件。格式为：
StreamWriter对象名.Close( )
【例1】创建如下程序，运行后在文本框中分别输入 “李华”、“67”，单击“输入数据”按钮，则 在C盘根目录下生成一个“心率.txt”的文件。
“输入数据”的Click事件过程代码：
Dim FileWriter As New System.IO.StreamWriter(“c:\心率.txt") 创建StreamWriter对象 FileWriter.WriteLine(TextBox1.Text) 向文件中写入数据 FileWriter.WriteLine(TextBox2.Text) FileWriter.Close() 关闭文件
数据流
如果抽去数据文件的逻辑含义，可以将文件 看成由若干字节组成的序列，这个字节序列 被称为数据流，简称流。 向文件中写入数据称为输入流。 从文件中读取数据称为输出流。
常用文件操作函数
MkDir( ) 功能和格式：创建文件夹。 MkDir(路径) 例如：MkDir(“C:\NewFold") RmDir( ) 功能和格式：删除文件夹。RmDir(路径) 例如：RmDir("C:\NewFold") Dir( ) 功能和格式：显示文件目录。Dir(路径,属性) 例如：Dir("C:\AUTOEXEC.BAT")
3. 关闭文件。格式为：
StreamReader对象名.Close( )
【例2】在例1中增加一个按钮，读取“心率.txt”顺 序文件中的数据。
“读取数据”的Click事件过程代码：
Dim FileReader As New System.IO.StreamReader(“c:\心率.txt") 创建StreamReader对象 Dim Data As String Data = FileReader.ReadLine 从文件中读取数据， TextBox1.Text = Data 并显示在文本框中 Data = FileReader.ReadLine TextBox2.Text = Data FileReader.Close() 关闭文件
姓名
李显 王小光 马一鸣
性别
男 男 女
住院日期
2011-09-05 2011-09-06 2012-03-05
花费金额
780 920 800
【例6】用户自定义数据类型声明示例。新建一个项 目，按照“住院病人表”声明一个名为Patient的 结构类型。
在模块的“声明”段写入代码：
Structure Patient <VBFixedString(3)> Public Code As String <VBFixedString(6)> Public Name As String Public Sex As Boolean Public p_Date As Date Public Spend As Single End Structure
顺序文件读取多组数据
【例4】在例3中增加相应控件，计算“心率.txt”中 存储的所有人的心率的平均值。
注意：如果数据读取完后还继续读取，则读取到的值为Nothing。
“平均值”的Click事件过程代码：
Dim FileReader As New System.IO.StreamReader(“c:\心率.txt") Dim str_name As String Dim data As Integer Dim sum As Integer, avg As Single Dim n As Integer str_name = FileReader.ReadLine 读取第一个姓名数据 Do While str_name <> Nothing 当文件中还有数据时 data = FileReader.ReadLine 读取其对应的心率数据 sum = sum + data 求和 n=n+1 计数，一共有多少组数据 str_name = FileReader.ReadLine 读取下一个姓名数据 Loop avg = sum / n TextBox3.Text = avg FileReader.Close()
顺序文件读取数据步骤
1. 创建一个StreamReader对象。格式为：
Dim 对象名 As New System.IO.StreamReader(路径+文件名)
2. 从文件中读取数据。有两种方法： StreamReader对象名.Read( ) StreamReader对象名.ReadLine( ) 注：顺序文件打开后，总是从第1个数据开始读取，下一次 读取的则是第2个数据，依次类推。
常用文件操作函数
FileCopy( ) 功能：复制文件。 格式：FileCopy(源路径与源文件名，目的路径与目的文 件名) 例如：FileCopy("D:\工作小结.doc", "C:\报告.doc") Kill( ) 功能和格式：删除文件。Kill(路径名+文件名) 例如：Kill(“D:\temp.doc") Rename( ) 功能和格式：文件改名。Rename(路径+旧文件名，路径 +新文件名) 例如：Rename ("D:\工作小结.doc", “D:\报告.doc")
顺序文件追加数据步骤
1. 创建用于追加数据的StreamWriter对象。格式为： Dim 对象名 As New System.IO.StreamWriter(路径+文件 名,System.IO.FileMode.Append) 2. 往文件中写入数据。有两种方法： StreamWriter对象名称.Write(需追加的数据) StreamWriter对象名称.WriteLine(需追加的数据) 3. 关闭文件。格式为： StreamWriter对象名称.Close( )
花费金额 780 920 800
随机文件的记录
记录由字段组成，同一记录中各字段的类型长度可 不同，但不同记录相同字段的类型长度必须一致。 程序中需要使用结构类型（即用户自定义类型，相 关内容请参看教材p30的2.1.2节）来读写数据。 记录的长度就是组成记录的各字段长度之和。
编号
001 002 003
顺序文件插入数据步骤
1. 创建一个StreamReader对象，读取原文件中的数据。 2. 创建一个StreamWriter对象，新建一个临时文件。 3. 将插入位置之前的数据依次从原文件中读取出来，并 写入临时文件中。 4. 将要插入的数据写入临时文件中。 5. 将插入位置之后的数据依次从原文件中读取出来，并 写入临时文件中。 6. 关闭原文件和临时文件。 7. 利用Kill( )函数删除原文件。 8. 利用Rename( )函数将临时文件改为原文件的名字和 路径。
注意：顺序文件会把数据追加到文件末尾！