第9章　文件系统.pptVIP

第九章　文件系统 软件教研室　刘辉 9.1 文件系统概述 一、基本概念： 字符：构成文件的基本单位 字段：几个字符组成的一项数据 记录：由一组相关的字段组成 文件：由一个或一个以上的记录集合而成的数据单位 二、文件访问类型： 顺序文件：记录按顺序存放 随机存取文件：按照指定的记录号进行读写 二进制文件：把文件当成一个长的字节序列来处理 三、文件访问函数： FreeFile( )函数：把一个未使用的文件号赋给指定变量 LOF( )函数：返回用Open语句打开的文件大小 EOF( )函数：表明已经到达打开文件的结尾 FileLen( )函数：返回已打开文件的大小 9.2 使用传统方法处理文件 一、顺序文件： 1、当以顺序方式访问文件时，首先要以一定操作的方式，通过Open语句将文件打开。 顺序访问文件时可以执行的操作有： 从文件输入字符（Input） 向文件输出字符（Output） 把字符加入到文件（Append） Open语句的语法是： Open 文件名 For [Input | Output | Append] As 文件号 [Len = buffersize] 顺序文件（Sequential File）是普通的文本文件。顺序文件中的记录按顺序一个接一个地排列。读写文件存取记录时，都必须按记录顺序逐个进行。一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔符号。  2、顺序文件的写操作： Print#语句：将数据写入到文件中。 Print#文件号，数据[{，| ；}] 注意：文件号后省略则文件写入一个空行。若要读出print#语句在文件中写入的数据，一般要与line print#语句配合使用。 说明：文件号为以写方式打开文件的文件号； Write#语句：将数据写入到文件中。 Write# 文件号，数据 注意：文件号后省略则文件写入一个空行。若要读出write#语句在文件中写入的数据，一般要与 input#语句配合使用。 Write语句采用紧凑格式。数据项之间插入“,”，并给字符数据加上双引号。 Print#语句与write#语句主要区别 Write#语句在写入数据时在数据项之间自动加入分界符，而print#语句则根据指定的格式将数据写入到文件中各数据项之间不会自动加入分界符。 例 Print与Write语句输出数据结果比较。 Private Sub Form_Click() Dim Str As String, Anum As Integer Open D:\Myfile.dat For Output As 1 Str = ABCDEFG Anum = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub 3、顺序文件的读操作： Input#语句：读出数据项，依次赋给变量列表中的变量 Input# 文件号，变量列表 Line Input#语句：读取一行数据，并将读出的数据赋给变量列表中的变量 Line Input# 文件号，变量名 Input( )函数:在已打开文件的当前位置读取指定个数的字符串。返回读出的所有字符。 Input( n,[#]文件号) 与读文件操作有关的几个函数 （1）Lof 函数 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 （2）Loc 函数 Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，它将返回最近读写的一个字节的位置。 （3）Eof 函数 Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，Eof 函数返回TRUE(-1)，否则返回FALSE(0)。 例 ：编程将一文本文件的内容读到文本框 假定文本框名称为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：一个个字符读