项目功能.pptVIP

第6章 文件操作 教学内容： 6.1 文件分类 6.2 顺序文件的读写 6.3 随机文件的读写 6.4 文件系统控件 6.5 顺序文件应用案例 一、项目功能 二、知识、能力和素质目标 Private Sub Command2_Click() c1.ShowOpen Open c1.FileName For Input As #1 Dim a, B As String Dim c As Integer Do Until EOF(1) = True Input #1, a c = jiemi((a)) B = B Chr(c) Loop Close #1 MsgBox (已解密，解密结果是： B) End Sub 6.1 文件分类 6.1 文件分类 6.1 文件分类 1. 顺序文件 数据是顺序存储的，文件记录一条接一条地存放。在这种文件中，每个记录的长度不一。读取文件时默认提供第一个数据的存储位置。因此要想正确读出数据，必须知道文件的写入过程，并且从头开始一个一个的读出数据。 顺序文件占内存空间少、使用容易、组织比较简单，只要把数据记录一条接一条写入文件即可。但维护困难，为修改文件中某个记录，必须读入整个文件，从第一条记录开始查找直到修改记录，修改后再重新写入磁盘。顺序文件不能灵活存取和增减数据。 6.1 文件分类 2. 随机文件 随机存取文件又称直接存取文件，简称随机文件或直接文件。 它的每一条记录都是固定的长度，每一条记录都有一条记录号。只要指定记录号，系统就可根据每个记录的长度计算出记录的位置，直接读写，存取很方便。 随机文件存取方便灵活、速度快、易修改，但占用空间大，不管数据字段多小，一定要占用指定长度大小空间。 6.1 文件分类 3、二进制文件：以二进制方式保存的文件，文件是字节的集合，并且允许程序按所需的任何方式组织和访问数据。除了没有数据类型或者记录长度的含义以外，它与随机文件很相似。然而，为了能够正确地对它检索必须精确地知道数据是如何写到文件中的。 6.1 文件分类 1. 顺序文件 文件中的记录按顺序存放 按第一个记录的存储位置顺序访问 2. 随机文件 可按任意次序读写文件(按记录号) 每个记录的长度必须相同 3. 二进制文件 文件是字节的集合 允许程序按所需的任何方式组织和访问数据 本章主要介绍顺序文件和随机文件的读写操作 6.2 顺序文件读写 6.2.1 打开与关闭顺序文件 文件在访问前先要打开。格式如下： Open 文件名 For {Input | Output | Append} As 文件号 说明： (1) 文件名为所要打开的文件名称 (带路径)。 (2) Input,Output和Append用于设置顺序文件的打开方式。 Input表示从文件读取数据，该文件必须已经存在，否则会出错。 Output表示向文件写入数据，新的数据从文件头开始写入，原有的数据将被覆盖；如果指定的文件不存在，则创建一个新文件，因此创建新文件时可以使用该语句。 Append表示向打开的文件中添加数据，此时文件原有的数据被保留，新的数据将从文件尾开始添加。如果文件不存在，则创建一个新文件。 6.2 顺序文件读写 6.2 顺序文件读写 6.2 顺序文件读写－读顺序文件 [例6.1] 用Line Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim NextLine As String Open t1.txt For Input As #1 打开文件 Do While Not EOF(1) 循环至文件尾 Line Input #1, NextLine 读入一行数据 Print NextLine Loop Close End Sub 6.2 顺序文件读写－读顺序文件 [例6.2] 用Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open t1.txt For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop Close End Sub 6.2.3写顺序文件 6.2.3写顺序文件 写顺序文件：打