VB第8章 文件2

第8章 文件
8
要让目录列表框显示的内容随着驱动 器列表框的内容同步变化，应：
<目录列表框名>.Path=<驱动器列表框名>.Drive 如在Drive1_Change事件过程中加入： Dir1.Path=Drive1.Drive 可实现驱动器列表框和目录列表框的同步变化。
第8章 文件
9
常用事件：
以ASCⅡ码方式存储。
随机文件：由相同长度的记录组成，记录中各
个数据项的类型可以不同，数据以二进制方式存 储。允许在任何时候访问文件的任何地方。
二进制文件：数据以二进制方式存储，常用于
计算机内外存之间批量交换数据。
第8章 文件
4
7.1 文件管理控件
VB提供了三种文件管理控件：(回顾资
源管理器的驱动器、文件夹和文件。)
第8章 文件
28
(3)Open
“ABC.TXT”
For
Input
As
#6
——以顺序输入模式打开文件ABC.TXT，文件号为 6。该文件必须已经存在，并可从中读出数据， 否则出错。 (4)Open “AAA” For Random As #2 Len=40 ——以随机方式打开文件AAA，文件号为2，记录 长度为40个字节。
第8章 文件
29
练习：下面能够正确打开文件的一组语句是 :
A. Open “data1” For Output As # 5 Open “data1” For Input As # 5 B. Open “data1” For Output As # 5 Open “data1” For Input As # 6 C. Open “data1” For Input As # 5 Open “data1” For Input As # 6 D. Open “data1” For Input As # 5 Open “data1” For Random As # 6
(5)ListCount属性—运行时属性，用于组合框、驱动器列 表框、目录列表框和文件列表框，返回控件内所列项目的 总数，如： Print
个数
第8章 文件 13
File1.ListCount ’输出文件列表框中文件的个数
print dir1.listcount ’输出目录列表框当前目录所包含的子目录
第8章 文件
23
Open 文件名 [For 模式] [Access 存取类型] [锁定] As [#]文件号 [Len=记录长度]
(3)模式指访问文件的方式，可以是：
Output—顺序输出模式 Input —顺序输入模式 Append—添加模式,写入的数据添加到文件末尾 Random—随机访问模式
Open
文件名 [For
模式] [Access 存取类型]
[锁定]
As [#]文件号 [Len=记录长度]
第8章 文件 22
Open 文件名 [For 模式] [Access 存取类型] [锁定] As [#]文件号 [Len=记录长度]
说明：
(1)格式中的Open、For、Access、As、Len为 关键字 (2)文件名为要打开的文件的名字，可用字符 串或字符型变量表示，可以包括盘符和路径。
第8章 文件 15
问题：
列表框、组合框控件的ListIndex属性,是设计时属性? 运行时属性?当选定该控件的列表项中的第1个项目时， 其ListIndex属性值为 则ListIndex属性值为 ? 若没有选任何项目， ?
运行时属性 ListIndex属性值为0，-1
第8章 文件
16
常用事件：
在内存中分配的文件缓冲区的个数是有限的，即同 时打开的文件个数也是有限的。为了合理的使用系 统资源，不用的文件应及时将其关闭。
第8章 文件
21
二、文件访问的语句和函数(P136表7-2)
1.打开文件语句—Open语句
功能—为文件的输入输出分配缓冲区，指定文件的 存储类型和存取方式，定义与文件相关联的文件号， 给出随机文件的记录长度。 格式：
第8章 文件
6
常用事件：
Change—选择新的驱动器后，激活该事件过程
常用语句：
ChDrive—改变当前工作驱动器
格式： ChDrive Drive
其中： Drive是一个字符型参数，可以是系统有效的驱动器名
例：chdrive “D:” ’将当前驱动器改为D盘 chdrive drive1.drive ’将当前驱动器改为
C
第8章 文件
30
练习：
A. B. C. D.
若磁盘文件C：\Data1.dat不存 在，下列打开文件的语句中，会产生错误的 是: Open “c:\data1.dat” For Output As # 1 Open “c:\data1.dat” For Input As # 2 Open “c:\data1.dat” For Append As # 3 Open “c:\data1.dat” For Binary As # 4
drive 属性所指定的驱动器
第8章 文件 7
二、目录列表框（图7-3）
目录列表框显示用户系统当前驱动器的目录结构，并突出 显示当前目录。 常用属性： Name—缺省为: Dir1 Path —运行时属性。用于设置和返回目录列表框中的当前目 录。 在程序中可通过下列语句格式改变当前目录： <目录列表框名>.Path=路径 例如：Dir1.Path=“E:\vb” ’将E盘的vb目录设为当前目录
Change—当双击目录列表框中的目录项，或在 程序代码中通过赋值语句改变Path属性值，会 发生该事件。
常用语句：
ChDir—设置当前工作目录 格式：ChDir Path
其中： path是一个字符型表达式，指出新的缺省工作目录或文件夹
例：chdir “F:\lgy” ’将F盘的lgy目录设为当前目录 chdir dir1.path ’将目录列表框的当前目录设为
第8章 文件 18
7.2 文件处理
一、文件访问的类型
顺序：文本文件（ASCII码）
随机：等长记录，二进制的信息
随时访问文件的任何地方
二进制：不等长记录，二进制的信息。
只能顺序访问。
20
第8章 文件
文件访问的一般步骤：
打开：将文件加载到内存
存/取：读取或写入数据
关闭：释放文件所占用的内存缓冲区，因为系统
(6) ListIndex属性—运行时属性，用于组合框、 驱动器列表框、目录列表框和文件列表框，设置或 返回控件内所选项目的索引值。 驱动器列表框和文件列表框中的第一项索引 值为0，第二项索引值为1，依次类推。对于文件列 表框，若在其中没有文件被显示，则ListIndex返 回-1。而目录列表框，则当前目录的索引值为-1， 紧邻其上的目录索引值为-2，当前目录的第一个子 目录索引值为0，第二个子目录索引值为1，…
驱动器列表框 目录列表框
文件列表框
第8章 文件
5
一、驱动器列表框（图7-2）
驱动器列表框是一个下拉式列表框，缺省时顶端 突出显示用户系统当前驱动器名称。
常用属性：
Name—缺省为:Drive1 Drive—运行时属性。用于设置或返回用户选取的驱动 器 如：Drive1.Drive=“C:\” ’将C盘设为系统当前驱动器
Binary — 二进制访问模式
如果缺省For子句，默认为随机访问模式。
第8章 文件 24
Open 文件名 [For 模式] [Access 存取类型] [锁定] As [#]文件号 [Len=记录长度]
(4)存取类型（Access)，可以是： Read — 只能进行读操作 Write— 只能进行写操作 Read Write — 可读可写 注意：如果是顺序文件，并已在其For子句中指 定了访问文件的模式，则不需要Access子句。 (5)锁定—只在网络或多任务环境中使用。
第8章 文件 14
如：


Drive1.ListIndex=2 File1.ListIndex=0 Dir1.ListIndex=-2
’在驱动器列表框中突出显示驱动器列表框中的第3个项目 ’在文件列表框中突出显示文件列表框中的第1个项目

’在目录列表框中突出显示当前目录的上一层目前，
并不改变Dir1.Path的属性(P127)
第8章 文件 26
注意：
(1)如果以Output、Append、Random和Binary模式打开一 个不存在的文件，VB将创建一个新文件。 (2)在Input、Random和Binary模式下，可以用不同的文件 号打开同一个文件，但在Output和Append模式打开的文件 在关闭之前不能用不同的文件号重复打开它。 (3)当前使用的文件号必须是唯一的,且应在1--511之间。 (4)以Output模式打开一个已存在的文件，该文件中的数 据将被覆盖。
第8章 文件 11

使用文件属性
可以使用文件属性来指定在文件列表框中显示 的文件，如要在文件列表框只显示“只读”文件， 可在属性列表框中设置如下： File1.Readonly=true File1.Archive=False File1.Normal=False File1.System=False File1.Hidden=False
系统的当前目录
第8章 文件 10
三、文件列表框（图7-4）
文件列表框在运行时列出由文件列表框控件 的Path属性指定目录中的文件。 常用属性：
(1)Name属性—缺省为File1 (2)Path 属性—运行时属性，设置和返回文件列表 框中所显示文件的路径，如： File1.Path=路径 (3)Pattern属性—设置文件列表框中要显示的文件 类型， 缺省为*.*。 如只要显示扩展名为EXE的文件，在程序代码设置 Pattern属性的格式为： File1.Pattern=“*.EXE”
(1)PathChange—当文件列表框的Path属性改变时，会产生该 事件。如以下两种情况均会改变文件列表框的Path属性， 从而引发PathChange事件。 File1.Path=Drive1.Drive 动器 ’改变驱动器列表框的当前驱
或 File1.Path=Dir1.Path

’改变目录列表框的当前目录
File1.FileName=“C:\Config.sys” ’给文件列表框的 FileName的属性重新赋值
(2)PatternChange—当文件列表框的Pattern属性改变时，会 产生该事件。
第8章 文件 17
四、组合使用文件管理控件

例7-1
驱动器、目录和文件列表框控件总是在一起 使用，所以应该在每个控件的Change事件过程中 编写相关的同步化程序代码，如： Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub
第8章 文件 25
Open 文件名 [For 模式] [Access 存取类型] [锁定] As [#]文件号 [Len=记录长度]
(6)文件号是一个整型表达式，取值在1~511 之间。在文件操作语句和函数中，使用文件号 与文件相关联。 (7)记录长度(Len子句) 是一个整型表达式，取值1~32767。 随机文件—设置记录长度(缺省为128个字节) 顺序文件—设定缓冲区大小(缺省为512字节) Len子句不适用于二进制文件。
第八章
文
件
第8章 文件
1
文件的概念:
文件—记录在存储介质上的一组相关 信息的集合 文件由记录组成 记录由若干个数据项组成 每条记录由回车符（chr(13)）作为结 束标志
第8章 文件 2
文件的作用： 为应用程序提供大量数据 与其他应用程序共享数据
第8章 文件
3
文件的种类：
顺序文件：为普通的文本文件，文件中的数据
第8章 文件
27
打开文件举例：
(1)Open “ABC.TXT” For Output As #5 ——以顺序输出模式打开文件ABC.TXT，文件 号为5。如该文件不存在，则建立一个新 文件，如该文件已存在，则打开该文件， 新写入的数据将覆盖原来的数据。 (2)Open “ABC.TXT” For Append As #4 ——以添加模式打开文件ABC.TXT，文件号为 4，新写入的数据将添加在原数据的后面。
第8章 文件
12
(4)FileName属性—运行时属性，用于设置和返回 文件列表框中显示的文件名称。 例如：语句 File1.FileNAme=“D:\*.EXE”
将在文件列表框中显示D盘根目录下的所有扩展名为EXE的 文件，同时Path属性也改变为“D:\”,且激活 File1.PathChange事件。