VB程序设计第10章文件

1、第二章 Visual Basic 界面设计主讲教师：徐州工程学院信电学院Visual Basic 程序设计 徐州工程学院第十章 文件10.1 文件的概念10.2 文件的分类10.3 文件的操作10.4 文件控件Visual Basic 程序设计 徐州工程学院10.1 文件的概念文件是存储数据的基本单位，任何对数据的访问都是通过文件进行的。通常在计算机外存储设备上存储着大量的文件，比如文本文件、位图文件、程序文件等，常将具有相互关系的一组文件放在同一个文件夹中，系统通过对文件、文件夹的管理达到管理数据信息的目的。文件：存储在外部介质上数据的集合。Visual Basic 程序设计 徐州工程学院1

2、0.2 文件的分类从不同角度对文件进行分类：n 按文件的内容分类：程序文件、数据文件程序文件：源程序代码、可执行文件数据文件:程序运行所处理的数据Visual Basic 程序设计 徐州工程学院10.2 文件的分类从不同角度对文件进行分类：n 按存储信息的形式分类：二进制文件、ASCII文件例：用二进制方式和ASCII方式保存 100二进制文件 0000 0000 0110 0100 00 H64 HASCII文件1的ASCII码值49，即31H0的ASCII码值48，即30H31 H30 H30 HVisual Basic 程序设计 徐州工程学院10.2 文件的分类从不同角度对文件进行分类：

3、n 按文件的内容分类：程序文件、数据文件n 按存储信息的形式分类：二进制文件、ASCII文件n 按访问方式分类：顺序文件、随机文件、二进制文件Visual Basic 程序设计 徐州工程学院10.2 文件的分类顺序文件：普通的文本文件，其数据是以字符（ASCII码）的形式存储的，可以用任何字处理软件（比如记事本）进行访问。记录1记录2记录N文件结束标志优点：结构简单，可以使用记事本建立和查看；缺点：查找数据必须按照顺序进行，且不能同时对文件进行读写操作。修改不方便，适合于不经常修改的文件。Visual Basic 程序设计 徐州工程学院10.2 文件的分类随机文件：以固定长度的记录为单位进行存

4、储的。随机文件由若干条记录组成，而每条记录又可以包含多个字段，每条记录包含的字段数和数据类型都是相同的。记录1学号姓名性别年龄记录2学号姓名性别年龄记录N学号姓名性别年龄优点：存取速度快，容易更新；缺点：占用空间大，设计程序较复杂，二进制方式存储，不方便查看Visual Basic 程序设计 徐州工程学院10.2 文件的分类二进制文件：字节的集合，直接把二进制码值存放在文件中。除了没有数据类型或者记录长度的含义外，它与随机文件很类似。二进制访问模式是以字节数来定位数据，在程序中可以按任何方式组织和访问数据，对文件中各字节数据直接进行存取。优点：灵活性很大；缺点：程序更复杂Visual Basi

5、c 程序设计 徐州工程学院10.3 文件的操作VB中文件的访问：在程序中对文件的操作，通常按照3个步骤进行：打开文件 读出或写入 关闭文件D:Dataa.txtD:Datab.dat外存#1 文件缓冲区文件缓冲区#2 文件缓冲区文件缓冲区内存数据内存Write # 或或Print #Put写操作Input # 或或Line Input #Get读操作操作系统完成程序控制OpenCloseVisual Basic 程序设计 徐州工程学院1、顺序文件的打开 打开文件语句 OPEN语句格式：Open 文件名 For 模式 As #文件号 作用：在内存中开辟文件缓冲区，将物理文件和逻辑文件关联例如：O

6、pen “D:DataStudent.dat” For Input As #1其中：文件名：指定要打开（或创建）的文件，可包含盘符和路径模式： Input：读操作，将文件数据从外存读入内存； Output：写操作，从文件的起始处写入数据，替代原有内容； Append：追加方式，从文件结尾处开始写入数据，并保留原有数据。文件号：一个介于1511之间的整数，又称为文件标识符或通道号，用来在文件操作中表示该文件。10.3 文件的操作Visual Basic 程序设计 徐州工程学院2、顺序文件的写操作（Write # 语句和Print # 语句）nPrint # 语句格式：Print # 文件号，输出

7、列表功能：将输出列表的内容写入指定的文件中。例如：10.3 文件的操作Open “D:/Data/Student.txt” For Output As #1Print #1,100,200Print #1, “使用Print语句写入”Close #1Visual Basic 程序设计 徐州工程学院2、顺序文件的写操作（Write # 语句和Print # 语句）nWrite # 语句格式：Write # 文件号，输出列表功能：将输出列表的内容写入指定的文件中。例如：10.3 文件的操作Open “D:/Data/Student.txt” For Output As #1Write #1,100

8、,200Write #1, “使用Write语句写入”Close #1Visual Basic 程序设计 徐州工程学院用Write # 语句和Print # 语句写入的数据文件比较10.3 文件的操作说明：nWrite：数据项之间逗号分隔，字符串用双引号括起来nPrint：无逗号分隔、双引号，按区（每区14个字符宽）分隔思考：哪种写入方式好？Visual Basic 程序设计 徐州工程学院3、顺序文件的读操作使用格式如下：nInput # 文件号，变量列表 把读出的每个数据项分别存放到所对应的变量nLine Input #文件号，字符串变量 读取一行数据到变量中，主要用来读取文本文件10.3

9、文件的操作Visual Basic 程序设计 徐州工程学院3、顺序文件的读操作nInput # 文件号，变量列表例：注意：确定读出的数据是什么类型？设置相同类型变量接收读出的数据Open D:datastudent.txt For Output As #1Write #1, 用Write # 语句写入Write #1, 001, 张三, 87, 92Write #1, 002, 李四, 88, 93Write #1, 003, 王五, 89, 94Close #1Dim no$, Name$, s1%, s2%Open D:datastudent.txt For Input As #1Do W

10、hile Not EOF(1) Input #1, no$,name$,s1%,s2% Print no,name,s1,s2LoopClose #1Visual Basic 程序设计 徐州工程学院3、顺序文件的读操作nLine Input #文件号，字符串变量Open D:datastudent.txt For Output As #1Write #1, 用Write # 语句写入Write #1, 001, 张三, 87, 92Write #1, 002, 李四, 88, 93Write #1, 003, 王五, 89, 94Close #1Open D:datastudent.txt F

11、or Input As #1Do While Not EOF(1) Line Input #1, sPrint sLoopClose #1Visual Basic 程序设计 徐州工程学院4、顺序文件的关闭nClose语句Close # 文件号 , # 文件号 例：Close #1,#2 关闭1号文件和2号文件 Close 关闭所有已打开的文件10.3 文件的操作注意：关闭文件时将内存缓冲区中的数据全部写入文件，并清除缓冲区，释放全部与被关闭文件有关的VB缓冲区和表示该文件的文件号。Visual Basic 程序设计 徐州工程学院与读文件操作有关的几个函数LOF函数格式：LOF（文件号）功能：返

12、回已打开文件的字节数注意：中文占2个ByteFileLen函数格式：FileLen（文件名）功能：返回指定文件的长度EOF函数格式：EOF（文件号）功能：测试文件指针是否到达文件末尾函数结果：文件没有到达末尾返回False，否则为True10.3 文件的操作例：s=“VB6.0程序设计”LOF(1)函数获得的文件字节数：13Len(s)字符数：9Visual Basic 程序设计 徐州工程学院综合示例：学生信息顺序文件的读写10.3 文件的操作说明：学生信息：由学号、姓名、性别、联系方式四个字段组成；添加按钮：使用write语句将输入的学生信息添加到数据文件；读取按钮：从指定文件读取学生信息，

13、并显示在picture1控件上Visual Basic 程序设计 徐州工程学院Private Sub Command1_Click()Open “d:datastudent.txt” For Append As #1Write #1, Text1.Text, Text2.Text, Combo1.Text, Text3.TextClose #1MsgBox 添加成功Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Open d:datastudent.txt For Input As #1Do W

14、hile Not EOF(1)Input #1, no, stuName, male, phonePicture1.Print no; Tab(5); stuName; Tab(12); male; Tab(16); phoneLoopClose #1End Sub添加数据读取数据Visual Basic 程序设计 徐州工程学院10.4 文件控件n 驱动器列表框：下拉列表，用来显示系统当前驱动器的名称n 目录列表框：显示当前驱动器目录结构及当前目录下的子目录n 文件列表框：当前目录下所有文件清单Visual Basic 程序设计 徐州工程学院10.4 文件控件n3种控件结合使用Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubVisual Basic 程序设计 徐州工程学院2、顺序文件的写操作例题：假定文本框的名称为Text1，文件名为Test.dat，保存