第12章VB设计文件应用程序.ppt

第十二章 设计文件应用程序 有关的内容： 不同类型文件的打开、关闭、读、写等 3个文件系统的可视化的标准控件(驱动器, 目录, 文件列表) 和文件系统有关的语句和函数 使用文件系统对象来访问文件（学习有关对象的属性和方法） 文件的类型 文件就是保存在磁盘上的字节，不同类型的文件有不同的结构，即字节之间的关系，以及每个字节表示什么内容（是整数、字符串还是数据记录等），根据这些结构我们将文件的类型划分为三类。 顺序文件 顺序文件保存为一个连续块，块中的字节代表的都是文本字符，读取和写入都是字符或字符串类型数据（ANSI字符），而且都是按照顺序进行的。 随机文件 当一个文本文件中含有多条记录，而且每条记录有固定统一的长度时，可以实现记录的随机访问。不一定是纯文本。 二进制文件 二进制文件则适用于读写任意结构的文件。二进制文件中的字节可以代表任何东西。只有精确地知道数据是如何写到文件中后，才可能对它进行正确的读取或检索。 12.1 文件的读写 文件访问的步骤： 使用Open语句打开文件, 指定文件号和存取方式 从文件中读取数据到变量中 使用或处理变量中的数据, 或者保存变量中的数据到其它文件中 文件操作结束, 使用Close语句关闭文件 打开顺序文件 Open filename For [Input|Output|Append] As [#] FileNumber FileNumber指定一个有效的文件号，1~511，使用FreeFile函数可以得到下一个可用的文件号，此后对文件的访问基于该文件号。 可执行以下操作： Input：从文件中读取字符 Output：向文件输出字符，文件原来的内容丢失 Append：将字符追加到文件的最后，原内容保留 Input操作的前提条件是文件必须存在； Output和Append则可以自动先创建再打开。 从文件中读取一行 【例】读取文件test.txt，结果置于一个文本框中。 Open d:\test.txt For Input As 1 Do Until EOF(1) Line Input #1, NextLine Text1.Text = Text1.Text + NextLine + vbCrLf Loop Close #1 尽管Line Input # 到达回车换行时它会识别行尾，但是，当它把整行字符串读入变量时，不会包括回车换行。如果要保留该回车换行，必须在代码中添加。 修改顺序文件 对于顺序文件没有提供直接修改的方法，如果要修改一个文件的内容，一般的步骤是： 1)?????以Input方式打开文件； 2)?????读取文件的内容到某个变量中，关闭文件； 3)?????修改变量的值； 4)?????以Output方式打开文件； 5)?????将变量值写入到文件中，关闭文件结束。 访问顺序文件示例1 【例】读取任意指定的文本文件，进行如下处理：删除一个段落中的所有硬回车，只保留段落与段落之间的回车符（假设：某一行的第一个字符前有四个半角空格，就代表一个段落的开始）。 访问顺序文件示例 Dim strLine As String ‘ 用于保存每次读出的一行文本 Dim fileNo As Integer 当前打开文件的文件号 Text1.Text = Text2.Text = fileNo = FreeFile 获取当前可用的文件号 Open “d:\a.txt” For Input As fileNo Do While Not EOF(fileNo) 按行循环读出文件内容 Line Input #fileNo, strLine Text1.Text = Text1.Text strLine vbCrLf If Left(strLine, 4) = Then 行前有四个空格 Text2.Text = Text2.Text vbCrLf strLine Else Text2.Text = Text2.Text strLine End If Loop Close #fileNo 访问顺序文件示例 将处理后的文本写入文件 Open “d:\a.txt” For Output As fileNo Print #fileNo, Text2.Text Close #fileNo 访问顺序文件示例2 【例】将两个文本文件进行合并。如：1.txt + 2.txt - 3.txt Dim f_in As Integer, f_out As Integer,