VB语言程序设计：VB第8章电子讲稿

文件是指存放在外存储器 (如磁盘 )上的信息集合使用文件可以将应用程序所处理的数据以文件的形式保存起来程序文件 和 数据文件本章主要内容文件基本操作文件系统对象 (FSO)简介第 8章 数据文件
8.1.1 数据文件的结构数据文件由记录组成，记录由字段组成，字段由字符组成记录 1
数据文件记录 2
…………
学号 姓名
951001 张三 …
学号 姓名
951002 李四 …
字段
8.1 数据文件概念
(1)顺序文件,文本文件。 文件中的记录按顺序一个接一个地排列。无法灵活地随意存取它。只适用于有规律的、
不经常修改的数据
(2)随机文件,随机文件的每一个记录都有固定的长度，
每一个记录都有记录号，这种文件的特点是允许用户存取文件中任一个记录。可以同时进行读或写操作存入和读出速度较快，数据容易更新
(3)二进制文件,可理解为长度为 1的特殊的随机文件
8.1.2 文件类型
(1) 打开 (或新建 )文件
(2) 进行读、写操作系统设置文件指针，用来记住当前读写的位置
(3) 关闭文件
8.1.3 文件处理的一般步骤
1,打开文件 (Open)
Open 文件名 [For 模式 ][Access 存取类型 ][锁定 ] As [#]文件号 [Len=记录长度 ]
说明,(1)文件名 ；
(2) 模式 用于指定文件访问的方式,包括：
Append——从文件末尾添加 Binary——
Input——顺序输入 Output——
Random——随机存取方式
(3)文件号 (或称文件缓冲区 )
(4)存取类型,访问文件的类型,为 Read(只读 ),Write(只写 )、
Read Write(读写 )
(5)锁定,限制其他用户或其他进程对文件进行读写操作
Shared(共享 ),Lock Read(禁止读 ),Lock Write(禁止写 )、
Lock Read Write(禁止读写 )
(6)Len：用来指定每个记录的长度 (字节数 )
示例,Open "d:\cj1.dat" For Output As #1
8.1.4 文件的打开和关闭
2,关闭文件 (Close)
打开的文件使用完后必须关闭。
Close [#] 文件号 1 [,[#] 文件号 2 …] ]
示例：
Close #1
1,FreeFile
格式,FreeFile
功能：返回一个在程序中没有使用的文件号示例,FileNo=FreeFile
Open "D:\MyFile.txt" For Output As FileNo
2,Seek语句和 Seek函数
Seek函数的格式,Seek(文件号 )
功能：返回文件指针的当前位置对于随机文件,Seek函数返回指针当前所指的记录号。对于顺序文件，
Seek函数返回指针所在的当前字节位置 (从头算起的字节数 )
Seek语句的格式,Seek [#]文件号，位置功能：将指定文件的文件指针设置在指定位置，以便进行下一次读或写操作对于随机文件，“位置”是一个记录号；对于顺序文件，“位置”表示字节位置
8.1.5 相关的语句和函数
3,Eof函数格式,Eof(文件号 )
功能：测试与文件号相关的文件是否已达到文件的结束位置。如果是，函数值为真值，否则为假值。
使用 Eof是为了避免在文件结束处读取数据而发生错误
4,Lof
格式,Lof(文件名 )
功能：返回与文件号相关的文件的总字节数
5,Loc
格式,Loc(文件号 )
功能：返回与文件号相关的文件的当前读写位置
8.2.1 顺序文件的写入操作以 Output或 Append方式打开文件，然后使用 Write#语句或 Print#语句将数据写入文件中
1,Write
格式,Write #文件号 [，表达式表 ]
功能：将表达式的值写到与文件号相关的顺序文件中每个 Write语句向顺序文件写入一个记录 (不定长 )，它会自动地用逗号分开每个表达式的值。给字符串加上双引号在最后一个字符写入后，插入一个回车换行符 (Chr(13) +
Chr(10))
示例,Write #1,"Good Afternoon",1998
8.2 顺序文件把 1～ 50的 50个整数，以及这些数中能被 7整除的数分别存入两个文件中，文件名为 num1和 num2，文件存放在 VB
缺省文件夹下
Private Sub Form_Load()
Open "num1.txt" For Output As #1
Open "num2.txt" For Output As #2
For i = 1 To 50
Write #1,i
If i Mod 7 = 0 Then Write #2,i
Next i
Close #1,#2
Unload Me
End Sub
说明,num1.txt文件中一共写入 50个记录，而 num2.txt文件只写入其中能被 7整除的若干个记录例 8.1 把 1～ 50各数及能被 7整除的数分别存入两个文件中在例 8.1所生成的 num2.txt文件中，存放了若干个能被 7
整除的数，现要求再加入 51～ 200范围内能被 7整除的数程序代码如下,
Private Sub Form_Load()
Open "num2.txt" For Append As #1
For i = 51 To 200
If i Mod 7 = 0 Then Write #1,i
Next i
Close #1
Unload Me
End Sub
例 8.2 在 num2.txt文件中加入 51～ 200范围内能被 7整除的数输入某小组 5名学生的成绩 (表 8.1)，存放在“我的文档” (C:\My Documents)文件夹下的新建顺序文件 Cj2.txt
设计步骤如下：
(1)创建应用程序的用户界面和设置对象属性例 8.3 建立学生成绩顺序文件 Cj2.txt
(2) 设置事件过程
Form_Load()：
Command1_Click(),接收录入信息，并以一个记录存入文件中
Command2_Click(),关闭文件和结束程序运行
Private Sub Form_Load()
Open,C:\my documents\Cj2.txt,For Output As #1
End Sub
Private Sub Command1_Click()
Dim num As String * 6,name As String * 8,score As Integer
num = Text1.Text
name = Text2.Text
score = Val(Text3.Text)
Write #1,num,name,score '存入记录
Text1.Text = "" '存完 1个记录后清空
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus '设置焦点
End Sub
Private Sub Command2_Click()
Close #1
End
End Sub
程序运行完成后，用 Windows记事本来打开该顺序文件
(文本文件 )，即可看到存入的文件内容说明,在显示的文件内容中，字符串 (学号、姓名 )两边的引号是系统自动加入的。字段之间通过逗号隔开
2,Print语句格式,Print #文件号 [，表达式表 ]
作用与 Write一样。将一个或多个表达式的值写到与文件号相关的顺序文件中。其输出数据格式与
Print方法在窗体上输出格式相似。
示例：
Print #1,num,name,score?对应按区格式
Print #1,num； name； score?对应紧凑格式先用 Input方式打开文件，然后采用 Input或 Line Input语句从文件中读出数据。通常,Input用来读出 Write写入的记录内容，而 Line Input用来读出 Print写入的记录内容
1,Input语句一般格式,Input #文件号，变量名表功能：从指定文件中读出一个记录。变量个数和类型应该与要读取的记录所存储的数据一致。
打开文件时，文件指针指向文件中的第 1个记录，以后每读取一个记录，指针就向前推进一次。如果要重新从文件的开头读数据，则先关闭文件后打开
8.2.2 顺序文件的读出操作程序代码如下：
Private Sub Form_Load()
Show
Open "data1.txt" For Output As #1
a = 123,b$ = "ABCD"
Write #1,a,b$ '存入
Close #1
Open "data1.txt" For Input As #1
Input #1,c,d$ '读出
Close #1
Print c,d$
End Sub
123 ABCD
例 8.4 一个存取数据的示例已知文件,num2.txt”中存放一批能被 7整除的数 (见例 8.1
及例 8.2)，现要求把这些数显示出来。每行显示 4个数。
Private Sub Form_Load()
Show
k = 0
Open "num2.txt" For Input As #1
Do While Not EOF(1) '文件未结束时，循环
Input #1,x
Print x,
k = k + 1
If k Mod 4 = 0 Then Print '每显示 4个数后换行
Loop
Close #1
End Sub
例 8.5 从文件,num2.txt”中读取数据从文件 Cj2.txt(见例 8.3)中读出 5个学生的资料，显示在列表框中，并求出平均分
(1) 创建应用程序的用户界面和设置对象属性例 8.6 从文件 Cj2.txt中读出 5个学生的资料
(2)编写程序代码功能要求,单击“查询”按钮时，则打开文件后读取文件中所有记录内容，并显示在列表框 List1中，计算得到的平均分显示在文本框 Text1中
Private Sub Command1_Click()
Dim n As String,m As String,s As Integer
Dim x As String,t As Integer
Open "C:\my documents\Cj2.txt" For Input As #1
t = 0
For i = 1 To 5
Input #1,n,m,s
x = n + Space(2) + m + Str(s)
List1.AddItem x,t = t + s
Next i
Close #1
Text1.Text = t / 5
End Sub
2,Line Input语句格式,Line Input #文件号，字符型变量功能：从打开的顺序文件中读出一个记录，即一行信息例 8.7 Print语句和 Line Input语句配合使用的示例
Private Sub Form_Load()
Show
Open "mytxt.txt" For Output As #1
a = 123,b$ = "ABCD"
Print #1,a,b$ '写入第 1个记录
Print #1,a; b$ '写入第 2个记录
Close #1
Open "mytxt.txt" For Input As #1
Line Input #1,x$ '读出第 1个记录
Print x$
Line Input #1,x$ '读出第 2个记录
Print x$
Close #1
End Sub
3,Input
格式,Input(字符数,#文件号 )
示例,A$ =Input(20,#1)
顺序文件的缺点是不能快速地存取所需的数据，也不容易进行数据的插入、删除和修改等工作，因此对于经常要修改数据或取出文件中个别数据，均不适合使用，但对于数据变化不大，每次使用时又需要从头往后顺序地进行读写，它还是不失为一种好的文件结构随机文件中每一个记录定长，并设置记录号，记录号从
1开始。
存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置，然后加以写入或读出
8.3.1 初步认识例 8.8 建立一个随机文件，文件中包含 10个记录，每个记录由一个数 (1至 10)的平方、立方和开方根三个数值组成，
8.3 随机文件
(1) 通过 Type...End Type语句定义记录类型，
程序代码如下：
Private Type Numval
Squre As Integer
Cube As Long
Sqroot As Single
End Type
(2)利用某一过程 (本例采用事件过程 Form_Load)
来完成该随机文件的存取操作，程序代码如下：
Dim nv As numval '定义一个 numval类型的变量 nv
'写入记录程序段
Private Sub Form_Load()
Open "Data1.dat" For Random As #1 Len = Len(nv)
For i = 1 To 10
nv.squre = i * i
nv.cube = i * i * i
nv.sqroot = Sqr(i)
Put #1,i,nv
Next i
'读出记录程序段
Show
For i = 2 To 10 Step 4 '只读出 3个记录
Get #1,i,nv
Print "第 "; i; "号记录,",nv.squre,nv.cube,nv.sqroot
Next i
Close #1
End Sub
运行结果：
第 2号记录 4 8 1.414214
第 6号记录 36 216 2.44949
第 10号记录 100 1000 3.162278
进行随机文件存取操作，大致包括以下一些内容：
(1) 在打开文件进行随机访问之前，使用 Type…End Type 语句定义一个 记录类型 (如 Numval)，该类型包括多个数据项，并与文件中记录应包括的域一致。
当通过 Dim定义一个变量 (如 nv)为一个记录类型 Numval时，
该变量也就包含该类型的多个数据项，以后可通过 nv.squre、
nv.cube,nv.sqroot进行引用
(2) 指定 Random类型打开文件，记录定长，打开文件后，就可以存或取任一个记录
(3)分别通过 Get和 Put语句，并指定记录号进行读一个记录或存一个记录一定要建立好记录与记录号之间的关系
1,读语句格式,Get #文件号［，记录号］，变量功能：从一个随机文件中读出指定记录到一个变量
2,
格式,Put #
默认情况下，记录号编号为上一次使用的记录号加 1
8.3.2 存取操作建立一个有 5名职工工资信息的随机文件，其中包括职工的职工号 (从 001开始 )、姓名及工资三种数据。采用职工号
(1) 在标准模块 Module1中用 Type语句定义一个职工工资记录类型
Type Salary
Name As String*8?定长字符串类型
Salary As Long
End Type
不必把职工号作为记录的一个数据项存入文件
(2)利用事件过程 Form_Load来进行文件处理例 8.9 建立职工工资随机文件
Private Sub Form_Load()
Dim sal As salary
Dim no As String * 3,recno As Integer
Open "Data2.dat" For Random As #1 Len = Len(sal)
For i = 1 To 5
s$ = "输入第 " + Str(i) + "个职工的 "
no = InputBox(s$ + "编号 ")
sal.name = InputBox(s$ + "姓名 ")
sal.salary = Val(InputBox(s$ + "工资 "))
recno = Val(no) '记录号
Put #1,recno,sal '存入记录
Next i
Close #1
End
End Sub
(1)创建应用程序的用户界面
(2)设置对象属性例 8.10 对职工工资信息进行查询、增、改、除等操作
(3)编写程序代码
① 在标准模块 Module1中定义记录类型和建立一个通用过程
Type salary
name As String * 8
salary As Long
End Type
Public sal As salary,recno As Integer 'recno表示记录号
'检查编号的通用过程
Function Cheno(no As String) As Boolean
recno = Val(no)
If recno < 0 Or recno > 999 Then
MsgBox "输入的职工号超出范围 ",0,"检查编号 "
Cheno = True
Else
Cheno = False
End If
End Function
② 利用事件过程 Form_Load()来打开文件和显示第一个记录
Private Sub Form_Load()
Open "Data1.dat" For Random As #1 Len = Len(sal)
Get #1,1,sal
Text1.Text = Format(1,"000")
Text2.Text = sal.name
Text3.Text = sal.salary
End Sub
③ 编写“查询”按钮的 Click事件过程
Private Sub Command1_Click()
If Cheno(Text1.Text) Then Exit Sub
If recno > LOF(1) / Len(sal) Then
MsgBox "无此记录 "
Exit Sub
End If
Get #1,recno,sal
Text2.Text = sal.name
Text3.Text = Str(sal.salary)
Text1.SetFocus '设置焦点
End Sub
④ 编写“增加”按钮的 Click事件过程
Private Sub Command2_Click()
If Cheno(Text1.Text) Then Exit Sub
sal.name = Text2.Text
sal.salary = Val(Text3.Text)
Put #1,recno,sal
Text1.SetFocus
End Sub
⑤ 编写“清除”按钮的 Click事件过程
Private Sub Command3_Click()
If Cheno(Text1.Text) Then Exit Sub
If recno > LOF(1) / Len(sal) Then
MsgBox "无此记录 "
Exit Sub
End If
sal.name = "" '记录内容清空
sal.salary = 0
Text2.Text = "" '文本框清空
Text3.Text = ""
Put #1,recno,sal
Text1.SetFocus
End Sub
⑥ 编写“关闭”按钮的 Click事件过程
Private Sub Command4_Click()
Close #1
Unload Me
End Sub
可以在应用程序中很方便地对文件和文件夹进行操作
(1)建立文件夹语句 (MrDir),MkDir ［路径］文件夹名示例,MkDir "D:\VB\Temp"
(2)改变当前文件夹语句 (ChDir),ChDir 路径示例,ChDir "D:\VB\Dat"
(3)删除文件夹语句 (RmDir),RmDir ［路径］文件夹名示例,RmDir "D:\VB\Temp"
(4)删除文件语句 (Kill),Kill ［路径］文件名示例,Kill "D:\VB\datal.dat"
Kill "D:\VB\dat\*.*"
8.4 文件基本操作
(5)拷贝文件语句 (FileCopy)：
FileCopy [路径 1] 源文件 [,[路径 2] 目标文件 ]
示例,FileCopy "C:\aaa.txt","D:\Temp\bbb.txt"
(6)文件的改名和移动：
Name 原名 As 新名改名示例,Name "C:\aaa.txt" As "C:\ccc.txt"
移动示例,Name "C:\Aaa.txt" As "C:\Tmp\Aaa.txt"
在“我的文档” (C:＼ My Documents)文件夹下创建一个新文件夹,mydir”，然后复制文件,C:＼ My Documents＼
cj2.txt”到新文件夹下，复制生成的文件名称由用户指定
Private Sub Form_Load()
Show
Print "正在进行文件操作 "
MkDir "c:\my documents\mydir"
fname = InputBox("请输入新文件名 ","更改文件名 ")
fname = "c:\my documents\mydir\" + fname + ".txt"
FileCopy "c:\my documents\cj2.txt",fname
Print "已完成要求的操作 "
End Sub
例 8.11 文件操作示例
(7)调用应用程序格式,Shell(命令字符串 [,窗口类型 ])
功能：调用指定应用程序示例：
x = Shell("C:\Windows\Explorer.exe",1)
执行,C:\Windows” 文件夹下的应用程序 Explorer.exe,并显示该程序窗口 (例 8.12)
FSO (File System Object，文件系统对象方法 )
FSO采用面向对象的编程方法，提供了一整套对文件系统进行管理和操作的属性、方法和事件 。可以实现文件夹的创建、更名、移动和删除等操作，能够检测文件夹是否存在，
可以创建文本文件，还可以获得驱动器、文件夹及文件的许多信息但不支持二进制文件和随机文件的创建和操作将逐渐淘汰传统的文件访问机制 (即用 Open等 I/O语句及函数来实现对文件进行操作 )
8.5 文件系统对象 (FSO)