计算机VB学习第9章

1、 Visual Basic程 序 设 计山东外贸职业学院E-mail：信息管理系 柳淑花第9章 文 件 本章主要内容1、文件的打开、关闭与读写 2、顺序文件3、随机文件4、二进制文件5、文件操作函数与语句6、文件操作控件作业 本章小结 退出第9章 文 件 什么是文件？ 文件是存储在外部介质（如磁盘）上的数据的集合。以文件名进行标识。 存储在磁盘上的文件称为磁盘文件，输出到打印机上就是一个打印机文件。与计算机相连的设备称为设备文件。因此广义地说，任何输入输出设备都是文件。上一页下一页返回本章首页 文件的分类 根据不同的分类标准，文件可分为不同的类型： 根据文件的内容，文件可分为： 程序文件：可由

2、计算机直接执行的程序。 如：.exe、 .frm、 .vbp、 .vbg、 .bas 等 数据文件：用来存放普通的数据，必须由程序来存取和 管理。 根据数据的编码方式，文件可分为： ASCII文件：（文本文件）可用字处理软件建立和修改。 二进制文件：以二进制方式保存的文件。它不能用字处 理软件编辑，占空间较小。 根据数据的存取访问方式，文件可分为： 顺序文件、随机文件和二进制文件上一页下一页返回本章首页返回本章首页9.1 文件的打开、关闭与读写 为访问存放在外部介质上的数据，应先按文件名找到所指定的文件，然后再从该文件中读取数据。 文件名（文件标识符）指的是： 设备名：文件所在的路径名主文件名

3、.扩展名 即：盘号: 路径 在VB中，文件说明没有大小写之分。 如：c:windowscalc.exe文件结构： 为了有效地存取数据，数据必须以某种特殊的方式存放，这种特定的方式称为文件结构。 上一页下一页返回本章首页文件的组成： VB中文件由记录组成，记录由字段组成，字段由字符组成。 字符：是构成文件的最基本单位。 字段或域：由若干个字符组成，用来表示一项数据。 记录：就是一组有相互关系的字段。 文件：是记录的集合。 如：用户电脑购置清单编号姓名CPU内存硬盘显示器显卡光驱软驱机箱组件其它00001王伟锋P733HY256APD40GPhilips自带MGH50NEC中档无00002李伟锋P

4、800HY640APD50GPhilips自带MGH50NEC高档无上一页下一页返回本章首页返回本章首页文件操作的步骤： 在 VB中数据文件的读写按下列步骤进行：（1）打开（或建立）文件 一个文件必须先打开或建立后才能使用。（若已存在，则打开该文件；若不存在，则建立该文件）（2）进行读、写操作 在打开（或建立）的文件上执行所要求的输入输出操作。 把内存中的数据传输到相关联的外部设备（如磁盘）并作为文件存放的操作叫做写数据。 把数据文件中的数据传输到内存中的操作叫做读数据。 即：主存 外设叫做输出或写 外设 主存 叫做输入或读（3）关闭文件上一页下一页返回本章首页返回本章首页 文件的缓冲区：缓冲

5、区：是内存中供信息临时存储的一片区域。 VB对文件进行读写操作时，在内存开辟一个“文件缓冲区”，从文件中读取的内容、从内存向文件写入的内容都必须先送到缓冲区。使用“文件缓冲区”的好处是：可提高文件的读写 速度。每一个打开的文件都对应一个缓冲区，每个缓冲区有一个缓冲区号，即读写操作涉及到的文件号。上一页下一页返回本章首页9.2 顺序文件（文本文件）顺序文件中的数据是按顺序组织的文本行，每行（即一个记录）的长度可以变化，用“换行”字符作为分隔符号。在顺序文件中，只知道第一个记录的存放位置，其他的记录无从知晓。当要查找某项数据时，只能从文件的开头，一个记录一个记录的顺序查找，直到找到所需记录为止。

6、文件中的数据以ASCII码方式存储。上一页下一页返回本章首页1. 打开顺序文件 在VB中，使用Open语句打开或建立文件，为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式。 格式： Open 文件名 For Input | Output | Append As #文件号 其中： 文件名：字符串类型，指定文件的路径与文件名，可以是字符型常量、变量、表达式。 上一页下一页返回本章首页 打开方式： Input从文件读入数据（磁盘 内存） Output 把数据写到文件中（内存 磁盘， 若文件不存在，则新建；若文件已存在，则覆盖） Append追加数据到文件末尾 文件号：代表被打开文件的文件号（

7、缓冲区号）。 取值范围是：1511 之间的整数。 注意： 一个被占用的文件号不能再用于打开其他的文件。 如：打开文件d:myfile.txt Open “d:myfile.txt For Input As #1上一页下一页返回本章首页2、关闭文件 Close语句用于关闭使用Open 语句所打开的输入/输出文件。 格式： Close #文件号1 , #文件号2 说明： （1）若省略 Close关键字后的内容，则将关闭 Open 语句打开的所有活动文件。 （2）文件被关闭之后，它所占用的文件号会被释放，可供以后的OPEN 语句使用。 如： Close #1上一页下一页返回本章首页3、写顺序文件 写

8、顺序文件之前，应该使用Output 或Append 方式先打开文件，然后将常量、变量、属性、表达式写入顺序文件。 写顺序文件使用Print# 语句或Write# 语句实现: （1）Print # 语句 格式：Print #文件号, spc(n) | tab(n) 表达式表 ;|, 功能：将表达式表 中的数据写入顺序文件中。 如：open “d:myfile.txt” for append as #1 print #1 ,“ Hello”,123.45,date,time上一页下一页返回本章首页说明： A、SPC(n) 用来在输出位置插入n个空格 B、Tab(n) 用来将其后的输出项定位在第n列

9、分隔符可以是逗号或分号,打印格式分别对应标准格式或紧凑格式 标准格式输出（用“ , ”）例如: Open “Test.Dat” For Output As #10 Print #10, 1, 2, 3 Print #10, ”we”, ”study”, ”VB6.0” Close 10打印结果: 1 2 3 we study VB6.0上一页下一页返回本章首页 紧凑格式输出（用“ ; ”）例如: Open “Test.Dat” For Output As #10 Print #10, 1; 2; 3 Print #10, ”we”; ”study”; ”VB6.0” Close 10打印结果:

10、 1 2 3 westudyVB6.0上一页下一页返回本章首页C、如何将文本框的内容写入文件 如果要将文本框的内容一次性写入文件中，可以采用如下方法： Open “d:Mytext1.txt For Output As #1 Print #1,Text1.Text Close #1 如果要将文本框的内容逐字地写入文件中，可以采用如下方法： Open “d:Mytext2.txt“ For Output As #1 For i=1 to Len（Text1.Text） Print #1,Mid（Text1.Text, i, 1） Next i Close #1上一页下一页返回本章首页例 9.1

11、Print # 语句举例使用 Print # 语句将数据写入一个文件Open “d:sxw.txt For Output As #1 打开输出文件Print #1, 学生成绩表 将文本数据写入文件Print #1, 将空白行写入文件Print #1, “姓名”, “成绩”, “备注” 数据写入三个区Print #1, 王维; ; 95 以空格隔开两个字符串Print #1, 黄梅; ; 0; 下一个Print # 语句将不换行Print #1, Spc(15); “舞弊” 在字符串之前写入十五个空格Print #1, Tab（5）; 输入完毕！ 在第5列输出字符串 Close #1 Li9_1

12、.vbp上一页下一页返回本章首页（2）Write # 语句 格式：Write #文件号, spc(n) | tab(n) 表达式表 功能：将数据写入顺序文件。 Write #语句 与 Print # 语句不同： Write # 语句会在输出的数据项之间插入逗号； 若参数是字符类型，则文件中对应的输出项被加上双引号； 日期时间类型、逻辑类型参数所对应的输出项两边被加上“#”号，数值类型无特殊处理； 表达式表中的分界符; | ,作用相同。 Write # 语句在将表达式表中的最后一个字符写入文件后会插入一个新行字符，即回车换行符，(Chr(13) + Chr(10)。上一页下一页返回本章首页如:

13、Open “Test.Dat” For Output As #12 Write #12, 1, -2, 3, “ABC” Write #12 Write #12, 5, 6, 7, “DEF”, Write #12 Close 12 执行上面程序片断,写到文件“Test.Dat”中的数据是: 1,-2 ,3,“ABC” 5,6,7,“DEF” 例9.2：Write # 语句举例 Li9_2.vbp上一页下一页返回本章首页4、读顺序文件 要将顺序文件中的数据读到变量中，则必须以 Input 方式打开顺序文件。 读顺序文件可以使用以下方式：（1）Line Input # 语句 （也可用于随机文件）

14、 格式：Line Input #文件号, 字符串变量 功能：从已打开的顺序文件中读入一行（直到遇到回车符为止），并将它赋给字符串变量。（回车换行被跳过）例9.3：将文本文件中的文本读到文本框中。 界面如图： li9_3.vbp上一页下一页返回本章首页（2）Input # 语句 格式：Input #文件号, 变量列表 功能：从已打开的顺序文件中读入一项或多项数据，并将数据赋给用逗号分隔的变量列表中的变量。 说明： 读入的数据项的类型应与变量列表中的变量的类型相对应； Input # 语句在读入数据时，是按文件中的分隔符（空格、回车、换行、逗号）来区分数据项的，所以应用Input # 语句来读Wr

15、ite #语句产生的数据； 例9.4：Input # 语句举例 界面如图： li9_4.vbp上一页下一页返回本章首页（3）Input 函数格式：Input(读取的字符数, #文件号)功能：读取以 Input 方式打开的文件中的指定数目 的字符。举例见 li9_3.vbp Open d:sxw.txt For Input As #1 Do While Not EOF(1) inputdate = Input(1, #1) Text1.Text = Text1.Text + inputdate Loop Close #1 上机作业 实训十二 文件操作上一页下一页返回本章首页9.3 随机文件随机文

16、件有时又称随机存取文件或直接存取文件， 是由一组长度相等的记录组成的，一般它们以二进制形式存放，每个记录包含一个或多个字段（若只有一个字段，则可以是任何一种标准数据类型，如整数或者定长字符串；若有多个字段，则该记录对应于用户自定义类型。）对于随机文件，可以根据文件中的记录号访问任何一条记录，无须按顺序进行。在随机文件中，每个记录是等长的，记录中每个字段的长度也是固定的，且每个记录都有一个记录号，读写数据时，只需指定记录号即可，且可以同时进行读写操作，数据的存取灵活、方便、速度快，但是占用的空间大、数据组织复杂。上一页下一页返回本章首页1、随机文件的打开与关闭格式：Open 文件名 For Ra

17、ndom As #文件号 Len = 记录长度 （默认是128B）其中： 文件名：字符串类型，指定文件的路径与文件名。 For Random：指定文件是以随机方式打开（默认） 以随机方式打开的文件既可以读也可以 写，如果文件不存在。则新建文件。 记录长度：指定读写操作时一条记录的长度（字节）。如：用随机方式打开d:myfile2文件，记录长度为512字节。 Open “d:myfile2 For Random As # 1 Len = 512上一页下一页返回本章首页如：以随机方式打开D:myfile2 文件，文件中 含有用户自定义数据类型 Record 的记录。 Type Record 定义用

18、户自定义数据类型 ID As Integer Name As String * 16 End Type Dim MyRecord As Record 声明变量 Open “d:myfile For Random As # 1 Len = Len （MyRecord） 随机文件的关闭同顺序文件一样，用Close语句上一页下一页返回本章首页2、随机文件的写操作 随机文件的写操作使用Put 语句。格式：Put #文件号, 记录号, 表达式功能：将表达式的数据作为一条记录写入磁盘文件中。说明： 文件号已打开的随机文件的文件号； 记录号指定数据要写入的记录号（原记录有数据，则覆盖）；若省略，则写在上一次

19、读写记录的下一条记录。若未读写，则为第一条记录。 表达式要写入文件中的数据；上一页下一页返回本章首页3、随机文件的读操作 随机文件的读操作使用Get 语句。格式：Get #文件号, 记录号, 变量名 功能：是将一个已打开的磁盘文件的一条记录的内容读入一个变量之中。说明： 文件号指定要读取的随机文件的文件号； 记录号指定数据要读入的记录号（若省略， 为上一次读写记录的下一条记录。若未 读写，则为第一条记录）。 变量名保存读入的数据；上一页下一页返回本章首页例 9.5： 随机文件的读写举例 界面如图： li9_5.vbp上一页下一页返回本章首页9.4 二进制文件二进制文件：以二进制方式保存文件，以

20、字节数来定位数据，没有固定的格式，允许程序按所需的任何方式组织和访问数据，对文件中的各个字节数据进行存取访问和改变。二进制文件不能用普通的字处理软件进行编辑，但占用的空间较小。二进制文件的操作与随机文件类似，区别在于二进制文件的访问单位是字节，而随机文件的访问单位是记录。说明：任何类型的文件（顺序文件或随机文件）都可以使用二进制访问模式打开。二进制存取可以获取任何一个文件的原始字节。上一页下一页返回本章首页 二进制使用 GET#语句 获取数据 用 PUT#语句 写入数据二进制存取模式与随机存取模式不同之处是：二进制存取可以定位到文件中的任一字节位置，而随机存取要定位在记录的边界上；二进制存取从

21、文件中读取数据或向文件写入数据的字节长度取决于 GET#语句 或 PUT#语句中“变量”的长度，而随机存取方式读写固定个数的字节（一个记录的长度）上一页下一页返回本章首页1、二进制文件的打开与关闭格式：Open 文件名 For Binary As #文件号 说明： 文件名：字符串类型，指定文件的路径与文件名。 For Binary：指定文件是以二进制方式打开，以 二进制方式打开的文件既可以读也可以写， 如果文件不存在。则新建文件。如：以二进制方式打开文件 d:mytext1.txt。 Open d:mytext1.txt For Binary As #1 二进制文件的关闭同前上一页下一页返回本

22、章首页2、二进制文件的写操作 二进制文件的写操作使用Put 语句。格式：Put #文件号, 写位置 , 表达式功能：将表达式的内容写入文件中，一次写入的长 度等于表达式的长度。说明： 文件号已打开的二进制文件的文件号； 写位置指定数据要写入文件中的位置（从文件开头以字节为单位计算），若省略，则紧接上一次操作的位置写入。若尚未读写，则为文件头。 表达式要写入文件中的数据；上一页下一页返回本章首页3、二进制文件的读操作 二进制文件的读操作使用Get 语句。格式：Get #文件号, 读位置, 变量名 功能：是将一个已打开的二进制文件的指定位置读取长度等于变量长度的内容到变量中。读出数据后，指针移动变

23、量长度的位置。说明： 文件号指定要读取的随机文件的文件号； 读位置指定要读入的数据在文件中的位置（从文件开头以字节为单位）。若省略，则紧接上一次操作的位置开始读。若尚未读写，则从文件头开始读入。 变量名保存读入的数据；上一页下一页返回本章首页例9.6 ：二进制文件应用举例li9_6.vbp上一页下一页返回本章首页9.5 文件操作常用函数1. LOF 函数格式： LOF（文件号）功能：返回以“文件号” 所代表的文件的长度，以字节为 单位，Long 型。注意：对于尚未打开的文件，可以使用 FileLen 函数得 到其长度。例题： 在D 盘根目录下的文件 test.txt 中含有数据：“This I

24、s tests Information”，程序运行时单击“显示文件长度”命令按钮，将在窗体上显示数据28。上一页下一页返回本章首页1. LOF 函数代码如下：Private Sub Command1_Click() Dim FileLength Open “d:test.txt“ For Input As #1 打开文件 FileLength = LOF(1) 取得文件长度。 Close #1 关闭文件 Print FileLengthEnd Sub上一页下一页返回本章首页2. FileLen 函数格式：FileLen（文件名）功能：返回以“文件名” （字符串类型）所代表的 文件的长度（以字节

25、为单位），Long 型。说明：文件不要求打开。若文件已打开，则返回 打开前的长度。 如：测试未打开文件“d:myfile.txt”文件的大小 Dim mysize as Long mysize=FileLen(“d:myfile.txt”)上一页下一页返回本章首页3. EOF函数格式：EOF( #文件号 )功能：测试当前读写位置是否位于“文件号”所代 表文件的末尾，返回值为Boolean 型。EOF函数的一般用法为：Do While Not EOF(文件号) 读/写操作Loop上一页下一页返回本章首页4. LOC函数格式：LOC( 文件号 )功能：返回当前读写的位置，类型为Long 型。说明：

26、 对于随机文件，返回最近读写的记录号； 对于二进制文件，返回最近读写的字节的位置。 上一页下一页返回本章首页5. Input 函数格式： Input(字节数，#文件号)功能：从“文件号”指定文件的当前位置读入指定 数量的字符，返回值为字符串。说明： 本函数只适合以Print 语句写的文本文件。上一页下一页返回本章首页6. Seek 函数格式： Seek(#文件号)功能：返回“文件号”指定文件的当前读写位置 （指针的位置），返回值为长整型。说明： 对于随机文件，返回值为记录号； 对于顺序文件或二进制文件，返回值为从文件开头算起的以字节为单位的位置。上一页下一页返回本章首页7. FreeFile

27、函数格式：FreeFile (范围)功能：返回一个尚未被占用的文件号。说明： 为0（或省略）则返回1255之间 未使用的文件号； 为1，则返回256511之间未使用的 文件号。上一页下一页返回本章首页8. Dir 函数格式：Dir (pathname ,Attribtes)功能：测试指定路径下是否有指定的文件和文件夹 （可以使用通配符“?” 和“*”）。说明： Dir函数的返回值时字符串类型； 若未使用通配符，则返回文件（夹）名或“”。 若使用了通配符，则返回第一个符合条件的文件（夹）名。若下一次使用不带参数的Dir 函数，则返回第二个符合条件的文件（夹）名 如：str1=Dir(“c:win

28、dowsnotepad.exe”)上一页下一页返回本章首页9. Shell 函数格式：Shell (pathname ,windowstyle)功能：调用在Dos下或Windows下运行的应用程序。说明： pathname可执行文件名； windowstyle应用程序运行时的初始窗口状态。0-窗口被隐藏 1-原来大小 2-窗口最小化（默认状态） 3-窗口最大化如： shell(“c:windowsnotepad.exe d:mytext1.txt”,1)上一页下一页返回本章首页10. Kill 语句格式：Kill 文件名 功能：从磁盘中删除指定文件。例如： Private Sub Comman

29、d1_Click() h = MsgBox(“确实要删除文件吗?”, vbYesNo, 请确认) If h = vbYes Then Kill “d:test.txt End Sub上一页下一页返回本章首页11. FileCopy 语句格式：FileCopy 源文件，目标文件功能：复制一个文件。说明：FileCopy语句不能复制一个已打开的文件。例如：将含有数据的文件D:盘根目录下test.txt文件中的 内容复制到D盘根目录下的oldtest.txt文件中. Dim SourceFile, DestinationFile SourceFile = D:test.txt 指定源文件名 Dest

30、inationFile = D:oldtest.txt 指定目的文件名 FileCopy SourceFile， DestinationFile 复制文件上一页下一页返回本章首页12. Name 语句格式：Name 旧文件名 As 新文件名功能：重新命名一个文件、目录、或文件夹。说明：Name语句不能创建新文件、目录或文件夹。 如果新文件名所指定的路径存在且与旧文件名指定的 路径不同，则Name语句将文件移动到新的目录下， 但不能将文件移动到不同的驱动器中。例如： Name “d:test.txt As “d:test1.txt Name “d:test1.txt As “d:My Docum

31、ents test2.txt 移动并更名上一页下一页返回本章首页9.5 文件操作控件 文件操作的控件有三种： 驱动器列表框（DriveListBox） 控件名Drive1, Drive2 目录列表框（DirListBox） 控件名Dir1, Dir2 文件列表框（FileListBox） 控件名File1, File2上一页下一页返回本章首页1. 驱动器列表框（DriveListBox） 常用属性Drive属性 Drive属性是在程序运行中所使用的属性，用于返回用户在驱动器列表框中选取的驱动器号。在应用程序中，可以通过赋值语句改变其属性值，从而指定出现在列表框顶端的驱动器。 如：Drive1.

32、Drive=“C:” 只第一个字符有意义 常用事件Change事件 Change事件是驱动器列表框中最常用的事件，当所选驱动器发生改变时触发。上一页下一页返回本章首页2.目录列表框（DirListBox） 显示用户系统的当前驱动器的目录结构，并突出显示当前目录。 常用属性： （1）Path属性当前目录 用来设置和返回目录列表框中的当前目录（当前目录是目录列表框中显示的打开文件夹图标的最后一个条目）。此属性只能在程序代码中设置，即它是运行时属性，不能在属性窗口中设置。 如：Dir1.Path=路径（当前目录）上一页下一页返回本章首页（2）ListIndex属性选择条目的序号 可用于组合框、驱动器

33、列表框、目录列表框和文件列表框，用来设置或返回当前控件上所选择的条目的序号。该属性只能在程序代码中使用。 例如：Dir1.ListIndex=2 （3）ListCount属性当前目录下的子目录数 可用于组合框、驱动器列表框、目录列表框和文件列表框。它返回控件内所列项目的总数。该属性只能在程序代码中使用。常用事件Change事件（Path改变时触发）上一页下一页返回本章首页3. 文件列表框（FileListBox） 在运行时列出由Path属性指定的目录中的文件常用属性： List、ListCount、ListIndex、MultiSelect、Selected属性同列表框。（1）Path属性指定

34、所显示文件的路径 Path属性：用来设置和返回文件列表框中所显示文件的路径。此属性只能在程序代码中设置，即它是运行时属性，不能在属性窗口中设置。 例如：File1.Path=路径 File1.Path=Dir1.Path 上一页下一页返回本章首页（2）FileName属性所选中的文件名 用来设置和返回文件列表框中所选中的文件名称。“文件名称”可以带有路径，文件名中也可以包含通配符。该属性是运行时属性，只能在程序代码中设置。多选时为“”。 格式：窗体名.FileName=文件名称（3） Pattern属性设置要显示文件的类型 用来设置在程序运行时文件列表框要显示的文件的类型。该属性可以在设计阶段

35、用属性窗口设置，也可以通过程序代码设置。上一页下一页返回本章首页常用事件 PathChange事件： 当文件列表框的Path属性改变时，就会产生PathChange事件。PatternChange事件： 当文件列表框的Pattern属性改变时，就会产生PatternChange事件文件属性: 可以使用文件属性（Archive、Normal、System、Hidden和Readonly）来指定在文件列表框中显示哪一类文件使用。上一页下一页返回本章首页文件操作控件总结属性适用控件作用举例Drive驱动器列表框保存当前选定的驱动器名Drive1. Drive = D Path目录和文件列表框保存当前

36、路径Dir1.Path=D:VB6FileName文件列表框保存选定的文件名list1.AddItem File1.FileNamePattern文件列表框决定显示的文件类型File1.Pattern=*.frm重要属性上一页下一页返回本章首页说明： FileName和Pattern属性可以在设计时进行设置。 Drive和Path属性只能在运行时加以引用和设置，在设计时则不能进行设置。 在运行时Path 属性的改变将触发 Change 事件。Pattern 属性的值的改变将触发 PatternChange 事件。 引用FileName时只能返回选定的文件名，只有加上Path属性才能得到完整的文

37、件路径。上一页下一页返回本章首页事件适用控件说明Chang驱动器和目录列表框 当选择一个新的驱动器或通过代码改变 Drive 属性的设置时发生该事件，或者在双击一个新的目录或通过代码改变 Path 属性的设置时发生该事件PathChang文件列表框 当路径被代码中 FileName 或 Path 属性的设置所改变时，此事件发生PatternChang文件列表框 当文件的列表样式，如：*.*，被代码中对 FileName 或 Path 属性的设置所改变时，此事件发生。Click目录和文件列表框 单击一个鼠标按钮时发生。它也会发生在一个控件的值改变时Dblclick文件列表框 用鼠标左键双击控件时发生重要事件上一页下一页返回本章首页返回本章首页 例9.7：文件操作控件应用举例 界面如图： li9_7.vbp 上一页下一页返回本章首页要求： 在Form1窗体上绘制一个图片框控件、三个文件系统控件：驱动器列表框控件Dr