《VB程序设计与应用案例》第6章 文件操作

第6章文件操作 学习目标: ◆了解ⅤB的文件系统 ◆掌握读写顺序文件 ◆掌握读写随机文件 ◆掌握文件系统控件的应用

第6章 文件操作 学习目标： ◆ 了解VB的文件系统 ◆ 掌握读写顺序文件 ◆ 掌握读写随机文件 ◆ 掌握文件系统控件的应用

第6章文件操作 教学内容: 6,1文件分类 6,2顺序文件的读写 63随机文件的读写 6.4文件系统控件 65顺序文件应用案例

第6章 文件操作 教学内容： 6.1 文件分类 6.2 顺序文件的读写 6.3 随机文件的读写 6.4 文件系统控件 6.5 顺序文件应用案例

61文件分类 返回目录 1.顺序文件 >文件中的记录按顺序存放 >按第一个记录的存储位置顺序访问 2.随机文件 >可按任意次序读写文件(按记录号) >每个记录的长度必须相同 3.二进制文件 >文件是字节的集合 >允许程序按所需的任何方式组织和访问数据 本章主要介绍顺序文件和随机文件的读写操作

6.1 文件分类 1. 顺序文件 ➢ 文件中的记录按顺序存放 ➢ 按第一个记录的存储位置顺序访问 2. 随机文件 ➢ 可按任意次序读写文件(按记录号) ➢ 每个记录的长度必须相同 3. 二进制文件 ➢ 文件是字节的集合 ➢ 允许程序按所需的任何方式组织和访问数据 本章主要介绍顺序文件和随机文件的读写操作 返回目录

62顺序文件读写一读顺序文件 返回目录 读顺序文件:打开→读取→关闭 1.打开现存的顺序文件 Open pathname For Input As #filenumber Len-buffersize Pathname:文件路径名 > Filenumber:文件号 >Len:指定缓冲区大小 2.读顺序文件 Line Input#文件号,变量名 Input#文件号,变量列表 Input(字符数,[#文件号) 3关闭文件 Close#[文件号],#[文件号]

6.2 顺序文件读写－读顺序文件 读顺序文件：打开→读取→关闭 1. 打开现存的顺序文件 Open pathname For Input As #filenumber [Len=buffersize] ➢ Pathname：文件路径名 ➢ Filenumber：文件号 ➢ Len：指定缓冲区大小 2. 读顺序文件 Line Input #文件号,变量名 Input #文件号,变量列表 Input(字符数, [#]文件号) 3. 关闭文件 Close [#] [文件号],[#] [文件号]…… 返回目录

62顺序文件读写一读顺序文件 返回目录 例61用 Line Inpu语句读出并显示ttx文件的内容 Private Sub Form Click Dim NextLine as string Open"t1t" For Input As#1·打开文件 Do While Not eof(d) 循环至文件尾 Line Input#1, NextLine"读入一行数据 Print NextLine Loop Ettt记事本口 a Form1 文件(编辑(E格式(Ω)帮助⊕ 0001.78,88 Close uoo2,66,70 1,78,88 0003.90.96 2,66,7 End Sub

6.2 顺序文件读写－读顺序文件 [例6.1] 用Line Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim NextLine As String Open "t1.txt" For Input As #1 '打开文件 Do While Not EOF(1) '循环至文件尾 Line Input #1, NextLine '读入一行数据 Print NextLine Loop Close End Sub 返回目录

62顺序文件读写一读顺序文件 返回目录 例62用Inpu语句读出并显示t1xt文件的内容 Private Sub Form Click Dim sl As String, S2 As String, S3 As String Open"tI. txt" For Input As #1 Do While Not eof(l) Input #1. sl. s2. S3 与.Form1 Print sl. s2. s3 0001 0003 860 Loop 96 Close End Sub

6.2 顺序文件读写－读顺序文件 [例6.2] 用Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open "t1.txt" For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop Close End Sub 返回目录

62顺序文件读写一写顺序文件 返回目录 写顺序文件:打开→写入→关闭 1.打开/创建顺序文件 Open pathname For Output As #filenumber Len=buffersize >功能:向文件中写入数据 Open pathname For Append As #filenumber Len=buffersize >功能:在文件尾追加记录 若文件不存在,系统将先创建再打开 2.写顺序文件 Print #filenumber, loutputlist Write #filenumber, outputlist 与 Print#不同的是, Write#可在数据项之间自动插入逗号

6.2 顺序文件读写－写顺序文件 写顺序文件：打开→写入→关闭 1. 打开/创建顺序文件 Open pathname For Output As #filenumber [Len=buffersize] ➢ 功能：向文件中写入数据 Open pathname For Append As #filenumber [Len=buffersize] ➢ 功能：在文件尾追加记录 若文件不存在，系统将先创建再打开 2. 写顺序文件 Print #filenumber, [outputlist] Write #filenumber, [outputlist] 与Print #不同的是，Write #可在数据项之间自动插入逗号 返回目录

62顺序文件读写一读顺序文件 返回目录 例63先创建C: temp. txt,然后读出并显示该文件内容 Private Sub Form Click Dim sl As String, S2 As String, s3 As String Open"c: temp. txt"For Append As #1 Write#1," Ding Xiao",25,"男"'写入以逗号隔开的数据 Write #1, "Wang Xiao", 23, "'1 Close Open"c: temp. txt" For Input As #1 Do While Not eof(d) Input #l, sl, S2, $3 Print sI 3 Loop End sub

6.2 顺序文件读写－读顺序文件 [例6.3] 先创建C:\temp.txt，然后读出并显示该文件内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open "c:\temp.txt" For Append As #1 Write #1, "Ding Xiao", 25, "男" '写入以逗号隔开的数据 Write #1, "Wang Xiao", 23, "女" Close Open "c:\temp.txt" For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop End Sub 返回目录

63随机文件读写一读写随机文件 返回目录 随机文件的特点: >以定长记录为单位,通过记录号访问文件内容 文件打开后,可读可写 1.定义记录类型 先定义记录类型,再定义记录类型变量。例如: ype TeacherRec Name As string 30 注:对定义在窗体中的记录 Wage As single 类型,Type前若无 Private, Level As string*16 则默认为 Public End Type Dim varTeacherrec As Teacherrec

6.3 随机文件读写－读写随机文件 随机文件的特点： ➢ 以定长记录为单位，通过记录号访问文件内容 ➢ 文件打开后，可读可写 1. 定义记录类型 先定义记录类型，再定义记录类型变量。例如： Type TeacherRec Name As String*30 Wage As Single Level As String*16 End Type Dim varTeacherRec As TeacherRec 返回目录 注：对定义在窗体中的记录 类型，Type前若无Private， 则默认为Public

63随机文件读写一读写随机文件 返回目录 2.打开及关闭随机文件 打开:Open文件路径名 For random[ Access access As#文 件号[Len= reclength access参数指出打开方式:Read、 Write,缺省为可写可读 Len参数指定每个记录的长度 3.读写随机文件 读:Get文件号,[记录号],变量名 写:Put閉文件号,[记录号1,变量名 若记录号缺省,则对上一次Ge或Pu操作后的下一个记 录进行操作

6.3 随机文件读写－读写随机文件 2. 打开及关闭随机文件 打开：Open 文件路径名 For Random [Access access] As #文 件号 [Len = reclength] ➢access参数指出打开方式：Read、Write，缺省为可写可读 ➢Len参数指定每个记录的长度 3. 读写随机文件 读：Get [#]文件号,[记录号],变量名 写：Put [#]文件号,[记录号],变量名 若记录号缺省，则对上一次Get或Put操作后的下一个记 录进行操作。 返回目录