1、第七章第七章文件处理第2 2页本章目标d掌握Visual Basic语言中的关于文件的创建、打开、调用、关闭等基本使用方法，d了解文件使用的各种形式d能够使用VB提供的文件系统控件方便地利用文件系统。第3 3页任务任务1登录对话框设计登录对话框设计2（文件操作）（文件操作）d生成一个登录对话框，等待用户输入用户名和密码，按下“登录”按钮，检查是否为有效用户名和密码，并给予响应；如果按下“注册”按钮，将该窗口中两个文本框中的内容与所有有效用户名和密码对照，如果没有相同的用户名允许注册，否则提示用户重新输入用户名和密码。第4 4页任务分析本次任务的目标是使用户输入的字符串与文件中的记录比较相等确认
2、为系统用户，否则报错。如果注册，将用户输入的字符串写入文件。使用何种文件打开、读取、写入和关闭。文件的内容为若干组用户名和密码，系统如何确认各组用户名和密码的分界。用户输入的用户名和密码如何与文件中的内容比较。如何确认比较的结果以及注册的新用户信息要如何写入文件。第5 5页任务分析该任务我们要研究以下内容1.文件的类型2.各类文件的操作方法第6 6页任务分析1.文件的类型文件的概念文件是存储在外部介质上的数据或信息的集合，用来永久保存大量的数据。数据必须以某种特定的方式存放，这种特定的方式称为文件结构，VB的文件由记录组成，记录由字段组成，字段由字符组成。第7 7页任务分析1.文件的类型根据数
3、据访问方式文件可分为顺序访问、随机访问和二进制访问相应的文件可分为顺序文件、随机文件和二进制文件第8 8页任务分析2.各类文件的操作方法在VB中无论是什么类型的文件，其处理步骤一般都按照以下三个步骤进行打开（或创建）文件根据打开文件的模式对文件进行读写操作由内存到外设的传输叫做输出或写，而外设到内存的传输叫做输入或读。关闭文件第9 9页任务分析2.各类文件的操作方法d 顺序文件是最常用的一种文件类型，数据以字符的形式存储。访问规则简单，按顺序进行。写顺序文件时各种类型的数据自动转换成字符串后写入文件，读文件时既可按原来的数据类型读，也可按文本文件来一行一行、一个字符一个字符地读。在顺序文件中查
4、找数据比较麻烦，需要按顺序逐一查找，而且不能同时对文件进行读写操作。第1010页任务分析2.各类文件的操作方法d 顺序文件打开文件语法：Open 文件名 ForInput Output Append Lock As#filenumber Len=BuffersizeInput：顺序输入模式，以顺序方式从文件中读取数据。Output：顺序输出模式，以顺序方式向文件中写入数据。Append：顺序输出模式。将文件指针设置在文件的结尾，所有写入的内容就添加在文件原有内容之后，Print#或Write#语句可以用于这种操作。第1111页任务分析2.各类文件的操作方法d 顺序文件注意：以注意：以Input
5、方式打开顺序文件时，该文件必须是已经存方式打开顺序文件时，该文件必须是已经存在的文件，否则会产生一个错误。但以在的文件，否则会产生一个错误。但以Output或或Append模式打开一个不存在的文件时，模式打开一个不存在的文件时，Open语句可以语句可以先创建文件再打开。先创建文件再打开。第1212页任务分析2.各类文件的操作方法d 顺序文件以三种模式任意一种打开文件后，进行其他类型的操作需要以三种模式任意一种打开文件后，进行其他类型的操作需要重新打开这类文件时，要先关闭该文件。重新打开这类文件时，要先关闭该文件。例如：以对例如：以对Input方式打开的文件进行修改，若要保存修改方式打开的文件进
6、行修改，若要保存修改后的内容，应先关闭该文件，再以后的内容，应先关闭该文件，再以Output模式打开并把模式打开并把文件内容写回到文件中。文件内容写回到文件中。第1313页任务分析2.各类文件的操作方法d 顺序文件读操作 Input#语句语法：Input#filenumber varlist功能：返回从打开的顺序文件中读出数据并将数据复制给变量。第1414页任务分析2.各类文件的操作方法d 顺序文件Input#语句只能读取以Input或Binary方式打开的文件，读出数据时，不必经过修改就可直接将标准的字符串或数值数据复制给变量，输入数据中的双引号（”）将被忽略。第1515页任务分析2.各类文
7、件的操作方法d 顺序文件 Line Input 语句语法：Line input#Filenamber Varname 功能：返回从打开的顺序文件中读出一行并分配给字符串变量。第1616页任务分析2.各类文件的操作方法d 顺序文件写操作 Print#语句语法：Print#Filenumber,Outputlist功能：将格式化显示的数据写入顺序文件中。Filenumber：必要的参数，任何有效的文件号。Outputlist：可选的参数。表达式或是要打印的表达式列表。第1717页任务分析2.各类文件的操作方法d 顺序文件 Write#语句语法：Write#Filenamber,Outputlist
8、功能：将数据写入顺序文件。第1818页任务分析2.各类文件的操作方法d 顺序文件Print#和Write#的区别是：Print#写入的字符型数据不在字符串两端放置引号，而Write#在字符串两端放置引号并且自动用逗号分隔每个表达式。在最后一个字符写入文件后，插入一个新行的字符即回车换行符(Chr(13)+Chr(10)。第1919页任务分析2.各类文件的操作方法d 顺序文件关闭文件语法：Close#FilenumberlistFilenumberlist：可选的参数，表示为文件号的列表，如果省略，将关闭Open语句打开的所有活动文件。Close语句用于以Output和Append模式打开的文件
9、时，语句执行后将文件缓冲区的内容全部写入文件并释放缓冲区所占用的内存。第2020页任务分析2.各类文件的操作方法d 随机文件是由一条条记录所组成的集合。在随机文件中，每条记录的长度都是完全相同的，并且都有一个记录号，因而可以根据记录号计算出记录在文件中的存储位置，然后按照记录号直接读写，也就是可以随机访问随机访问，而不必像顺序文件那样要按顺序读写。需要注意的是，记录与记录之间没有特殊的分隔符号，也没有记录号。第2121页任务分析2.各类文件的操作方法d 随机文件打开文件语法：Open 文件名文件名 For RandomAccess access Lock As#Filenumber Len=R
10、eclengthRandom：随机方式读取，按记录号直接读取。access：可选的参数，打开文件所允许的操作，有3种方式，只读（read）、可写（write）和读写均可（readwrite）。第2222页任务分析2.各类文件的操作方法d 随机文件读操作语法：Get#Filenumber,Recnumber,Varname功能：把记录复制到变量中。第2323页任务分析2.各类文件的操作方法d 随机文件写操作语法：Put#Filenumber,Recnumber,Varname功能：把记录添加或替换到随机文件中。第2424页任务分析2.各类文件的操作方法d 随机文件关闭文件语法：Close#Fil
11、enumberlistFilenumberlist：可选的参数，表示为文件号的列表，如果省略，将关闭Open语句打开的所有活动文件。第2525页任务分析2.各类文件的操作方法d 二进制文件是二进制数据的集合，它存储空间的利用率高，执行不太方便，工作量较大。二进制文件的访问与随机文件的访问相似，不同的是二进制文件以字节为单位进行读写，而随机文件以记录为单位进行读写。如果把二进制文件中的每一个字节看做是一条记录，则二进制文件就成了随机文件。第2626页任务分析2.各类文件的操作方法d 二进制文件打开文件语法：Open 文件名文件名 For Binary As#filenumber文件名：必要的参数
12、。任何有效的文件名。Binary：打开文件的方式为二进制方式。二进制文件一经打开，就可以同时进行读写操作，但一次读写的数据是以字节为单位的，任何类型的文件都可以以二进制的形式打开，因此二进制文件能提供对文件的完全控制。第2727页任务分析2.各类文件的操作方法d 二进制文件读操作语法：Get#filenumber,renumber,varname其参数同随机文件。第2828页任务分析2.各类文件的操作方法d 二进制文件写操作语法：Put#filenumber,renumber,varname其参数同随机文件。Put语句将变量的内容写入到所打开的文件的指定位置，一次写入的长度等于变量的长度。如果
13、忽略位置参数，则表示从文件指针所指的位置开始写入数据，写入后文件指针会自动后移。文件刚打开时指向第一个字节。第2929页任务分析2.各类文件的操作方法d 二进制文件关闭文件语法：Close#filenumber其参数同随机文件。第3030页任务实施1.创建新工程2.从工具箱中选择控件拖入窗体3.设置窗体及控件的属性对象对象控件名控件名属性名属性名属性值属性值ConmmandCommand1Caption注册CmdokCaption登录第3131页任务实施4.在代码窗口编写事件代码并保存、运行源代码Private Type record 定义自定义数据类型usename As String*10
14、 用户名字符的最大长度为10usemima As String*10 密码字符的最大长度为10End TypeDim myrecord As record 定义一个自定义类型的变量 Open App.Path&mima.txt For Random As#1 Len=Len(myrecord)打开文件 n=LOF(1)/Len(myrecord)求记录总个数 For i=1 To n Get#1,i,myrecord 读取第i条记录 If txtUserName=Trim(myrecord.usename)And txtPassword=Trim(myrecord.usemima)Then 和
15、用户输入文本框的内容比较 MsgBox 正确的用户名和密码，欢迎您!,登录 Me.Hide Exit For 如果在某个记录比较成功，从循环中跳出 Close#1关闭文件 End If Next i 第3232页任务设计完成效果第3333页任务任务2文本和图片浏览器的设计（文件系统控件）文本和图片浏览器的设计（文件系统控件）d在窗体上选中驱动器、目录以及文件夹下的某个图片文件，右端会显示该图片。如果选择的是某个文本文件就会显示文本文件内的内容。第3434页任务分析该任务我们要解决以下问题 如何找到要显示或浏览的文件。文本框和图像框在同一位置显示，如何在某种条件下显示其中之一。以何种条件判断该显
16、示文本框和图像框中的哪一个。显示文本文件和图片文件的方法。第3535页任务分析该任务我们要研究以下几项内容d 驱动器列表框（DriveListBox）d 目录列表框（DirListBox）d 文件列表框（FileListBox）第3636页任务分析d 驱动器列表框（DriveListBox）驱动器列表框是一个下拉式列表框，是一个包含有效驱动器的列表控件，默认状态下显示当前驱动器名。运行时，该控件获得焦点时，可输入任何有效的驱动器标识符或者在DriveListBox控件的列表中选择一个有效的磁盘驱动器，若从中选定驱动器，该驱动器就出现在列表框的顶端。每当选择了新的驱动器后将触发一个Change事
17、件。第3737页任务分析 DriveListBox控件的主要属性 Drive属性语法：对象名.Drive=drive 功能：用于在运行时设置或返回所选择的驱动器，默认值为当前驱动器，设计时不可用。第3838页任务分析 List属性语法：对象名.List(index)=string功能：用于设置或返回控件的列表部分的项目，列表是一个字符串数组，数组的每一项都是一个列表项目，在运行时是只读的。第3939页任务分析DriveListBox控件的主要事件 Change事件：用于改变所选择的驱动器，该事件在选择一个新的驱动器或通过代码改变Drive属性的的设置时发生。Private sub 对象名_Ch
18、ange(index As Integer)Index：一个整数，用来惟一地标识一个在控件数组中的控件。第4040页任务分析 DriveListBox控件的主要事件 Change事件：用于改变所选择的驱动器，该事件在选择一个新的驱动器或通过代码改变Drive属性的的设置时发生。Private sub 对象名_Change(index As Integer)Index：一个整数，用来惟一地标识一个在控件数组中的控件。第4141页任务分析d 目录列表框（DirListBox）目录列表框可以显示指定驱动器上的目录结构，一般从根目录开始显示用户系统的当前驱动器目录结构。当前目录名被突出显示，而且显示的
19、目录是按目录层次依次缩进，在目录列表框中，当前目录的子目录也缩进显示。在列表框中上、下移动时，将依次突出显示每个目录项第4242页任务分析d DirListBox控件的主要属性 List属性语法：对象名.List(index)=string 功能：用于设置或返回控件的列表部分的项目，列表是一个字符串数组，数组的每一项都是一个列表项目，在运行时是只读的。第4343页任务分析 ListIndex属性语法：对象名.ListIndex=index功能：用于在设置或返回控件中当前选择项目的索引，在设计时不可用。index：数值表达式，指定当前项目的索引号。注意：DirListBox和DriveListB
20、ox不同的是，DirListBox并不在操作系统级设置当前目录，而只是突出显示目录并将其ListIndex设置为-1。第4444页任务分析 Path属性语法：对象名.Path=Pathname功能：用于返回或设置当前路径。在设计时不可用。Pathname：一个用来计算路径名的字符串表达式。注意：Path属性的值是一个指示路径的字符串，例如：C:programVB98或C:WindowsSystem。对于DirListBox控件，在运行时当控件被创建时，其默认值是当前路径。第4545页任务分析d 文件列表框（FileListBox）用于将属性指定的目录下所选文件类型的文件列表显示出来，一般和Dr
21、iveListBox、DirListBox控件一起使用。第4646页任务分析d FileListBox控件的主要属性 FileName属性语法：对象名.FileName=Pathname功能：用于设置或返回所选文件的文件名，在设计时不可用。注意：FileName属性和CommonDialog控件的FileName属性不同，不包含路径名。将FileListBox控件的Path属性和FileName属性中的字符串连接起来可获得带路径的文件名。如果Path属性的最后一个字符不是目录分隔号（），应在连接两个属性值的字符串中加入一个“”符号。第4747页任务分析 Path属性语法：对象名.Path=Pa
22、thname功能：用于返回或设置当前路径。在设计时不可用。Pattern属性语法：对象名.Pattern=Value功能：用于返回或设置一个值，指示运行时显示在FileListBox控件中的文件的扩展名。第4848页任务分析d FileListBox控件的主要事件PathChange事件当路径被代码中的FileName或Path属性的设置所改变时，PathChange事件发生。PatternChange事件当文件的列表样式，如”*.*”，被代码中对FileName或Path属性的设置所改变时，此事件发生。Private sub 对象名_PatternChange(Index As Intege
23、r)Index：一个整数，用来惟一地标识一个在控件数组中的控件。第4949页任务实施1.创建新工程2.从工具箱中选择控件拖入窗体3.设置窗体及控件的属性第5050页任务实施4.在代码窗口编写事件代码并保存、运行源代码Dim p As StringPrivate Sub Dir1_Change()File1.Pattern=*.txt;*.jpg;*.gif;*.bmp设置可显示的文件模式 File1.Path=Dir1.Path 将目录列表框的路径赋给文件列表框End SubImage1.Visible=False 图像框隐藏 Text1.Visible=True 文本框显现Open p For Input As#1 打开文件 Text1.Text=Do Until EOF(1)Line Input#1,newline 逐行读取文件到变量newline中 Text1.Text=Text1.Text+newline+Chr(13)+Chr(10)Loop Close#1第5151页任务设计完成效果第5252页总结d 本课讲述了以下内容：文件的类型 各类文件的操作方法 驱动器列表框（DriveListBox）目录列表框（DirListBox）文件列表框（FileListBox）回到目录回到目录
