VB程序设计第十二章

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,Visual Basic,程序设计教程,内蒙古科技大学实践训练中心,第十二章 文件,12.1,文件系统控件,12.1.1,驱动器列表框（,DriveListBox,）,重要属性,：,Drive,；（还具有一般列表框的属性）；该属性为字符型数据，只能在程序运行时设置，不能在设计状态设置；,赋值格式,：,.Drive=,其中：,：指驱动器列表框的名称，如“,Drive1,”,；,：一个合法的驱动器名称字符串；如“,c:,”,示例：,Drive1.Drive=“c:”,事件,：,Change,12.1,文件系统控件,12.1.2,目录列表框,(DirListBox),重要属性：,Path,；（还具有一般列表框的属性）；该属性为字符型数据，只能在程序运行时设置，不能在设计状态设置；,赋值格式：,.Path=,其中：,：指目录列表框的名称，如“,Dir1,”,；,：一条包括驱动器名的合法路径；如“,c:windows,”,示例：,Dir1.path=“c:windows”,事件：,Change,12.1,文件系统控件,12.1.3,文件列表框,(FileListBox),重要属性,：,Path,：,用于设置和返回文件列表框所显示的文件的绝对路径，为字符,串类型，只能在运行时设置；,Filename,：,用于设置和返回文件列表框中被选中文件的文件名；为字,符串类型；能够在设计时设置；,Pattern,：,用于设置和返回文件列表框中所显示文件的类型；字符串类,型；可以在设计状态下在属性窗口设置，也可以在运行后设,置，默认“,*,.*,”,；,Archive,、,Normal,、,Hidden,、,System,、,ReadOnly,等：分别决定显示,文件列表框能否显示,文档文件、正常文件、隐含文件、系统,文件、只读文件,等；,12.1,文件系统控件,例,12-1,建立一个文件系统的程序。,解题思路,：建立一个驱动器列表框、目录列表框、文件列表框；组合框以来确定文件列表框显示文件的类型；,12.2,文件及其结构,12.2.1,文件的概念,1,、字符,为数据文件中的最小信息单位，如单个的字节、数字、标点等；,2,、字段,有若干字符组成的一项独立的数据，如：学生的姓名、年龄、考试分数等,3,、记录,由若干个字段组成的一个逻辑单位；一般一个记录中的各个字段之间有,着相互的关系，如：学生的姓名、年龄、考试分数三个字段可组成一个,记录。,4,、文件,文件是相关记录的集合。,12.3,文件及其结构,12.2.3,文件分类,1,、顺序文件,文件中的记录一个接一个地存放，每条记录之间以”换行“字符为分隔符,号。每条记录可长可短，访问此类文件时，只能从第一条记录顺序访问到,最后一条记录，不可以在记录之间乱跳，如访问玩第一条记录后直接访问,第三条记录是不允许的。,2,、随机文件,每条记录的成都是相同的，记录之间不需要特殊的分隔符号；访问此类,文件时，不必考虑每条记录的排列顺序和位置，可直接访问任一条记录。,文件的每条记录都按顺序被系统分配了记录号，根据记录号便可访问任,意记录。,3,、二进制文件,直接将二进制编码存放在文件中。访问此类文件是以字节数来定位数据,的，允许用户按所需的任意方式来组织数据，也允许对任意位置上的字,节数直接访问。,12.3,文件及其结构,12.3,文件操作方法,顺序文件,访问顺序文件的步骤：,打开文件,读,/,写文件,关闭文件,1,、打开文件,Open“,文件名,”For,模式,As#,文件号,其中：,(1),文件名可是字符串常量，也可以是字符串变量；,(2)”,模式“：,”,OutPut“,：对文件进行,写,操作；文件存在则清除原来的所有,内容，文件不存在，则建立该文件；,”,IntPut“,：对文件进行,读,操作；只能打开一个已存在文件；,”,Append“,：在文件末尾追加记录；文件已存在，不会清除原,有的所有内容，只是在文件末尾添加新的记录；,(3),文件号：是给打开的文件分配的一个文件号，介于,1,511,；,当,打开一个文件并为它指定一个文件号，该号就代表该,文件，直到被关闭，此号才可被其他文件使用。,如：,open“c:windowslog.txt”for output as#1,12.3,文件及其结构,12.3,文件操作方法,顺序文件,2,、写操作,(1),Print#,文件号,输出列表,(2),Write#,文件号,输出列表,其中：,输出列表,指用“，”分隔的数值或字符串,区别：,Write,命令以紧凑格式输出，数据项之间自动添加“，”分隔符，,并给字符型的数据加上双引号。,12.3,文件及其结构,12.3,文件操作方法,顺序文件,3,、读操作,(1),InPut#,文件号,变量列表,将文件的数据读出，并分别赋给指定的变量,；,(2),Line InPut#,文件号,变量列表,从文件中读出一行数据，并将读出的数据赋给指定的字符型变,量（读出的数据不含回车符及换行符）。,(3),InPut$(,读取的字符数，,#,文件号,),从文件中读出指定数目的字符。常用函数：,LOF(#,文件号,),：返回制定文件的字节数，即文件的长度。,LOF(1),返回,1,号文件的长度，若为,0,，则该文件为空文件回车符和,换行符也包含在内）。,EOF(#,文件号,),：检查文件指针是否到达文件尾部；若是则返回,True,，否则返回,False,。,12.3,文件及其结构,12.3,文件操作方法,顺序文件,4,、关闭文件,Close#,文件号,1,#,文件号,2,若不带任何参数，则关闭所有已打开的文件,如：,Close#1,#2 ,关闭,1,号、,2,号文件,Close ,关闭所有已打开的文件,例,12-2,区分,print,和,write,命令,。,Open d:test.txt For Output As#1,Print#1,123,123,Print#1,123;123,Write#1,123,123,12.3,文件及其结构,12.3,文件操作方法,顺序文件,例,12-3,将上例的文本文件读到内存中，并存入文件,testa.txt,中,。,Dim st As String,whole As String,Open d:test.txt For Input As#1,Do While(Not EOF(1),Line Input#1,st,whole=whole+st+Chr(13)+Chr(10),Loop,Text1.Text=whole,Close#1,Open d:testa.txt For Output As#1,Print#1,Text1.Text,Close#1,12.3,文件及其结构,12.3,文件操作方法,顺序文件,例,12-4,演示顺序文件的读写方法,。,12.4,常用文件操作语句与函数,1,、,kill,语句,格式：,kill,文件名,功能：,删除指定的文件；文件名可使用通配符“*”和,”?”,如：,kill“*.txt”,删除当前目录下的所有的扩展名为,txt,的文件,2,、,FileCopy,语句,格式：,FileCopy,源文件名，目标文件名,功能：,复制一个文件；不能复制一个已打开的文件,3,、,Name,语句,格式：,Name,原文件名,AS,新文件名,功能：,重新命名一个文件或目录。文件名中不能有通配符“*”和“？”；也不,能操作一个已打开的文件。,4,、,ChDrive,语句,格式：,ChDrive,驱动器名,功能：,改变当前驱动器。若驱动器名为“”，则仍未,当前驱动器；若驱动器名,有多个字符，只使用首字符。,12.4,常用文件操作语句与函数,5,、,MKDir,语句,格式：,MKDir,目录名,功能：创建一个新的目录,6,、,ChDir,语句,格式：,ChDir,路径,功能：,改变当前路径,。,ChDir,改变默认路径，但并改变默认驱动器。,7,、,RmDir,语句,格式：,RmDir,目录名,功能：,删除指定空的目录。应先用,kill,命令删除该目录下的所有文件。,8,、,CurDir,语句,格式：,CurDir(drive),功能,：返回指定驱动器的当前目录，缺省返回当前驱动器的目录。,12.5,综合应用程序举例,例,12-7,在磁盘上建立一个文件格式如下，,*,sin cos tan,0,？,10,？,20,？,90,？,解题思路：,以写文件方式建立一个顺序文件,d:example.txt,，调用三角函数,sin,、,cos,、,tan,计算,0,90,度的函数值，并将值写入顺序文件中。,打开顺序文件：,open“d:example.txt”for output as#1,写入顺序文件：,print#1,I sinval,cosval,tancal,12.5,综合应用程序举例,例,12-8,某单位全年每次报销的经费（整数）存放在一个文件中，从该文件读取每次报销的经费，计算总和，结果存入另一个文件中。,解题思路：,先从经费文件中读出每次的经费，在列表框中显示出来，并累加到变量,sum,中，在文本框中显示经费总和，最终把结果写入文本文件中,.,Dim sum As Long,Open“d:outlayi.txt”For Input As#1 ,以顺序文件方式打开文件,sum=0,Do While Not EOF(1),Input#1,n ,读出文件的每一次经费,List1.AddItem n ,加入到列表框中,sum=sum+n ,求累加总和,Loop,Close#1,Text1.Text=Str(sum),Open d:outlayo.txt For Output As#1,Print#1,“,经费总和：,”;sum ,将累加总和写入文件,Close#1,12.5,综合应用程序举例,例,12-9,有,20,个整数保存到,d:in5.txt,中，读文件，并将整数显示在,Text1,中，而后按升序排序，排序后的结果显示在,Text2,中，并保存在,d:ou5.txt,中。,解题思路,：首先按顺序读方式读出数据，存放在数组,a,中，再对数组,a,排序，最后将排序后的数组,a,写入文件中。,