《《Visual Basic程序设计》-郁春兰-电子教案 第7章》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计》-郁春兰-电子教案 第7章（28页珍藏版）》请在金锄头文库上搜索。
1、第7章文件操作,主要内容,文件系统控件 文件操作常用函数 顺序文件的操作 随机文件的操作 二进制文件的操作,1.1图像浏览器案例说明,利用VB中提供文件系统控件，可以很方便地对文件进行查看。 程序运行时，通过选择磁盘和目录定位图像文件，在文件列表框中选中图像文件后，在图片框中显示。运行效果如图7-1所示。,1.2 程序实现,界面设计： 建立一个新工程，在窗体上添加3个标签控件，1个驱动器列表控件，1个目录列表控件，1个文件列表控件和一个图片框控件，并按表7-1设置各控件的属性：,2.代码设计：,1.3 相关知识,1.驱动器列表框:是一个下拉式的列表框，提供了一个驱动器的列表。当单击右边的箭头时
2、，则弹出显示计算机中的所有驱动器的下拉列表。 （1）主要属性：Drive属性，用于返回或设置运行时选择的驱动器。默认值为当前驱动器，改变Drive属性会触发Change事件。格式如下： .Drive=驱动器名 （2）驱动器列表框的主要事件： 驱动器列表框的主要事件是Change，,1.3 相关知识,2.目录列表框：显示当前驱动器的目录结构，目录列表框从最高层目录开始，显示当前驱动器的目录结构， （1）目录列表框的主要属性：见表7-2 （2）目录列表框的主要事件：Change事件，当选择了一个新目录或通过代码改变了Path属性时触发该事件。,1.3 相关知识,3.文件列表框：显示当前目录中的部分
3、或者全部文件。如果当前目录下的文件数量较多，自动在列表框中加上垂直滚动条。 （1）文件列表框的主要属性：3个重要的常用属性： Path属性：返回或设置运行时选择的路径以显示其下的文件，改变Dir属性会触发PathChange事件。 File1.Path= Dir1.Path Pattern属性：确定程序运行时，列表框中显示哪些类型的文件。它的缺省值为“*.*”，即显示所有文件的名字。在参数中还可以使用分号“；”来分割多种文件类型， File1.Pattern=“*.Txt” 在文件列表框中只显示.Txt文件。 FileName属性：设置所选文件的路径和文件名，如果没有文件被选中，FileNam
4、e属性将返回0长度的字符串。改变本属性值可能会产生如下事件：PathChange，PatternChange，DblClick （2）文件列表框的主要事件：Click事件，DblClick事件。,1.4拓展知识,文件操作控件驱动器列表框、目录列表框和文件列表框，三种控件一般需要同步操作。 例如，假设驱动器列表框控件名为Drive1，目录列表框控件名为Dir1，文件列表框控件名为Fiel1，在代码窗口输入如下代码： Private Sub Drive1_Change() 驱动器列表框的Change事件 Dir1.Path=Drive1.Drive End Sub Private Sub Dir1
5、_Change() 目录列表框的Change事件 File1.Path=Dir1.Path End Sub Private Sub File1_Click() 文件列表框的单击事件 SelectedFile = File1.Path & “ & File1.FileName End Sub,返回,2.1文件操作器案例说明,本案例可以实现目录的创建、删除；文件的创建、重命名和删除的操作，每个操作成功后都给出相应的提示信息。程序运行效果如图7-4所示。其中点击创建文件按钮后弹出如图7-5所示的对话框，输入文件名后如图7-6。,2.2 程序实现,1.界面设计：建立一个新工程，在窗体上添加3个标签控件
6、，1个驱动器列表控件，1个目录列表控件，1个文件列表控件、1个图片框控件并按案例7-1中的属性值设置它们的属性。另外再添加5个按钮控件。窗体和5个命令按钮控件按表7-3设置相应的属性： 2.代码设计：,2.3 相关知识,1.文件操作相关函数 （1）建立目录（文件夹）命令MkDir：MkDir “C:temp ” 功能：在C盘下建立一个temp文件夹 （2）删除目录（文件夹）命令RmDir：RmDir “C:temp ” 功能：删除C盘下的temp文件夹，且temp文件夹必须为空 （3）改变当前目录（文件夹）命令ChDir：ChDir “C:temp ” 功能：把当前文件夹改为C:temp （4
7、）复制文件命令FileCopy：FileCopy “C:temp1.txt ”，“D:2.txt” 功能：把C:temp下的1.txt复制到D:盘并改名为2.txt （5）移动和重命名文件命令 NameAs： 例如：Name “C:temp1.txt ” As “D:2.txt” 功能：把C:temp下的1.txt移动到D:盘并改名为2.txt,返回,3.1成绩录入器案例说明,程序运行后，可以把用户输入的学号、姓名和成绩信息写入到“d:grade1.txt”文件中，同时把录入的信息追加到“d:grade2.txt”文件中。录入完成后，点击“查看成绩”按钮可以查看录入到d:grade1.txt文
8、件的内容。程序运行效果如图7-7所示，点击“查看成绩”后的效果如图7-8所示,3.2 程序实现,1.界面设计 建立一个新工程，在窗体上添加3个标签控件，3个文本框控件，3个按钮控件并按表7-7设置相应的属性： 2.代码设计：,3.3 相关知识,根据不同的标准，文件可分为不同的类型。在VB中，按照文件的存取访问方式，可分为顺序文件、随机文件和二进制文件。应用程序访问一个文件时，应根据文件包含什么类型的数据，确定适合的访问类型。,3.3 相关知识,1.顺序文件:就是文本文件。以ASCII代码方式存放数据的，其数据是顺序存放。特点是文件中各记录写入、存放和读出三者的顺序是一致的。效率较低。 2.顺序
9、文件的打开: 用Open语句打开该文件，才可以对文件进行读写的操作。 格式为：Open For As # 几点说明： （1）文件名：指欲打开的且已存在的文件名。 （2）读写方式:Output、Input和Append三种. （3）文件号（）：即缓冲区号。在Open语句中把文件名与指定的文件号即缓冲区号联系起来,表示输入或输出的数据要用该缓冲区作为过渡。 在执行Open语句时，应注意： （1）用Output方式打开一个已存在的文件时应十分谨慎，以免使原有文件中的数据丢失。 （2）如果以Input方式打开一个文件，此文件必须是已存在的， （3）如果用Append方式打开文件，文件指针指向文件的末尾
10、， （4）执行Open语句时，系统自动建立相应的缓冲区，以便为数据的输入/输出做好准备。,3.3 相关知识,3.向顺序文件写入数据:Print和Write语句可以进行写数据的操作。 （1）Print 语句：格式：Print # ，写入列表 Open “d:grade1.txt“ For Output As #1 Print #1, Sno, Sname, Sgrade Close #1 （2）Write语句：格式：Write # ，写入列表 Open “d:grade1.txt“ For Output As #1 Write #1, Sno, Sname, Sgrade Close #1 （3
11、）Print 语句与Write语句的区别： 4.从顺序文件读取数据：以Input的方式打开文件后，就可以从文件中读取数据。Visual Basic提供了Input语句、Line Input语句和Input()函数将文件中的数据读入指定的变量中。 （1）Input语句 格式：Input # , 说明：要与OPEN语句指定的文件号对应。是准备保存文件数据的变量，可包含多个变量，各变量之间用逗号隔开，且变量的类型要与数据的类型一致。该语句将把文件中的数据依次存放到的各个变量中。例如，把当前目录中的“1.txt”文件内容显示在屏幕上，代码如下： Private Sub Command1_Click()
12、 Open “1.txt”For Input As #1 以读数据的方式打开1.txt Do While Not EOF(1) Input #1, x 把文件中的数据读到变量x中 Print x Loop End Sub （2）Line Input语句 格式：Line Input # ， 参数说明：要与Open语句指定的文件号对应。必须是字符串类型。其作用就是从文件中每次读取一行数据到字符串变量中。例如，把当前目录中的“1.txt”文件内容每次读一行的方式显示在屏幕上，代码如下： Private Sub Command1_Click() Open “1.txt”For Input As #1
13、以读数据的方式打开1.txt Do While Not EOF(1) Line Input #1, x 把文件中的一行数据读到变量x中 Print x Loop End Sub （3）Input()函数 格式：Input（整数, # ） 参数说明：要与Open语句指定的文件号对应。“整数”是每次要读取的字符个数。Input()函数可以从文件中读取指定字数的字符。 例如，下面的例子将把当前目录中的“1.txt”文件内容每次读4个字符的方式显示在屏幕上： Private Sub Command1_Click() Open “1.txt”For Input As #1 以读数据的方式打开1.txt
14、Do While Not EOF(1) x=Input(4,#1) 把文件中的4个字符读到变量x中 Print x Loop End Sub 5.关闭文件 当文件使用完后，要用Close语句来关闭一个己用完不再使用的文件，其格式为： Close # ,# 如：CLOSE #1,#2 表示关闭#1，#2文件缓冲区，也就是关闭相应的文件。如不指定文件号，则表示关闭所有已经打开的文件，此时的形式为： Close 执行Close语句时，释放相关的文件缓冲区，这样就停止了对文件的读写操作。如还需要读写，则应再使用Open语句。,返回,3.3 相关知识,4.从顺序文件读取数据：Input语句、Line I
15、nput语句和Input()函数将文件中的数据读入指定的变量中。 （1）Input语句：格式：Input # , 说明：将把文件中的数据依次存放到的各个变量中。 （2）Line Input语句：Line Input # ， 例如，把当前目录中的“1.txt”文件内容每次读一行的方式显示在屏幕上， （3）Input()函数：格式：Input（整数, # ） Input()函数可以从文件中读取指定字数的字符。 5.关闭文件：要用Close语句来关闭一个己用完不再使用的文件，其格式为：Close # ,# 如：CLOSE #1,#2 ，表示关闭#1，#2文件缓冲区，如不指定文件号，则表示关闭所有已经
16、打开的文件，此时的形式为：Close 执行Close语句时，释放相关的文件缓冲区。如还需要读写，则应再使用Open语句。,返回,3.4拓展知识,下面介绍一些在Visual Basic中常用的文件函数： （1）EOF()：格式：EOF (文件号) 功能：判断在读文件是否到了文件尾，若是返回True，否则，返回False。 （2）LOF()： 格式：LOF(文件号) 功能：返回一个已打开文件的大小，类型为Long，单位是字节。 （3）LOC()：格式：LOC(文件号) 功能：返回被打开文件的当前位置。 （4）SEEK()： 格式：SEEK (文件号) 功能：返回文件指针的当前位置。对于顺序文件，返回指针所在的当前字节位置（从头算起的字节数），对于随机文件，返回指针当前所指的记录号。,返回,4.1工资管理程序案例说明,本案例是一个简单的工资管理程序，演示随即文件的操作。程序窗体分两部分，左边部分的列表框用于显示工资数据，右边部分
