青海大学 第十章__数据文件.ppt

本章内容及要求 10.1 文件的基本概念 10.2 顺序文件的读写操作 10.3 随机文件的读写操作 10.4 文件系统控件 文件：存储在外部介质上数据的集合。按名存取。磁盘文件是由数据记录组成。 记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。 例 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 例：编程把一个文本框中的内容，以文件形式存入磁盘。 假定文本框的名称为Mytxt，文件名为Myfile.dat。 方法1：把整个文本框的内容一次性地写入文件。 Open Myfile.dat For Output As #1 Print #1, Mytxt.Text Close #1 方法2：把整个文本框的内容一个字符一个字符地写入文件。 Open Myfile.dat For Output As #1 For i=1 To len(Mytxt.Text) Print #1,Mid(Mytxt.Text,i,1); Next i Close #1 从现存文件中读入数据，应以顺序Input方式打开 该文件。然后使用 Input# 语句、Line Input# 语句和 Input( )函数读入到程序变量中。 使用格式如下： INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 读一行到变量中，主要用来读取文本文件。 INPUT$(读取字符数, #文件号) 读取指定的数量的字符，作为函数的返回值。 （1）Lof 函数 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 （2）Loc 函数 Loc函数将返回在一个打开文件中读写的记录号；对于二进制文件，它将返回最近读写的一个字节的位置。 （3）Eof 函数 Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，Eof 函数返回TRUE(-1)，否则返回FALSE(0)。 例： 编程将一文本文件的内容读到文本框 假定文本框名称为Text1，文件名为MYFILE.TXT。可以通过下面三种方法来实现。 方法1：一行一行读 Text1.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData Text1.Text ＝ Text1.Text + InputData+vbCrLf Loop Close #1 方法2：一次性读 Text1.Text ＝ Open MYFILE.TXT For Input As #1 Text1.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 Text1.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Input #1, InputData Text1.Text ＝ Text1.Text + InputData Loop Close #1 1、打开： OPEN FileName FOR Random [Access Mode][Lock] As filenumber [Len = reclength] 2．关闭 随机文件的关闭与关闭顺序文件相同。 1、写入： Put [#]文件号，[记录号]，变量名 将一个记录变量的内容写到指定的记录位置处。 忽略记录号，则表示在当前记录后的位置插入一条记录。 2、读出： Get [#]文件号，[记录号]，变量名 忽略记录号，则读出当前记录后的那一条记录。 10.4.1 驱动器列表框（DriveListBox） 10.4.2 目录列表框（ DirListBox） 10.4