资源描述
2022-7-16138.1 文件管理控件文件管理控件VB提供了提供了3种可直接浏览系统目录结构和文件的控种可直接浏览系统目录结构和文件的控件：件：盘驱动器列表框、目录列表框、文件列表框。盘驱动器列表框、目录列表框、文件列表框。盘驱动器列表框目录列表框文件列表框4 驱动器列表框控件，通常只显示驱动器列表框控件，通常只显示当前驱动器名称当前驱动器名称，单击向下箭头，就会下拉出当前系统拥有的所有磁盘驱单击向下箭头，就会下拉出当前系统拥有的所有磁盘驱动器，供用户选择。动器，供用户选择。1重要属性重要属性 Drive属性属性用来设置当前驱动用来设置当前驱动器或返回所选择的驱动器名。器或返回所选择的驱动器名。使用格式：使用格式：对象对象.Drive=例如：例如：Drive1.drive=“C:”8.1.1 盘驱动器列表框（盘驱动器列表框（DriveListBox）62重要事件重要事件Change事件事件 在程序运行时，当在程序运行时，当选择一个新的驱动器选择一个新的驱动器或或通过执行代通过执行代码码改变改变Drive属性的设置时都会触发驱动器列表框的属性的设置时都会触发驱动器列表框的change事件发生。事件发生。8.1.1 驱动器列表框（驱动器列表框（DriveListBox）78.1.2 目录列表框（目录列表框（DirListBox）目录列表框控件用来显示目录列表框控件用来显示当当前目录的上级目录顺序前目录的上级目录顺序结构及结构及当当前目录前目录下的所有子目录。供用户下的所有子目录。供用户选择其中一个目录为选择其中一个目录为当前目录当前目录。常用属性：常用属性：1、Path属性：属性：字符串类型，用于设置当前目录字符串类型，用于设置当前目录 Dir1.Path=c:windows”双击双击目录列表框的某一个表项，则目录列表框的某一个表项，则Path属性值自动设属性值自动设置为该目录。置为该目录。108.1.3 文件列表框（文件列表框（FilelistBox）文件列表框控件用简单列表形式显示文件列表框控件用简单列表形式显示 Path 属性指定属性指定的目录中所有的目录中所有指定指定文件类型的文件。文件类型的文件。Pattern属性：属性：具有通配符的文件名字符串，缺省值为具有通配符的文件名字符串，缺省值为“*.*”，用于返回或设置列表框所显示的文件类型。用于返回或设置列表框所显示的文件类型。File1.Pattern=“*.frm”（只显示（只显示*.frm文件）文件）File1.Pattern=“*.exe;*.txt”（只显示只显示*.exe文件和文件和.txt文件）文件）常用事件有：常用事件有：PathChange事件，PatternChange事件，Click事件和DblClick事件11说明：说明：要使驱动器、目录和文件列表框同步显示，可以编要使驱动器、目录和文件列表框同步显示，可以编 写简单的代码就使它们之间彼此同步。写简单的代码就使它们之间彼此同步。例：例：文件系统控件的联动文件系统控件的联动Sub Drive1_Change()Dir1.Path=Drive1.DriveEnd SubSub Dir1_Change()File1.Path=Dir1.PathEnd Sub8.2 文件操作语句与函数文件操作语句与函数138.3 数据文件的操作数据文件的操作14文件文件8.3 数据文件的操作数据文件的操作15按文件的存储格式不同，按文件的存储格式不同，文件分为两种：文件分为两种：文本文件文本文件 二进制文件二进制文件按照文件的访问类型不同，按照文件的访问类型不同，文件分为三类：文件分为三类：顺序文件顺序文件 随机文件随机文件 二进制文件二进制文件168.3.2 文本文件的顺序访问文本文件的顺序访问顺序文件的概念：顺序文件的概念：按顺序依次把记录写入文件；按按顺序依次把记录写入文件；按顺序依次把记录读出来，适用于读写在连续块中的顺序依次把记录读出来，适用于读写在连续块中的文本文件，一行一条记录，记录可长可短，以文本文件，一行一条记录，记录可长可短，以“换换行行”字符为分隔符号。字符为分隔符号。顺序文件的访问是为顺序文件的访问是为普通的普通的文本文件文本文件的使的使用设计的。用设计的。17顺序文件的访问模式：顺序文件的访问模式：关闭文件关闭文件打开文件打开文件读出或写入读出或写入Private Sub Form_Click()Open“C:dd.txt”For Output As#1 Print#1,”ok”,89 Close#1End Sub8.3.2 文本文件的顺序访问18“打开文件打开文件”的语句格式：的语句格式：Open “文件名文件名”For 模式模式 Lock Lock_level As#文件号文件号（1）模式：）模式：Output：写操作（从内存写到外存）写操作（从内存写到外存）Input：读操作（从外存读到内存）读操作（从外存读到内存）Append：追加到文件末尾追加到文件末尾（2）Lock_level：Read:别的任务或进程不可读该文件别的任务或进程不可读该文件Write:别的任务或进程不可写该文件别的任务或进程不可写该文件ReadWrite:别的任务或进程不可读、写该文件别的任务或进程不可读、写该文件若缺省，则在若缺省，则在Input模式下默认为模式下默认为Write，否则默认为，否则默认为Read Write（3）文件号：整数）文件号：整数15118.3.2 文本文件的顺序访问文本文件的顺序访问19例如：例如：Open“C:TEMPA.TXT”For Input As#1 Open“C:TEMPB.TXT”For Output As#2 Open“C:TEMPC.TXT”For Append As#3注意：注意：（1）模式为）模式为Output，打开文件时，会清空文件中的内容。，打开文件时，会清空文件中的内容。若文件不存在，会自动创建此文件。若文件不存在，会自动创建此文件。（2）模式为）模式为Input，要打开的文件必须已经存在，否则会出错。，要打开的文件必须已经存在，否则会出错。（3）模式为）模式为Append，打开文件时，会保留文件中原有的内容，打开文件时，会保留文件中原有的内容，把新数据追加到文件末尾。若文件不存在，会自动创建此文件。把新数据追加到文件末尾。若文件不存在，会自动创建此文件。8.3.2 文本文件的顺序访问文本文件的顺序访问208.3.2 文本文件的顺序访问文本文件的顺序访问使用使用函数函数Freefile的返回值为系统中当前最小、未被其的返回值为系统中当前最小、未被其他文件所用的文件号。他文件所用的文件号。比如：比如：N=freefileOpen“C:TEMPA.TXT”For Input As N“关闭文件关闭文件”的语句格式：的语句格式：注意：注意：在文件的读写操作完成后，要用在文件的读写操作完成后，要用Close来关闭文件。来关闭文件。22顺序文件的写操作：顺序文件的写操作：Private Sub Command1_Click()Open d:sssss.txt For Output As#1 Print#1,ok;89 效果与在窗口上类似，有紧凑与宽松之分效果与在窗口上类似，有紧凑与宽松之分 Write#1,ok,89 逗号与分号效果相同，字符串引号自动加，末尾无分隔符，则自动换行逗号与分号效果相同，字符串引号自动加，末尾无分隔符，则自动换行 Write#1,True,Write#1,False Close#1End Sub（1）Print#文件号，文件号，表达式列表表达式列表（2）Write#文件号，文件号，表达式列表表达式列表8.3.2 文本文件的顺序访问文本文件的顺序访问23Private Sub Command1_Click()Open d:abc.txt For Output As#1 Write#1,北京北京,38,20 Write#1,上海上海,35,16 Write#1,深圳深圳,37,18 Write#1,西安西安,32,10 Write#1,拉萨拉萨,16,7 Close#1End Sub 写入数据一般都使用写入数据一般都使用Write语句，而不是语句，而不是Print语句，语句，因为因为Write语句能更好地区分记录中的数据项。语句能更好地区分记录中的数据项。8.3.2 文本文件的顺序访问文本文件的顺序访问24顺序文件的读操作：顺序文件的读操作：（1）Input#文件号，变量列表文件号，变量列表 把读出的每个数据项（分隔符来区分）分别存放到所把读出的每个数据项（分隔符来区分）分别存放到所对应的变量，读完一行数据就停止。对应的变量，读完一行数据就停止。Private Sub Command1_Click()Dim s As String,a%,b%Open d:abc.txt For Input As#1 Input#1,s,a,b Print s;a;b Close#1End Sub8.3.2 文本文件的顺序访问文本文件的顺序访问26（2）Line Input#文件号，字符串变量文件号，字符串变量将文件的当前读写位置起至将文件的当前读写位置起至换行符换行符或或文件结束符文件结束符前的所有字前的所有字符读入到字符串变量。符读入到字符串变量。顺序文件的读操作：顺序文件的读操作：Private Sub Command1_Click()Dim s As String Open d:abc.txt For Input As#1 Line Input#1,s Print s Close#1End Sub8.3.2 文本文件的顺序访问文本文件的顺序访问28EOF(EOF(文件号文件号)：如果读写位置在文件末尾，如果读写位置在文件末尾，EOFEOF函数函数 返回返回True，否则为，否则为False。LOF(LOF(文件号文件号)：返回文件的长度返回文件的长度(总字节数总字节数)。常用的文件函数：常用的文件函数：8.3.2 文本文件的顺序访问29Input$(n,#文件号文件号):从指定的文件中读取具有从指定的文件中读取具有n个字符的字个字符的字符串，作为函数的返回值。这里的字符包括逗号、回车符、符串，作为函数的返回值。这里的字符包括逗号、回车符、换行符、引号等各种符号。换行符、引号等各种符号。常用的文件函数：常用的文件函数：Private Sub Command1_Click()Dim s As String Open d:sssss.txt For Input As#1 s=Input(LOF(1),#1)Close#1:Print sEnd Sub8.3.2 文本文件的顺序访问30EOFEOF函数在循环体中的应用：函数在循环体中的应用：Private Sub Command1_Click()Dim s As String Open“d:abc.txt For Input As#1 Do While Not EOF(1)s=s&Input(1,#1)Loop Close#1 Print sEnd Sub8.3.2 文本文件的顺序访问文本文件的顺序访问
展开阅读全文