北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法

LOF函数 格式：LOF (文件号) LOF函数以字节为单位返回用Open语句打开的文 件大小，即文件的长度。“文件号”的含义同前。 在Visual Basic中，文件的基本单位是记录，每 个记录的默认长度是128个字节。因此，对于由 Visual Basic建立的数据文件，LOF函数返回的将 是128的倍数，不一定是实际的字节数。可以用 FileLen获得未打开的文件长度。
(2) 重要事件：Change事件
2.目录列表框
(1) 常用属性：Path 该属性用于设置或返回当前目录的完整路径， 包括驱动器名和上级目录名。Path属性只在运行 阶段有效。 如：Dir1.Path=“C:\Visual Basic\Stu” 注意：Path属性只是指定了当前目录，而要想使指 定的目录真正成为当前目录，还必须使用ChDir语 句。 如：ChDir Dir1.Path
(五) 对文件重命名
语法：Name <旧文件名> As <新文件名> 说明：Name语句重新命名文件并将其移动到一 个不同的目录或文件夹中。
例如：Name “Oldfile” As “Newfile” Name “C:\mydir\oldfile” As “C:\yourdir\newfile”
二、文件系统控件及相关语句
三、标准文件输入/输出
• 顺序文件 • 随机文件 • 二进制文件
三、标准文件输入/输出
文件结构是指数据某种特定的存放方式。Visual Basic文件通 过记录、字段和字符组成。 ⑴. 字符（Character）：是构成文件的最基本单位。字符可以 是数字、字母、特殊符号。 ⑵. 字段（Field）：即字段域或域。若干个字符组成一个字段， 用来表示一项数据。例如：姓名 “张三”就是一个字段，它 由4个字符（2个中文字符）组成。 ⑶. 记录（Record）：一组相关的字段组成一个记录。例如： 在学生信息表中，每个学生的学号、姓名、性别、年级、班号、 各科成绩等多个字段，构成一个记录。在Visual Basic中，一 般以记录为单位处理数据。 ⑷. 文件（File）：一个或多个记录构成文件。例如：在学生 信息表中，有100个学生的信息，每个学生信息是一个记录， 100个记录构成一个学生信息表文件。
二、文件系统控件及相关语句
(九) 设置文件属性 语法：SetAttr <文件名>,<文件属性值> 说明：文件属性值是常数或数值表达式， 其总和用来表示文件的属性。 文件属性值取值如表P126
比如：SetAttr “Test.txt”,vbArchive+vbReadOnly
二、文件系统控件及相关语句
2．目录列表框控件的Change事件 Private Sub Dir1_Change() ChDir Dir1.Path '改变当前目录 File1.Path = Dir1.Path '改变文件列表框的路径 ShowAttr Dir1.Path '设置属性复选框组 End Sub
5．文件列表框控件的Click事件 Private Sub File1_Click() ShowAttr File1.FileName '设置属性复选框组 End Sub
Private Sub ShowAttr(ByVal sPath As String) Dim iAttr As Integer '存储文件的属性值 iAttr = GetAttr(sPath) '获取文件的属性值 If iAttr And vbNormal Then '判断是否为普通文件 Check1(0).Value = Checked '若是，则普通属性复选框被选中 End If If iAttr And vbReadOnly Then '判断是否为只读文件 Check1(1).Value = Checked '若是，则只读属性复选框被选中 End If If iAttr And vbHidden Then '判断是否为隐藏文件 Check1(2).Value = Checked '若是，则隐藏属性复选框被选中 End If If iAttr And vbSystem Then '判断是否为系统文件 Check1(3).Value = Checked '若是，则系统属性复选框被选中 End If If iAttr And vbDirectory Then '判断是否为目录（文件夹） Check1(5).Value = Checked '若是，则文件夹属性复选框被选中 End If If iAttr And vbArchive Then '判断是否为存档文件 Check1(4).Value = Checked '若是，则存档属性复选框被选中 End If End Sub
(十) 得到文件属性 语法：GetAttr <文件名> 说明：该函数返回一个Integer类型数据 此数值为文件、目录华文件夹的属性，属 性值的取值同表P126, 比如：iAttr=GetAttr(“test.txt”)
二、文件系统控件及相关语句
(十一) 常用文件系统控制
1.驱动器列表框
(1) 常用属性：Drive 该属性用于在程序运行时设置或返回选定的驱 动器，只在运行阶段有效。 如：Drive1.Drive=“C” 注意：Drive属性只是指定了当前驱动器，而要想 使指定的驱动器真正成为当前驱动器，还必须使 用ChDrive语句。 如：ChDrive Drive1.Drive
EOF函数 格式：EOF(文件号)
EOF函数用来测试文件的结束状态，即测试是否到 达文件末尾。“文件号”的含义同前。对于顺序文 件来说，如果已到文件末尾，则EOF函数返回True， 否则返回False。对于随机文件，如果最后执行的 Get语句未能读到一个完整的记录，则返回True，否 则返回False。
第5章
文件处理应用程序设计方法
学习目标
• 掌握文件读写的基本方法 • 掌握与文件处理相关的语句和函数的用法 • 理解文件系统控件的基本功能 • 了解文件管理器应用程序的开发过程
一、文件管理器程序任务
• 任务描述 • 界面设计 • 代码设计
（1）、文件是指存储在外部存储介质上的数据的集合， 是一种可以永久性存储数据的形式，操作系统以文件为 单位管理数据，文件名是文件存在的标识。 VB提供的驱动器列表框（DriveListBox）、目录列表框 （DirListBox）和文件列表框（FileListBox）三种控件 及ChDrive和ChDir两个文件管理命令语句来实现对磁盘 文件进行列表、查看、删除、移动等操作。
(六) 创建新的目录（或文件夹） 语法：MkDir <目录名>或<文件夹名>
例如：MkDir “成绩单”
二、文件系统控件及相关语句
（七）删除目录（或文件夹） 语法：RmDim <目录名>或<文件夹
名> 例如：RmDir “C:\成绩单\临时文件夹”
二、文件系统控件及相关语句
（八）得到当前的路径
语法：CurDir [驱动器名] 说明：返回指定的或当前驱动器的路径 比如：假设C驱动器的当前路径为”C:\Program Files” 假定C为当前的驱动器 Dim mypath as string Mypath=curdir „返回” C:\Program Files” Mypath=curdir(“C”) „返回” C:\Program Files”
二、文件系统控件及相关语句
（一）改变当前驱动器
语法：Chdrive <驱动器名> 例如：ChDrive “D” „将当前驱动器改为D
二、文件系统控件及相关语句
(2) 改变当前目录 语法：ChDir <路径名> 说明：ChDir语句改变缺省目录位置，但 不会改变缺省驱动器位置。
例如：ChDir “D:\TMP” 为D:\TMP „将当前目录改变
（2）、任务创建：第一步新建工程为“文件管理”， 主要用工具箱中的驱动器列表框（DriveListBox）、目 录列表框（DirListBox）和文件列表框（FileListBox ）及复选框（CheckBox）。第二步创建窗体Form1属 性Caption为“文件系统控制”；三个标签Label属性 Caption分别为“选择驱动器”、“选择文件”、“文 件属性”；六个复选框的标签属性分别为“常规”、“ 文件夹”、“存档”、 “只读”、“系统” 、“隐藏 ”。
随机存取文件（Random Access File）：又称直接 存取文件，简称随机文件。与顺序文件不同，文件中每个 记录的长度是固定的，记录中的每个字段的长度也是固定 的。在访问随机文件中的数据时，不必考虑各个记录的排 列顺序或位置，可以根据需要直接访问文件中的任意记录。 随机文件的每个记录都有一个记录号。在写入数据时，只 要指定记录号，就可以把数据直接存入指定位置。反之， 在读取数据时，通过记录号可以直接读取该记录。在随机 文件中，可以同时进行读、写操作，因而能快速地查找和 修改记录。适用于读写有固定长度记录结构的文本文件或 二进制文件。
二、文件系统控件及相关语句
(三) 删除文件 语法：Kill <文件名> 说明：可以使用“*”和“？”
例如：Kill “D:\Data\Test.txt” Kill “C:\Temp\*.tmp”二、文件系统控件及相关语句
(四) 拷贝文件 语法：FileCopy <源文件>,<目标文件
>
二、文件系统控件及相关语句
(2) 重要事件：Change事件
3.文件列表框 常用属性 （1）Path属性：与目录列表框相同，用于设置文件列表框 所示的完整路径名称。 如：File1.path=“C:\Visual Basic\Stu” （2）Pattern属性：设置文件列表框中可以显示的文件类 型。默认值为*.*,表示显示所有文件。如： File1.Pattern=“*.txt” （3）FileName属性：设置或返回选定的文件名称，只在 运行阶段可用。