第 6 章 文件处理和输出打印

1. 第6章文件处理和输出打印 • 6.1 使用传统方法处理文件 • 6.2 使用文件系统对象处理文件 • 6.3 使用App 对象的Path属性 • 6.4 使用语句、函数处理文件 • 6.5 使用控件处理文件 • 6.6 显示和打印

2. 6.1 使用传统方法处理文件 • 6.1.1 顺序文件 • 6.1.2 随机文件 • 6.1.3 二进制文件 返回首页

3. 6.1.1 顺序文件 • 当以顺序方式访问文件时，首先要以一定操作的方式，通过Open语句将文件打开。顺序访问文件时可以执行的操作有： 从文件输入字符（Input） 向文件输出字符（Output） 把字符加入到文件（Append） • Open语句的语法是： Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]

4. 使用顺序文件的特点有： （1）当以Input方式打开文件时，该文件必须已经存在，否则会产生一个错误。 （2）当以Output 或 Append方式打开一个不存在的文件时，Open 语句会首先创建该文件，然后再打开它。 （3）一个已被打开的文件，若需要以另外的方式重新打开，则在重新打开之前必须先使用 Close 语句关闭它。 （4）如果要编辑一个文件，应先把它的内容读入到程序变量，然后再改变这些变量，并通过这些变量把对文件的更新写回到该文件。 返回本节

5. 6.1.2 随机文件 • 随机型文件是由具有相同数据类型的记录组成的，其每个记录包含一个或多个字段。 • 具有一个字段的记录，其记录类型对应于任一标准数据类型，比如整数或者定长字符串。具有多个字段的记录，则对应于用户自定义数据类型。例如，下边所定义的 Worker 类型创建了由3个字段组成的 19 个字节的记录。 返回本节

6. 6.1.3 二进制文件 • 二进制访问能提供对文件的完全控制，因为文件中的字节可以代表任何东西。另外，当需要使文件的尺寸尽量小时，也应使用二进制型文件。 • 二进制文件也使用Open 语句打开，其语法是： Open pathname For Binary As filenumber • 对二进制文件读写，使用与随机文件相同的格式。 返回本节

7. 6.2 使用文件系统对象处理文件 • 6.2.1 文件系统对象编程方法 • 6.2.2 驱动器（Drive）对象 • 6.2.3 文件夹（Folder）对象 • 6.2.4 文件（File）对象 返回首页

8. 图6-1　“引用”对话框

9. 表6-1 FSO 对象模型中的对象

10. 6.2.1 文件系统对象编程方法 1．创建 FSO 对象 • 将一个变量声明为 FileSystemObject 对象类型。 • 使用 CreateObject 方法来创建一个 FSO 对象。

11. 2．对FSO对象使用适当的方法 • 有关FSO对象的方法包括：CreateFolder（创建文件夹）、CreateTextFile（创建文件）、DeleteFolder（删除文件夹）、DeleteFile（删除文件）、CopyFolder（复制文件夹）、CopyFile（复制文件）、GetDrive（访问驱动器）、GetFolder（访问文件夹）、GetFile（访问文件）等。

12. 3．访问对象的属性 • 由于CreateFolder、CreateTextFile、GetDrive、GetFolder、GetFile等方法，可以获得Folder、File、Drive 等对象的句柄，因此，也就能访问到这些对象的属性。 返回本节

13. 6.2.2 驱动器（Drive）对象 • 通过FSO对象模型可以建立Drive对象而实现对驱动器的访问。它对应的驱动器，可以是本地的，也可以是网络上的。其中，驱动器的信息可以通过Drive 对象的属性获得， 返回本节

14. 6.2.3 文件夹（Folder）对象 • 通过FSO对象模型可以建立Folder 对象，能够实现对文件夹的访问。通过Move、Copy、 Delete等方法，可以移动、复制或删除文件夹。 • 表6-2 列出了Folder 对象在操作文件夹时的一些方法及属性。

15. 表6-2 Folder 对象在操作文件夹时的方法及属性 返回本节

16. 6.2.4 文件（File）对象 • 通过FSO对象模型建立的File 对象，能够实现对文件的访问，通过Move、Copy、Delete等方法，可以移动、复制或删除文件。 1．创建文件并添加数据 • 使用 FileSystemObject对象的CreateTextFile 方法。 • 使用 FileSystemObject对象的 OpenTextFile 方法。 • 使用File 对象的 OpenAsTextStream 方法。

17. 2．读取文件 表6-3 TextStream 对象的读文件方法

18. 3．移动、复制和删除文件 表6-4 对文件移动、复制和删除的方法 返回本节

19. 6.3 使用App 对象的Path属性 • App 对象是通过关键字 App 访问的全局对象，因此它不需要事先声明即可使用。 • 在应用程序中，特别是在程序启动过程中，经常需要取得当前执行程序的路径；其价值是可以从当前执行程序的路径位置搜索到程序所需要的其他文件的位置，如初始数据文件、帮助文件等。而以上需要，即可以通过App 对象的Path属性获得。 • Path是只读属性，其使用方法如下： Dim MyPath MyPath = App.Path 返回首页

20. 6.4 使用语句、函数处理文件 1．CurDir 函数 • 功能：返回所指驱动器的当前路径。 • 语法：CurDir[(drive)] 2．ChDrive语句 • 功能：改变当前驱动器。 • 语法：ChDrive drive 3．ChDir语名 • 功能：改变当前目录。 • 语法：ChDir path 返回首页

21. 4．MkDir 语句 • 功能：创建一个新的目录。 • 语法：MkDir path 5．RmDir 语句 • 功能：删除一个存在的目录。 • 语法：RmDir path 6．FileCopy语句 • 功能：复制一个没有被打开的文件。 • 语法：FileCopy source, destination

22. 7．Kill 语句 • 功能：从磁盘上删除文件。 • 语法：Kill pathname 8．SetAttr 语句 • 功能：为一个没有打开的文件做属性设置。 • 语法：SetAttr pathname, attributes • 表6-5列出了attributes参数的设置值。

23. 表6-5 attributes 参数设置值 返回本节

24. 6.5 使用控件处理文件 • 6.5.1 搜索文件 • 6.5.2 使用RichTextBox控件处理文档文件 返回首页

25. 6.5.1 搜索文件 • 能够用于文件搜索的内部控件是文件系统控件，含有DriveListBox、DirListBox、FileListBox三个控件。 • 一般情况下，当程序中需要一个专用的操作文件对话框时，即可以采用文件系统控件组建，如图6-2所示，其基本文件搜索功能就是通过DriveListBox、DirListBox、FileListBox三个控件实现的。它还可以通过“浏览”按钮，打开一个由公共对话框设置的标准“打开”对话框，如图6-3所示。

26. 图6-2 用于搜索数据库的对话框

27. 图6-3 选取数据库标准对话框 返回本节

28. 6.5.2 使用RichTextBox控件处理文档文件 1．LoadFile 方法 • 功能：向RichTextBox 控件加载一个 .rtf 文件或文本文件。 • 语法：object.LoadFile pathname, filetype 2．SaveFile 方法 • 功能：把 RichTextBox 控件中的内容存入文件。 • 语法：object.SaveFile(pathname, filetype) 返回本节

29. 6.6 显示和打印 • 6.6.1 在窗体和图片框上显示文本 • 6.6.2 打印输出 • 6.6.3 字体设置 • 6.6.4 打印设置 返回首页

30. 6.6.1 在窗体和图片框上显示文本 • 为了在窗体或图片框上显示文本，需要使用到它们的Print 方法。 • Print方法的语法是： [object.]Print [outputlist] [{ ; | , }] 返回本节

31. 6.6.2 打印输出 1．使用 PrintForm 方法 • PrintForm 方法可以将指定的窗体内容传送到打印机。使用PrintForm 方法的语法如下： [form.]PrintForm 2．使用 Printer 对象 • Printer 对象是一个与设备无关的图片空间，支持用 Print、PSet、Line、PaintPicture 和 Circle 方法来创建文本和图形。但只有在窗体或图片框中，才能将这些方法用于 Printer 对象。 返回本节

32. 6.6.3 字体设置 1．使用属性设置字体 • 文本是使用字体来显示的。文本字体可应用于所有支持 Font 属性的对象。 • 字体特征包括：字体名（字样）、字体大小，以及粗体、斜体、下划线或删除线等，其由Font对象的属性设置。 • 表6-6列出了Font对象的一些属性。

33. 表6-6 Font的一些属性

34. 2．使用公共对话框控件设置字体 • 通过公共对话框控件的ShowFont方法打开“字体设置”对话框，也可以设置字体。但在使用公共对话框控件的ShowFont方法之前，需要先进行公共对话框控件的Flags 属性设置。 • 表6-7列出了在显示“字体设置”对话框时，公共对话框控件所需要的Flags 属性值。

35. 表6-7 在进行字体设置时的Flags 属性值 返回本节

36. 6.6.4 打印设置 • 通过公共对话框控件的ShowPrinter方法，可以进行打印属性设置。表6-8列出了在使用公共对话框控件的ShowPrinter方法进行打印设置时，所需要控件的属性值。

37. 属性 决定 Copies 打印的份数 FromPage 开始打印页 ToPage 结束打印页 hDC 所选打印机的设备描述体 表6-8 公共对话框打印设置属性 返回本节