dd文件概念.pptVIP

第八章 过程 ;8.1 文件的概念 ;二、文件分类;2．随机文件 随机文件（Random Access File）是可以按任意次序读写的文件，其中每个记录的长度必须相同。在这种文件结构中，每个记录都有其唯一的一个记录号，所以在读取数据时，只要知道记录号，便可以直接读取记录。 ;3．二进制文件 二进制文件（Binaryfile）是字节的集合、它直接把二进制码存放在文件中。 除了没有数据类型或者记录长度的含义以外，它与随机访问很相似。 二进制访问模式是以字节数来定位数据，在程序中可以按任何方式组织和访问数据，对文件中各字节数据直接进行存取。 ;8.2 顺序文件操作 ;例如： OPEN “C:\TEMP\A.TXT ” FOR Input AS #1 OPEN“C:\TEMP\B.TXT ” FOR Output AS #2 OPEN“C:\TEMP\C.TXT ” FOR Append AS #1;8.2.2 顺序文件的读写操作;2. 顺序文件读操作 从现存文件中读入数据，应以顺序Input方式打开该文件。然后使用 Input# 语句、Line Input# 语句和Input( )函数读入到程序变量中。 使用格式如下： INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 读一行到变量中，主要用来读取文本文件。 INPUT$(读取字符数, #文件号) 读取指定的数量的字符，作为函数的返回值。;3．与读文件操作有关的几个函数 （1）Lof 函数 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 （2）Loc 函数 Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，它将返回最近读写的一个字节的位置。 （3）Eof 函数 Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，Eof 函数返回TRUE(-1)，否则返回FALSE(0)。 ;例8.1 编程将一文本文件的内容读到文本框 假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。 方法1：一行一行读 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+vbCrLf Loop Close #1 ;方法2：一次性读 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData Loop Close #1 ;8.3 随机文件操作;2．关闭随机文件 随机文件的关闭与关闭顺序文件相同。 8.3.2 写随机文件 Put [#]文件号，[记录号]，变量名 将一个记录变量的内容写到指定的记录位置处。 忽略记录号，则表示在当前记录后的位置插入一条记录。 8.3.3读随机文件 Get [#]文件号，[记录号]，变量名 忽略记录号，则读出当前记录后的那一条记录。;例8.2 设计一个简单的学生成绩管理程序，使用随机文件存储学生信息。程序的运行界面下图所示，该程序的具有数据添加、修改、删除及学生信息顺序查询等功能。 ;在标准模块Module1中定义学生信息数据类型及全局变量： Type Student 定义学生信息记录类型 Id As String * 8 Name As String * 10 Class As String * 10 Subject As String * 20 Mark(1 To 3) As