第十六节设计文件应用程序.pptVIP

第十六章 设计文件应用程序 16-1 文件的概念 一、文件及其结构 文件：存储在外部介质上数据的集合。 要求操作系统中的文件系统能提供用户按名存取方式 在操作系统中有两种文件： 字符流无结构文件和记录式有结构文件 磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。 16-2-2 顺序文件的读写操作 例16.1 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 例16.2 编程把一个文本框中的内容，以文件形式存入磁盘。 假定文本框的名称为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 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)。 例16.3 编程将一文本文件的内容读到文本框 假定文本框名称为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 16-3 随机文件 16-3-1 随机文件的打开与关闭 1．打开随机文件 打开随机文件格式为： OPEN FileName FOR Random [Access Mode][Lock] As filenumber [Len = reclength] 2．关闭随机文件 随机文件的关闭与关闭顺序文件相同。 16-3-2 写随机文件 Put [#]文件号