第七章节授课ppt-第7章文件

End Sub
8
江苏计算机等 级考试
[常用事件]
Visual Basic 程序设计
Change: 当用户双击目录列表框中的目录项，或通过赋值语句改
变了目录列表框的Path属性，都会引发该事件。
一般在此事件中，用path属性更新文件列表框的path属性，保 持文件列表框和目录列表框的同步变化。
[常用语句]：
drive1.listindex = 2
11
江苏计算机等 级考试
[常用事件]
Visual Basic 程序设计
PathChange: Path属性改变时引发该事件；
注意：在程序中，给文件列表框的Filename属性赋值，也会自 动改变它的Path属性，触发本事件。
file1.filename=“c:\config.sys”
表7-2 Visual Basic 程序设计
语句和函数 Close Get InPut() InPut # Line Input # Open Print # Put Type……End Type Write
顺序型
随机型
18
二进制型
江苏计算机等 级考试
1．打开文件 —— Open语句
-4
当前突出显示的目录，索引值
-3
为-1，紧邻其上的目录为-2，再
-2
上一层为-3，依次类推；而当前
工作目录的第一个子目录的索引
-1
值为0，其他子目录的索引值顺
0
次递增。 1
7
江苏计算机等
级考试
[常用属性]： Name:名称属性，缺省时为Dir1;
Visual Basic 程序设计
Path:设置和返回目录列表框中的当前目录，为运行态属性； 可以通过如下两种方式设置：一是赋值语句；二是双击目录列表 框中某项。
Visual Basic 程序设计
对文件进行操作之前，必须用Open语句打开或建立一个文件 [功能]：
为文件的输入输出分配缓冲区，指定文件的存取类型(模式)和存 取方式，定义与文件相关联的文件号。
[格式]： Open 文件名 [FOR 模式] [Access 存取类型] [锁定] AS [#]文件号 [Len=记录长度]
10
江苏计算机等 级考试
Visual Basic 程序设计
Pattern:文件种类，设置文件列表框显示文件的种类, 缺省为*.*
例： File1.Pattern=“*.txt ; *.frm”
• FileName:设置和返回文件列表框中将显示的文件名称，为运行 态属性； 例： File1.fileName=“d:\*.frm”
注意：一般文件列表框中显示当前目录之中的文件，即文件列表框 与目录列表框必须同步，必须使用如下语句：
<文件列表框>.path=<目录列表框>.path
此语句通常在目录列表框的Change 事件中执行。
例如：
Private Sub dir1_change()
file11.path=dir1.path
End Sub
PatternChange: Pattern属性改变时引发该事件；
Click:单击事件。
12
江苏计算机等
级考试
[文件属性]：——指定在文件列表框中显示某类属性的文V件is程u序al设B计asic ReadOnly:只读属性，缺省值True； Hidden:隐含属性，缺省值False ； System:系统属性，缺省值False; Archive: 存档属性，缺省值True ； Normal: 通常属性，缺省值True; 说明：当Normal属性为True 时，System 、Hidden 文件不显 示；当Normal属性为False 时, 文件类型置为True的可显示。
ChDir dir1.Path 9
江苏计算机等 级考试
7.1.3 文件列表框( FileListBox )
Visual Basic 程序设计
[功能]：显示系统当前目录下的文件列表。
[常用属性]：
•Name：名称属性，缺省时为File1；
• Path：设置和返回文件列表中所显示文件的路径，为运行态属性
•ListCount:返回文件(组合框、驱动器、目录)列表框中的所列项目 的总数，为运行态属性；
• ListIndex:设置或返回当前控件上所选择项目的“索引值”，为 运行态属性，列表框中的第一项为0，第二项为1，依次类推，若 文件列表框中一项也没有选定，则返回-1；
dir1.listindex = -2
Drive属性都会激活该事件。
一般在此事件中，用drive属性更新目录列表框的path属性，保
持驱动器列表框和目录列表框的同步变化。 5
江苏计算机等 级考试
[常用语句]：
Visual Basic 程序设计
格式：ChDrive Drive
功能：改变当前工作驱动器—— 对文件进行存取操作时的缺省 驱动器。
Dim name As String If Right(File1.Path, 1) <> "\" Then
name = File1.Path & "\" & File1.FileName Else
name = File1.Path & File1.FileName End If Picture1.Picture = LoadPicture( name )
3) 所有当前使用的文件号必须是唯一的。即当前使用 的文件号不能再分配给其他文件。
4) 如果以Output模式打开一个已存在的顺序文件， 则该文件中原来数据将被覆盖。
23
江苏计算机等
级考试
举例
P138 Visual Basic 程序设计
1) Open "Exam" FOR Output AS #5
InPut
设定为顺序输入模式
Append 设定为添加模式，与OutPut方式不同，
以Append方式打开顺序文件时，文件
指
针定位在文件末尾，写入的数据添加到
原来文件的后面。
Random 设定为随机访问的模式
Binary
设定为二进制访问模式
如果缺省FOR子句，将以随机访问模式Random打开文件。
20
file1.normal=false file1.system=true
13
江苏计算机等
级考试
7.1.4 组合使用文件管理控件
Visual Basic 程序设计
为使文件管理控件协调工作，关键点是使驱动器、目录、文件 列表框同步，通过下述两个事件过程实现：
Private Sub drive1_change()
目录列表框 DirListBox
驱动器列表框 DriveListBox
文件列表框 FileListBox
4
江苏计算机等
级考试
7.1.1 驱动器列表框（DriveListBox）
[功能]：
一个下拉式列表框，显示当前系统的所有驱动 器列表，顶端显示的是当前选定的驱动器。
Visual Basic 程序设计
说明： Drive参数是字符型，必须为系统有效的驱动器名。
[例如]： ChDrive “D:”
注意：该语句的执行与驱动器列表框无关，既不会改变列表框的 drive属性，列表框顶端的显示，也不会引发驱动器列表框的 Change事件。
同样，在驱动器列表框中选定某驱动器，并不能直接将其变 更为当前工作驱动器，必须使用如下语句：
注意：一般目录列表框中显示当前驱动器上的目录，即目录列表 框与驱动器列表框必须同步，必须使用如下语句：
<目录列表框>.path=<驱动器列表框>.drive
此语句通常在驱动器列表框的Change 事件中执行。
例如： Private Sub Drive1_change()
Dir1.path=Drive1.drive
江苏计算机等
级考试
磁盘文件
输入 数据
读文件方式: Input
Visual Basic 程序设计
程序
磁盘文件
输出 数据
写文件方式: Output Append
21
江苏计算机等
级考试
Visual Basic 程序设计
4) 存取类型(Access)
用来指定访问文件的类型。可以是：
Read
对打开的文件只能进行读操作
格式：ChDir Path
功能：改变系统当前工作目录。
说明：
（1） ChDir语句改变的是当前驱动器（或指定驱动器）的工作目
录，而不能改变工作驱动器；
（2）该语句与目录列表框无关，即不会改变目录列表框的当前目
录，也不会触发Change事件。
同样，在目录列表框中选定某目录，并不能将其变更为当前工
作目录，必须使用如下语句：
ChDrive drive1.drive
6ቤተ መጻሕፍቲ ባይዱ
江苏计算机等 级考试
7.1.2 目录列表框( DirListBox )
Visual Basic 程序设计
[功能]：显示系统当前驱动器的目录结构，并突出显示当前目录。 显示从根目录开始，到当前目录这条路径上的所有目录，以及当前 目录的下属所有第一级子目录。
[目录索引]：
[常用属性]：
Name:名称属性，缺省时该属性值为Drive1;
Drive:当前驱动器属性，该属性为运行态属性；可以用于返回在 驱动器列表框中当前选取的驱动器号，也可用于指定在驱动器列表 框顶端显示的驱动器；
[常用事件]：
Change:当用户在驱动器列表框中选择一个驱动器，或在列表框 顶端输入一个驱动器标识，或通过赋值语句修改了驱动器列表框的
22
江苏计算机等 级考试
注意：
Visual Basic 程序设计
1) 如果以Output、Append、Random和Binary 模式打开一个不存在的文件，Visual Basic会创建一个 相应的文件。
2) 在Input、Random和Binary模式下，可用不同的 文件号打开同一个文件。但以Output和Append模式 打开的文件在关闭之前不能用不同的文件号重复地打开 它。
Write
对打开的文件只能进行写操
作
5) 文件Re号ad(FWilernitoe) 对打开的文件可读可写
取值范围在1～511范围之内。执行Open语句时，
文件与分配给定的文件号相关联。
6) 记录长度(Reclength) 是一个整型表达式，其值≤32767。 对顺序文件，用该参数设定缓冲区的大小。 不指定，缓冲区的缺省值为512个字节。
例：文件控件的组合使用。 Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub Private Sub Dir1_Change()
File1.Path = Dir1.Path File1.Pattern = "*.wmf"
End Sub Private Sub File1_Click()
[说明]：
1) 格式中的Open、 FOR、 Access、AS、Len为关键字
2) 文件名(Filename)：
3)
文件的名字，可用字符串或字符型变量表示。可以
包括盘符和路径。
3） 模式(mode)：
19
江苏计算机等
级考试
说明访问文件的方式：
Visual Basic 程序设计
OutPut 设定为顺序输出模式
Visual Basic 程序设计
第7章 文 件
江苏省计算机等级考试
Visual Basic 程序设计
江苏计算机等 级考试
Visual Basic 程序设计
江苏计算机等 级考试
7.1 文件管理控件
Visual Basic 程序设计
VB 提供了驱动器列表框、目录列表框和文件列 表框三个特殊的控件，将他们组合起来使用，可 以创建与文件操作有关的界面。
End Sub
P134
７.2 文件处理
Visual Basic 程序设计
文件： 所谓文件，是一组相关信息的集合，是存放在磁盘上一系列
相关的字节.
文件访问类型： 顺序访问：从文件头开始，依次访问其中数据，适用于文 本文件； 随机访问：适用于以记录形式保存的二进制文件，可以存 取任意指定位置的记录； 二进制访问：适用于任意二进制文件 , 以字节为单位存取 数据。
16
江苏计算机等
级考试
Visual Basic 程序设计
❖文件操作的一般步骤：
➢首先将文件“打开”，即将相关信息加载进内存，建立 文件与内存中某个文件缓冲区的关联； ➢文件“存／取”操作； ➢最后“关闭”文件，即释放文件所占用的文件缓冲区。
17
江苏计算机等
级考试
7.2.2文件访问的语句和函数
P136
dir1.path=drive1.drive End Sub
来看个例子吧 ［例７－2］。
——保证目录列表框与驱动器列表框同步更新。
Private Sub dir1_change()
file11.path=dir1. path
End Sub
——保证文件列表框与目录列表框同步更新。
14
江苏计算机等 级考试