《Visual Basic程序设计教程 华东交通大学教材 专著 基金资助项目 教学课件 PPT 作者 熊李艳 周美玲 第10章 文件》由会员分享，可在线阅读，更多相关《Visual Basic程序设计教程 华东交通大学教材 专著 基金资助项目 教学课件 PPT 作者 熊李艳 周美玲 第10章 文件（45页珍藏版）》请在金锄头文库上搜索。
1、学习导读,在实际应用中，经常涉及到需要重复使用的大量数据，解决的方法是把数据以文件的形式存储到磁盘上。需要用数据时, 从文件中读写。这样,有利于长期保存数据及数据共享。,第十章 文件,10.1 文件的概念及分类 10.2 顺序文件 10.3 随机文件 (难点:记录的操作) 10.4 常用的文件操作语句和函数 10.5 文件系统控件,10.1文件的概念及分类,什么是文件?,是存储在外部介质(如磁盘)上数据的集合。,如：Word文档；Excel表格；文档中插入的各种图片；多媒体计算机播放的歌曲等。,每行信息均为一条记录。 VB的文件是由记录组成。 记录由字段组成;字段由字符组成。,VB的文件结构-
2、记录组成,VB的文件类型,分为:顺序文件、随机文件和二进制文件,按存取方式划分,VB的操作步骤,在程序中对文件的操作，通常按3个步骤进行：, 属于纯文本文件;, 每行的记录长度不固定;每个字段只能是基本数据类型; 查找数据必须按记录顺序进行,不能随机访问数据;, 不能同时进行读写操作。,特点,10.2 顺序文件的特点及操作,aa.Dat 文本文件, 顺序文件的打开,格式: Open FOR AS #,文件名 带路径,模式,文件号 1-511, Input以读的方式打开 Output以写的方式打开 Append-以添加的方式打开,(1) 在C盘Data文件夹下建立一个名为stud.dat的文件,
3、例如,Open “c:Datastud.dat“ For Output As #1,(3) 打开当前盘当前文件夹下的salary.dat文件，从中读取数据,Open “salary.dat“ For Input As #8,(2) 打开C盘Data文件夹下名为stud.dat的文件，以便在文件末尾添加数据,Open “c:Datastud.dat“ For Append As 2,写方式-新建,写方式-追加,读方式, 顺序文件的写操作,将内存中的数据 保存到指定路径 下的文件中,格式一: Write #,Write #1,“001“,“张三“ ,87,92 Write #1, Write #1
4、,“002“,“李四“,76,89 Write #1,“003“,“王五“,93,86,紧凑格式,Open “c:stud.dat“ For Output As #1,Open “c:stud.dat“ For Output As #1,格式二: print #,print #1,“001“,“张三“ ,87,92 print #1, print #1,“002“,“李四“,76,89 print #1,“003“,“王五“,93,86,(1)分区格式,print #1,“001”;“张三“ ;87;92 print #1, print #1,“002”;“李四”;76,89 print #1
5、,“003”;“王五”;93;86,(2) 紧凑格式,程序分析-比较两种写语句,有什么区别?,Private Sub Form_Click() Dim Str $, Anum % Open “D:Myfile.dat“ For Output As 1 Str = “ABCDEFG“ Anum = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub, 顺序文件的读操作,从指定的文件 中读出数据到内存,Open “c:stud.dat“ For Input As #1,例题-通过3种方式读入内容到文本框显示,格式一: Inp
6、ut #,Input #1, data 逐个读,格式二: Line Input #,Line Input #1, data 逐行读,格式三:Input$(，#),Input (LOF(1), 1) 指定数目读,假定文本框名为txtTest，文件名为Myfile.TXT。,方法1：一行一行读 txtTest.Text “ Open “myfile.TXT“ For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text txtTest.Text + InputData+vbCrLf Loop Close #1,回
7、车换行,方法2：一次性读 Open “myfile.TXT“ For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 Open “myfile.TXT“ For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text txtTest.Text + InputData Loop Close #1, 文件的关闭,完成文件操作后，要关闭打开的文件。 Close , 关闭文件号为1的文件 Close
8、 #1, 关闭所有打开的文件 Close,10.3 随机文件的操作,每行的记录长度 必须固定,特点, 不能用字处理软件编辑/查看;, 查找数据可按记录的顺序任意进行;, 可同时进行读写操作;,每行的记录都有 对应的记录编号, 知识点 什么情况下使用自定义数据类型? 如何建立自定义数据类型？ 自定义类型的变量的声明； 自定义类型的变量的使用？,自定义数据类型,自定义数据类型的定义,一般形式： Type 自定义类型名 元素名1 (下标) as 类型名1 元素名2 (下标) as 类型名2 元素名n (下标) as 类型名n End Type,常用于数据库 中多记录的数据,标准数据类型,元素可为简单
9、变量或数组,定义书写: (1)在标准模块中, 默认为public。 (2)若在窗体模块中定义,必须是private。,记录类型,字符串类型必须是定长,数据类型为自定义类型的变量声明和使用,声明形式： Dim 变量名 As 自定义数据类型 例: Dim Student as Studtype Dim s (1 To 100) As StudType,使用形式： 变量名.自定义数据类型中的元素名 例: Student.name,Student.mark(4),自定义数据类型的应用,例：自定义一个职工类型,包含职工号、姓名、工资。 声明一个职工类型的动态数组。,private type zgType
10、 no as integer name as string*10 pay as single End type Dim s() as zgtype,n%,在窗体模块中通用中定义记录类型,private Sub Form_Load( ) n=inputbox(“输入人数”) Redim s(1 to n) For i=1 to n With s(i) .no=inputbox(“输入职工号”) .name=inputbox(“输入职工姓名”) .pay=inputbox(“输入职工工资”) End with Next i End Sub,Private Sub Picture1_Click()
11、For i = 1 To n Picture1.Print s(i).no, s(i).name, s(i).pay Next i,随机文件的打开,格式: Open For Random As Len = ,文件名 带路径,方式,文件号 1-511,: 自定义类型变量大小，可用Len()函数获得。,记录长度, 随机文件的写操作,格式: Put #,Open “c:s1.dat” For Random As #1 Len = Len(Stud) Put #1, , x, 可省略 则写入数据的记录号为上次读/写的记录的记录号加1。, : 通常是一个自定义类型的变量，也可以是一般类型的变量。,写语句
12、,记录类型定义,随机文件打开, 随机文件的读操作,格式: Get #,Open “c:s1.dat” For Random As #1 Len = Len(Stud) get #1, n, stud,可省略 则读出数据的记录号为上次读/写的记录的记录号加1。,读语句,记录类型定义,随机文件打开,记录操作应用,【例10.6 】设计一个简单的学生成绩管理程序，使用随机文件存储学生信息。程序的运行界面下图所示，该程序具有数据添加、删除及浏览功能。,10.4 常用文件读写函数及语句, 调用执行记事本 i = Shell(“C:WINDOWSNOTEPAD.EXE“) 进入MS_DOS状态 j = Sh
13、ell(“c:“, 1),VB提供了3种直接浏览系统目录结构和文件的控件。,驱动器列表框,文件列表框,目录列表框,10.5 文件控件,驱动器列表框（DriveListBox）,目录列表框（DirListBox）,当前listindex为-1,例如：下列代码可以实现驱动器列表框Drivel与目录列表框Dirl的同步。 Private Sub Drivel_Channge() 当用户选择新的驱动器时触发 Dirl.Path=Drivel.Drive End Sub,例如：下列代码可以实现目录列表框Dirl与文件列表框Filel的同步。 Private Sub Dirl_Change() 当用户选择新的目录时触发目录列表框发生 Filel.Path=Dirl.Path End Sub,文件列表框（FileListBox）,程序分析-如何获得带全路径的文件名?,If Right(file1.path,1) =“ Then Fname$=file1.path & file1.filename Else Fname$=file1.path & “ & file1.filename End If,此条件也可改为：Len(file1.path)3,文件控件的联动应用,【例10.7 】,实验十,思考： 比较几种文件的读写异同，各有什么特点？ 内容： 实验10的实验内容、编程题及测试题,
