《程序设计基础——Visual Basic6.0案例教程 第2版 教学课件 ppt 作者 刘宝山 李丕瑾 第七章》由会员分享，可在线阅读，更多相关《程序设计基础——Visual Basic6.0案例教程 第2版 教学课件 ppt 作者 刘宝山 李丕瑾 第七章（52页珍藏版）》请在金锄头文库上搜索。
1、第七章,文件处理,第2页,2019/5/23,本章目标,掌握Visual Basic语言中的关于文件的创建、打开、调用、关闭等基本使用方法， 了解文件使用的各种形式 能够使用VB提供的文件系统控件方便地利用文件系统。,第3页,2019/5/23,任务1登录对话框设计2（文件操作）,生成一个登录对话框，等待用户输入用户名和密码，按下“登录”按钮，检查是否为有效用户名和密码，并给予响应；如果按下“注册”按钮，将该窗口中两个文本框中的内容与所有有效用户名和密码对照，如果没有相同的用户名允许注册，否则提示用户重新输入用户名和密码。,第4页,2019/5/23,任务分析,本次任务的目标是 使用户输入的字
2、符串与文件中的记录比较相等确认为系统用户，否则报错。如果注册，将用户输入的字符串写入文件。 使用何种文件打开、读取、写入和关闭。 文件的内容为若干组用户名和密码，系统如何确认各组用户名和密码的分界。 用户输入的用户名和密码如何与文件中的内容比较。 如何确认比较的结果以及注册的新用户信息要如何写入文件。,第5页,2019/5/23,任务分析,该任务我们要研究以下内容 文件的类型 各类文件的操作方法,第6页,2019/5/23,任务分析,文件的类型 文件的概念 文件是存储在外部介质上的数据或信息的集合，用来永久保存大量的数据。 数据必须以某种特定的方式存放，这种特定的方式称为文件结构，VB的文件由
3、记录组成，记录由字段组成，字段由字符组成。,第7页,2019/5/23,任务分析,文件的类型 根据数据访问方式文件可分为 顺序访问、随机访问和二进制访问 相应的文件可分为 顺序文件、随机文件和二进制文件,第8页,2019/5/23,任务分析,各类文件的操作方法 在VB中无论是什么类型的文件，其处理步骤一般都按照以下三个步骤进行 打开（或创建）文件 根据打开文件的模式对文件进行读写操作 由内存到外设的传输叫做输出或写，而外设到内存的传输叫做输入或读。 关闭文件,第9页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 是最常用的一种文件类型，数据以字符的形式存储。访问规则简单，按顺序进
4、行。 写顺序文件时各种类型的数据自动转换成字符串后写入文件，读文件时既可按原来的数据类型读，也可按文本文件来一行一行、一个字符一个字符地读。 在顺序文件中查找数据比较麻烦，需要按顺序逐一查找，而且不能同时对文件进行读写操作。,第10页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 打开文件 语法：Open 文件名 ForInput Output Append Lock As #filenumber Len=Buffersize Input：顺序输入模式，以顺序方式从文件中读取数据。 Output：顺序输出模式，以顺序方式向文件中写入数据。 Append：顺序输出模式。将文件指针设
5、置在文件的结尾，所有写入的内容就添加在文件原有内容之后，Print#或Write#语句可以用于这种操作。,第11页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 注意：以Input方式打开顺序文件时，该文件必须是已经存在的文件，否则会产生一个错误。但以Output或Append模式打开一个不存在的文件时，Open语句可以先创建文件再打开。,第12页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 以三种模式任意一种打开文件后，进行其他类型的操作需要重新打开这类文件时，要先关闭该文件。 例如：以对Input方式打开的文件进行修改，若要保存修改后的内容，应先关闭该文件，再
6、以Output模式打开并把文件内容写回到文件中。,第13页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 读操作 Input #语句 语法：Input #filenumber varlist 功能：返回从打开的顺序文件中读出数据并将数据复制给变量。,第14页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 Input #语句只能读取以Input或Binary方式打开的文件，读出数据时，不必经过修改就可直接将标准的字符串或数值数据复制给变量，输入数据中的双引号（” ”）将被忽略。,第15页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 Line Input
7、 语句 语法：Line input #Filenamber Varname 功能：返回从打开的顺序文件中读出一行并分配给字符串变量。,第16页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 写操作 Print #语句 语法：Print #Filenumber,Outputlist 功能：将格式化显示的数据写入顺序文件中。 Filenumber：必要的参数，任何有效的文件号。 Outputlist：可选的参数。表达式或是要打印的表达式列表。,第17页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 Write #语句 语法：Write #Filenamber,Outpu
8、tlist 功能：将数据写入顺序文件。,第18页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 Print #和Write #的区别是： Print #写入的字符型数据不在字符串两端放置引号，而Write #在字符串两端放置引号并且自动用逗号分隔每个表达式。在最后一个字符写入文件后，插入一个新行的字符即回车换行符(Chr(13)+Chr(10)。,第19页,2019/5/23,任务分析,各类文件的操作方法 顺序文件 关闭文件 语法：Close #Filenumberlist Filenumberlist：可选的参数，表示为文件号的列表，如果省略，将关闭Open语句打开的所有活动文
9、件。 Close语句用于以Output和Append模式打开的文件时，语句执行后将文件缓冲区的内容全部写入文件并释放缓冲区所占用的内存。,第20页,2019/5/23,任务分析,各类文件的操作方法 随机文件 是由一条条记录所组成的集合。在随机文件中，每条记录的长度都是完全相同的，并且都有一个记录号，因而可以根据记录号计算出记录在文件中的存储位置，然后按照记录号直接读写，也就是可以随机访问，而不必像顺序文件那样要按顺序读写。 需要注意的是，记录与记录之间没有特殊的分隔符号，也没有记录号。,第21页,2019/5/23,任务分析,各类文件的操作方法 随机文件 打开文件 语法：Open 文件名 Fo
10、r RandomAccess access Lock As# Filenumber Len=Reclength Random：随机方式读取，按记录号直接读取。 access：可选的参数，打开文件所允许的操作，有3种方式，只读（read）、可写（write）和读写均可（readwrite）。,第22页,2019/5/23,任务分析,各类文件的操作方法 随机文件 读操作 语法：Get #Filenumber,Recnumber,Varname 功能：把记录复制到变量中。,第23页,2019/5/23,任务分析,各类文件的操作方法 随机文件 写操作 语法：Put#Filenumber, Recnum
11、ber,Varname 功能：把记录添加或替换到随机文件中。,第24页,2019/5/23,任务分析,各类文件的操作方法 随机文件 关闭文件 语法：Close #Filenumberlist Filenumberlist：可选的参数，表示为文件号的列表，如果省略，将关闭Open语句打开的所有活动文件。,第25页,2019/5/23,任务分析,各类文件的操作方法 二进制文件 是二进制数据的集合，它存储空间的利用率高，执行不太方便，工作量较大。 二进制文件的访问与随机文件的访问相似，不同的是二进制文件以字节为单位进行读写，而随机文件以记录为单位进行读写。 如果把二进制文件中的每一个字节看做是一条记
12、录，则二进制文件就成了随机文件。,第26页,2019/5/23,任务分析,各类文件的操作方法 二进制文件 打开文件 语法：Open 文件名 For Binary As #filenumber 文件名：必要的参数。任何有效的文件名。 Binary：打开文件的方式为二进制方式。 二进制文件一经打开，就可以同时进行读写操作，但一次读写的数据是以字节为单位的，任何类型的文件都可以以二进制的形式打开，因此二进制文件能提供对文件的完全控制。,第27页,2019/5/23,任务分析,各类文件的操作方法 二进制文件 读操作 语法：Get #filenumber,renumber,varname 其参数同随机文
13、件。,第28页,2019/5/23,任务分析,各类文件的操作方法 二进制文件 写操作 语法：Put#filenumber, renumber,varname 其参数同随机文件。 Put语句将变量的内容写入到所打开的文件的指定位置，一次写入的长度等于变量的长度。如果忽略位置参数，则表示从文件指针所指的位置开始写入数据，写入后文件指针会自动后移。文件刚打开时指向第一个字节。,第29页,2019/5/23,任务分析,各类文件的操作方法 二进制文件 关闭文件 语法：Close #filenumber 其参数同随机文件。,第30页,2019/5/23,任务实施,创建新工程 从工具箱中选择控件拖入窗体 设
14、置窗体及控件的属性,第31页,2019/5/23,任务实施,在代码窗口编写事件代码并保存、运行 源代码,Private Type record 定义自定义数据类型 usename As String * 10 用户名字符的最大长度为10 usemima As String * 10 密码字符的最大长度为10 End Type Dim myrecord As record 定义一个自定义类型的变量,Open App.Path & “mima.txt“ For Random As #1 Len = Len(myrecord)打开文件 n = LOF(1) / Len(myrecord)求记录总个数
15、 For i = 1 To n Get #1, i, myrecord 读取第i条记录 If txtUserName = Trim(myrecord.usename) And txtPassword = Trim(myrecord.usemima) Then 和用户输入文本框的内容比较 MsgBox “正确的用户名和密码，欢迎您!“, , “登录“ Me.Hide Exit For 如果在某个记录比较成功，从循环中跳出 Close #1关闭文件 End If Next i,第32页,2019/5/23,任务设计完成效果,第33页,2019/5/23,任务2文本和图片浏览器的设计（文件系统控件）
16、,在窗体上选中驱动器、目录以及文件夹下的某个图片文件，右端会显示该图片。如果选择的是某个文本文件就会显示文本文件内的内容。,第34页,2019/5/23,任务分析,该任务我们要解决以下问题 如何找到要显示或浏览的文件。 文本框和图像框在同一位置显示，如何在某种条件下显示其中之一。 以何种条件判断该显示文本框和图像框中的哪一个。 显示文本文件和图片文件的方法。,第35页,2019/5/23,任务分析,该任务我们要研究以下几项内容 驱动器列表框（DriveListBox） 目录列表框（DirListBox） 文件列表框（FileListBox）,第36页,2019/5/23,任务分析,驱动器列表框（DriveListBox） 驱动器列表框是一个下拉式列表框，是一个包含有效驱动器的列表控件，默认状态下显示当前驱动器名。运行时，该控件获得焦点时，可输入任何有效的驱动器标识符或者在DriveListBox控件的列表中选择一个有效
