《计算机二级VB教程 (12)》由会员分享，可在线阅读，更多相关《计算机二级VB教程 (12)（67页珍藏版）》请在金锄头文库上搜索。
1、第12章 处理文件,Visual Basic 程序设计教程,Visual Basic程序设计教程,2,本章介绍： 使用文件系统控件 使用有关的语句和函数 操作顺序文件 操作随机文件 使用文件系统对象,Visual Basic程序设计教程,3,12.1 概述, 为什么要引入了数据文件 文件标识符 文件分类：程序文件和数据文件 数据文件按存储方法的不同，可分为以下三种类型： 1顺序文件 2随机文件 3二进制文件 数据文件的操作形式,Visual Basic程序设计教程,4,12.2 操作顺序文件数据的例子,【例12-1】设计一个如图12.1所示的界面，该窗体上有1个驱动器列表框、1个文件夹列表框、
2、1个文件列表框和一个文本框。当启动窗体后，用户在驱动器列表框选择驱动器后，文件夹列表框显示选中驱动器下的文件夹，用户双击相应的文件夹，在文件列表框中显示该文件夹下的所有文本文件（.txt），用户双击相应的文件就可以在文本框中显示该文件内容。,Visual Basic程序设计教程,5,12.3 使用文件系统控件,VB提供了三种文件系统控件，它们是：驱动 器列表框（DriveListBox）、文件夹列表框（DirListBox）和文件列表框(FileListBox)。,Visual Basic程序设计教程,6,12.3.1 驱动器列表框 驱动器列表框是下拉式列表框，用来显示当 前系统中所有有效的驱
3、动器(包括远程连接的驱动器)。通过这个下拉列表框用户可以选择驱动器。 1属性2常用事件:Change事件。,Visual Basic程序设计教程,7,2常用事件:Change事件。,Visual Basic程序设计教程,8,12.3.2 文件夹列表框 文件夹列表框以树形展开方式显示某个驱动器或文件夹内的各个子文件夹名，并用打开的文件夹图标来表示选定的文件夹，称当前目录。 属性 Path:用来设置当前文件夹名或返回所选择的文件夹名. List:该属性的类型为字符串数组，它的每一个列表项的内容是选定磁盘或文件夹下的各子文件夹名,Visual Basic程序设计教程,9,ListCount:表示当前
4、文件夹下的子文件夹个数。 ListIndex:它取值的有效范围为-nListCount-1。 其中，-1是当前选定文件夹在List属性列表中的序号，从0ListCount-1则为它的子文件夹在List属性(数组)中的序号(下标)，而当前文件夹的父文件 夹是绝对值大于1的负数，如图12.3所示。,Visual Basic程序设计教程,10,常用事件 Chang事件。当鼠标双击新文件夹或改变Path属性时，触发Change事件，Change事件发生后，改变了文件夹列表框的Path属性，即改变了当前文件夹。 Click事件。当鼠标单击文件夹时，触发Click事件，Click不会改变文件夹列表框中的当
5、前文件夹，但它会改变文件夹列表框的ListIndex属性，因此要在Click事件中改变当前文件夹，可用以下代码实现。 Private Sub Dir1_click()Dir1.Path = Dir1.List(Dir1.ListIndex) End Sub,Visual Basic程序设计教程,11,Keypress事件。按Windows系统的惯例，在程序中可用两种方法改变选定的路径，即用鼠标双击列表框内的某个文件夹名，或先用光标键把列表框内的光标条移到指定文件夹上，然后按回车。后一种方法的实现，必须由控件的KeyPress事件来完成。例如： Private Sub Dir1_KeyPress
6、(KeyAscii As Integer)If KeyAscii = 13 ThenDir1.Path = Dir1.List(Dir1.ListIndex)End If End Sub,Visual Basic程序设计教程,12,12.3.3 文件列表框 文件列表框用于显示当前文件夹下的文件。 属性,Visual Basic程序设计教程,13,常用事件Click事件 DblClick事件 Pathchange事件 Patternchange事件,Visual Basic程序设计教程,14,文件系统控件例子,【例12-2】设计一个如图12.4所示界面，演示了文件系统控件之间的关系。界面中驱动器
7、、文件夹和文件列表框的名称分别 为Drive1、Dir1和File 1，组合框的名称为Com bo1，其Style属性为2。,Visual Basic程序设计教程,15,程序代码,Private Sub Form_Load()Combo1.AddItem “所有文件(*.*)“Combo1.AddItem “文本文件(*.TXT)“Combo1.AddItem “图形文件(*.bmp;*.jpg)“Combo1.ListIndex = 0Dir1.Path = “c:windows“ End Sub,Visual Basic程序设计教程,16,Private Sub Drive1_Change
8、()Dir1.Path = Drive1.Drive End SubPrivate Sub Dir1_Change()File1.Path = Dir1.Path End Sub,Visual Basic程序设计教程,17,Private Sub Combo1_Click()If Combo1.Text = “所有文件(*.*)“ ThenFile1.Pattern = “*.*“ElseIf Combo1.Text = “文本文件(*.TXT)“ ThenFile1.Pattern = “*.TXT“ElseIf Combo1.Text = “图形文件(*.bmp;*.jpg)“ ThenF
9、ile1.Pattern = “*.bmp;*.jpg“End IfEnd Sub,Visual Basic程序设计教程,18,其中Sub Combo1_Click()内的程序代码也可以写成： M=InStr(1,Combo1.Text,“(“) N=InStr(1,Combo1.Text,“)“) File1.Pattern = Mid(Combo1.Text,M+1,N-M-1),Visual Basic程序设计教程,19,12.4 使用有关的语句和函数,VB提供了许多与文件操作有关的语句和函数，使用户可以在应用程序中很方便地对文件和文件夹进行删除、复制和获取文件有关属性等操作，这里简单介
10、绍常用的几个语句。1. ChDrive 语句格式：ChDrive drive功能：改变当前驱动器。示例：ChDrive “D:“,Visual Basic程序设计教程,20,2. MkDir语句格式：MkDir folder功能：创建一个新的文件夹，如果设置了一个无效的文件夹存储路径，将会产生错误。示例：MkDir “C:TMP“:MkDir “C:TMPABC“,Visual Basic程序设计教程,21,3RmDir语句 格式：RmDir folder 功能：删除一个存在的空文件夹，文件夹内不能有文 件。如果有文件，先用Kill语句删除所有文件。 示例：RmDir “C:TMPABC“ 4
11、. ChDir语句 格式：ChDir path 功能：改变当前文件夹 示例：ChDir “C:TMP“,Visual Basic程序设计教程,22,5FileCopy语句 格式：FileCopy source,destination 功能：复制一个指定源文件到目标位置，用来确定 复制的源文件名和目标文件名，它们都可包 括文件的存储路径，不能复制一个已经打开的文件。 示例：FileCopy “C:abc.txt“, “C:TMPbbb.txt“,Visual Basic程序设计教程,23,6. Kill语句 格式：Kill file 功能：删除指定的文件，必要时文件名应指明它的存储路径。为了删除
12、一类文件，可以使用文件通配符。 示例：Kill “C:TMP*.txt“ 7. Name语句 格式：Name old_name As new_name 功能：重新命名一个文件或文件夹。Name语句具有移动文件的功能，即在重新命名时并将其移动到一个不同的文,Visual Basic程序设计教程,24,件夹,不能重新命名一个已经打开的文件。 改名示例：Name “C:TMPbbb.txt“ as “aaa.txt“ 移动示例：Name “C:TMPaaa.txt“ as “c:bbb.txt“,8Shell方法 (函数) 格式：Shell command_file,window_style或 Sh
13、ell(command_file,window_style) 功能：调用各种外部的可执行文件(不能调用操作系统的 各种内部命令)。,Visual Basic程序设计教程,25,说明：command_file用以确定要执行的外部文件的文件名 和目录路径。window_style为数值型表达式，用以 设置Shell窗口的初始状态值。该值也可使用VB系统的符号常量，如表12.5所示。 9CurDir函数 格式：CurDir (drive ) 功能：返回指定盘或默认盘的当前文件夹。 10. FileLen函数 格式：FileLen(file_name) 功能：返回是指定文件的长度，单位为字节数。,Vi
14、sual Basic程序设计教程,26,12.5 操作顺序文件,VB中的顺序文件是普通的文本文件，文件中的每个数据以ASCII码(文本)形式存储，因此能被不同语言的程序共享或直接打印输出，也可由文本编辑器(如记事本或EDIT等)进行修改。 顺序文件结构比较简单。它的存储方式是顺序存储，即一个数据接着一个数据地顺序排列，只是提供了第1个数据的存储位置。要查找一个数据时，必须从头开始一个一个地读取直到找到所要的数据。,Visual Basic程序设计教程,27,12.5.2 打开顺序文件 打开文件使用是Open语句，其格式为： Open 文件名 For模式 As # 文件号1文件名：指定打开的文件
15、。2模式：用于指定文件的操作方式，顺序文件共有3种操作方式，可以选择下列三种形式之一：（1）Input：打开一个已经存在的文件作读操作。 （2）Output：打开一个新文件作写操作，如果文件标识符指定的文件已经存在，则文件中的原内容将被清除。,Visual Basic程序设计教程,28,（3） Append：打开文件后在文件末尾作追加数据的写操作，如指定的文件已经存在，则文件中的原内容被保留，否则将创建一个新文件。3文件号：文件号也称通道号，是一个介于1512之间的整型。4FreeFile函数：用来获取一个可用的最小的空闲通道号，使用格式为： FileNo=FreeFile() 或 FileN
16、o=FreeFile0,Visual Basic程序设计教程,29,例如： Open “C:TMPABC.DAT“ For Input As 1：表示以读文件的操作模式，打开在C:TMP路径下的名为ABC.DAT的数据文件。 Open FileName For Output As FileNo：表示以写文件的操作模式，创建一个新文件，文件名及存储路径由变量FileName的值决定，通道号由变量FileNo的值决定。,Visual Basic程序设计教程,30,12.5.3 写入操作 1. Write # 语句。将表达式的值写入与文件号相关的顺序文件。使用格式如下。Write #文件号,输出表达式列表,Visual Basic程序设计教程,31,（1）输出表达式列表的各表达式间可用逗号(，)或分号(；)分隔，两种分隔符的效果相同。 （2）自动在写入文件的各输出项之间，加入分隔符逗号“，”；字符类型输出项以双引号作为界限符；写入文件的逻辑型、日期型数据或空值(NULL)，是以#号作为数据项的界限符，如#TRUE#、#FALSE#、#1999-10-30#、#NULL#。,
