项目七 访问与管理文件（课件）-《Visual Basic6.0项目教程》（电工版第3版）同步精品课堂

7.1访问与管理文件 Visual Basic6.0项目教程 同步精品课堂 电子工业出版社 任务一 驱动器列表框、目录列表框、文件列表框 任务二 顺序文件、随机文件 任务三 Scripting 类型库、FSO对象模型 掌握国家标准《机械制图》中有关图幅、比例、字体图线等基本规定。 教学目标 一 1、掌握控件所包含知识 2、掌握顺序、随机文件的考点 掌握国家标准《机械制图》中有关图幅、比例、字体图线等基本规定。 教学重点： 控件的功能 、属性、事件、方法 教学难点： 文件的操作 教学重难点 二 导入新课 三 之前的章节我们已经了解了绝大多数的控价，标准控件基本还剩下关于文件的三个控件和链接数据库的控件，那么关于文件大家有没有操作过？用哪些控件操作的呢？这节课我们了解关于文件的控件和操作。 思考思考问题：： 任务一 驱动器列表框、目录列表框、文件列表框 新知讲授 四 ②List 属性:包含有效的驱动器连接列表。 ③ListCount属性:连接的驱动器个数。 ④Listndex属性:表示在程序运行中创建该控件时的当前驱动器的索引值。 （1）驱动器列表框(DriveListBox)控件的功能：用来显示用户系统中所有有效融盘动器的列表，供用户选择有效驱动器的盘文件列表中的文件。 (2)驱动器列表框控件的常用属性。 ①Drive属性:返回或设置在程序运行时选择的驱动器名，默认值为当前驱动器，该属性在程序设计时不可用。在设置该属性时,字符串的第一个字符是有效字符（字符串不区分大小写）。 驱动器列表框控件： （1）目录列表框（DirLisBox)控件的功能：在程序运行时显示目录和路径，用于是示分层的目录列表，以便在所有可用目录中从文件列表中打开一个文件。 (3)驱动器列表框控件的Change事件。 在选择一个新的驱动器或通过代码改变 Dive 属性的设置时会触发 Change 事件。 新知讲授 四 目录列表框： 如果当前展开的目录用索引值-1表示,则当前展开目录的上--级目录用绝对值大一些的负索引值来表示。当前展开的日录以下的目录索引值的取值范围是0~-ListCount-1 （2）目录列表框控件的常用属性。 ①List属性:包含所有目录的列表，目录的索引值的取值范围为-n--ListCoun-1. 新知讲授 四 (3)目录列表框控件的Change事件。 当双击一一个新的目录从而改变所选择的目录，或者通过代码改变 Pah属性的设置时，会触发Change事件。 ②ListCount展性:返回当前目录中子目录的个数。 ③SListndex 属性:返回当前路径的索引值。 ④Path属性:返回或设置当前路径，该属性在程序设计时是不可用的 新知讲授 四 新知讲授 四 (2)文件列表框控件的常用属性。 ①Archive 属性、 Hidden 性、Nomal屈性和System 属性:设置或返回一个布尔值，决定文件列表框是否以档案属性、隐藏属性、普通属性或系统属性来显示文件。 ②FileName属性:返回或设置所选文件的路径和文件名,该属性在程序设计时不可用 （1）文件列表框(FileListBox)控件的功能：在程序运行时把Path属性指定目录中的文件显示出来，用来显示所选择文件类型的文件列表，通过它选择一个文件或一组文件。 文件列表框控件： ⑤Listndex 属性:返回当前选择文件的索引值。 ⑥Mutiselect 属性:返回或设置一个值，该值指定是否能够在文件列表框控件中进行复选及如何进行复选，在程序运行时是只读的。 ③List 属性:包含匹配Pattem属性的当前展开目录的文件列表。 ④ListCount属性:返回当前目录中匹配Pattem属性设置的文件个数。 新知讲授 四 ⑧Pattem属性:返回或设置一个值,指定在运行时显示在文件列表框控件中的文件名。Pattem 属性值是一个用来指定文件规格的字符串表达式。默认值为“.”除了使用通配符,还可以使用分号）来分隔多种模式。 ⑦Path 属性:返回或设置当前路径，该属性在程序设计时不可用。 新知讲授 四 ③PattenChange 事件:当文件的列表样式被代码中对 FileName 属性或Patb属性的设置所改变时触发。 ①Click 事件:在文件列表中单击一个文件时触发。 ②PathChange 事件:当路径被代码中对FileName属性或Path属性的设置所改变时触发。 新知讲授 四 文件列表框控件常用事件： 任务二 顺序文件、随机文件 新知讲授 四 文件按访问的类型可分为顺序型、随机型和二进制型。 （1）顺序型访问适用于读“写在连续块中的文本文件。 （2）随机型访问适用于读/写有固定长度记录结构的文本文件或二进制文件 （3）二进制型访问适用于读/写任意有结构的文件 顺序文件： 新知讲授 四 ①用Opcn语句以 Ouput方式打开顺序文件。 语法格式： Open pathname For Output As filenumber [Len-buffersize 注意:参数 filenumber是-一个有效的文件号，取值范围为1~511.使用FreeFile 函数可以得到下一个可用的文件号；参数bufersize指定缓冲字符数,是小于或等于32767(字节）的一个数。 创建顺序文件的步骤: 01 ②用 Print 语句或 Write语句把字符型数据写入打开的顺序文件。 Print 语句的语法格式: Print #filenumber, [outputlist] Write语句的语法格式: Write#filenumber, outputlist] Print语句与Write语句的区别: Print语句只将字符型数据写入文件, Wrte语句将字符型数据的定界符和数据间的分隔符一并写入文件。 02 新知讲授 四 ③用Close语句关闭文件。 语法格式如下: Close [(#]filenumber][[#]filenumber] （2）从顺序文件中读取字符型数据的步骤： ①用Open语句以Input方式打开文件。 语法格式如下: Open pathname For Inp ut As filenumber(Len=buffersize] 03 ②用Line Input#语句、 Input函数或 Imput#语句将文件复制到程序变量中。 Line Input#语句从已经打开的顺序文件中读出一行字符并将其分配给字符串变量, Line Input #filenumber, vammame Input函数:返回字符串,包含以Imput方式打开的文件中的字符。 04 新知讲授 四 InputB函数:将整个文件的内容复制到变量中。 InputB(LOF(1),1）的功能是读取1号文件中的所有内容。 Input #语句:从已打开的顺序文件中读出数据,并将其分配给变量。 EOF函数:返回一个布尔值，若为True,则表明已经到达文件的结尾。 InputB和Input#函数： 新知讲授 四 ①用Open语句以 Append方式打开。 Open pathname For Append As filenumber [Len -buffersize] ②用Pin语句或Wric#语句将字符申型数据写入文件。 ③用Close语句关闭文件。 向顺序文件追加字符型数据的步骤： 新知讲授 四 （1）随机型访问文件的组成:随机文件由记录组成，每个记录包含一个或多个字段。 （2）随机型访问文件的读/写：包括如下4个步骤。 ①定义记录类型和变量。 ②使用Opcn语句以随机方式打开文件。 ③对记录进行读/写操作。 ④关闭随机文件。 01 定义记录类型和变量 1）用Type语句定义记录类型。 Type语句的语法格式如下: (Public | Private] Type记录类型名 字段1As数据类型*长度 字段2As数据类型*长度 字段3As数据类型*长度 End Type 2)用Private语句声明记录变量。 Private语句的语法格式如下: Private记录变量名 As 记录类型名 02 随机文件： 新知讲授 四 打开随机型访问文件 语法格式： Open pathname [For Random] As filenumber Len=reclength 用Get语句将记录读入变量 使用Get语句可以将一个已经打开的碳盘文件读入一个变量中。 语法格式： Get [iFileNum. Irecnumber], vamame 03 用Put语句将变量写入记录 使用Put 话句把记录添加成替换。到以随机型访间的方式打开的文件中。 语法格式： Put [#]filenumber,[recnumber] vamame 关闭随机文件 用close语句关闭随机文件 04 新知讲授 四 （1）创建一个新文件。 （2）把有用的所有记录从原文件复制到新文件 （3）关闭原文件并用Kill语句删除。 (4)使用Name语句把新文件以原文件的名字重新命名。 清除随机型访问文件中删除的记录: 任务三 Scripting 类型库、FSO对象模型 新知讲授 四 FSO对象模型包含在Scriping类型库中， Scriping 类型库位于 Srrun.d文件中。引 用类型库的步骤如下。 (1）单击“工程”-“引用”命令，打开“引用”对话框。 (2）在“引用”对话框中勾选"Microsoft ScriptingRuntime"复选框。 （3）单击“确定”按钮。 引用 Scripting 类型库: 01 FSO对象模型 （1）FSO对象模型的功能；提供了一款基于对象的工具来处理文件夹和文件 ①Drive 对象。 Drive对象用于收集关于所用的驱动器的信息。 02 新知讲授 四 ②Folder对象。 Foldcr对象用于创建、移动和删除文件夹,并向系统查询文件夹的名称和路径等 ③Files对象。 Friles 对象用于创建、移动和删除文件，并向系统查询文件的名称和路径等 03 ④FileSystemObjct 对象。 FileSystemObject对象用于创建、删除和收集相关信息，以及操作驱动器、文件夹和文件。 04 新知讲授 四 (1)Clipboard对象的功能: Clipboard 对象提供对系统剪贴板的访问，用于操作剪贴上的文本和图形，使用户能够复制、剪切和粘贴应用程序中的文本与图形。 05 （2） Clipboard对象的常用方法 ①Clear方法。 功能:用于清除系统剪贴板中的内容。 语法格式:Clipboard.Clear ②GetData方法。 功能：用于从 Clipboard对象返回一个图形 语法格式:Clipboard. GetData (format 06 新知讲授 四 FilesystemObject 对象的 Get方法包含以下几种。 GetDrive 方法:访问已有的驱动器。 GetfFolder 方法:访问文件夹。 GetFile方法:访问文件。 ⑤TextStream 对象:用于读/写文本文件 03 新知讲授 四 从一个文本文件中读取数据可以使用TextStream对象的下列方法。 Read方法:从一个文件中读取指定数量的字符。 ReadLine方法:从一一个文件中读取一整行数据（紧跟，但不包括换行符）。 ReadAll方法:读取一一个文本文件的所有内容。 从文本文件中读取数据: 新知讲授 四 向文本文件中添加数据可以分为以下3个步骤。 （1）打开文本文件。 使用Files对象的 OpenAsTextStream方法打开。 使用FileSystemODiject 对象OpenTextFile方法打开。 (2)向打开的文本文件中写入数据。 使用TextS ream对象的Write 方法或WriteL ine 方法。两者之间的差别是ritelime方法会在指定的字符事末。尾添加换行符。 使用WriceBlankLines方法向文本文件添加一个空行。 (3）关闭一个已打开的文本文件:使用TextStream对象的Close方法。 向文本文件中添加数据: 师生互动 五 1、驱动器列表框控件中表示连接驱动器个数的属性是（ ） A. Drive B. List C. ListCount D. Listlndex 解析：ListCount属性表示连接的驱动器个数。故选C. C 师生互动 五 2、在文件列表中单击一个文件时将触发（ ）事件。 A. PathChange B. Click C. Change D. PatternChange B 解析： Clik事件是在文中单一个文件时触发的： PathChange 事件是当路径代码中 FileName 或Path 属性的设置所改变时触发的: PattenChange事件是当文件的列表样式被代码中对FileName或Path属性的设置所改变时触发的。故选 B。 师生互动 五 3、在运行时显示目录和路径,用于分层的目录列表，供用户在所有可用目录中从文件列表打开一个文件的控件是（ ） A.列表框控件 B.文件列表框控件 C.目录列表框控件 D.驱动器列表框控件 C 解析：目录列表框控件在运行时显示目录和路径,这个控件用于显示分层的目录列表，供用户在所有可用目录中从文件列表打开一一个文件。故选C. 师生互动 五 4、设已打开2个文件，文件号分别为1、2，要关闭所有文件，下列语句正确的是（ ） A. Closet#1,2 B. Close#1 C. Close D. Close#2 C 解析：Close语句的语法格式是 Close [#]filenumber] [,[#]filenumber]...如果省略文件号，则将关闭Open语句打开的所有活动文件。故选C。. 课堂小结 七 谢谢 $$