VB教学课件第2章【医药版】.ppt

VB教学课件第2章【医药版】.ppt

《VB教学课件第2章【医药版】.ppt》由会员分享，可在线阅读，更多相关《VB教学课件第2章【医药版】.ppt（37页珍藏版）》请在冰点文库上搜索。

问题回顾,第一章内容回顾,1.VB的界面构成2.窗体的基本属性3.程序设计的基本步骤4.简单的程序设计实例问题：

程序运行的结果如何向用户报告？

用Print方法在窗体、图片框上或通过打印机在纸张上打印出来通过Label的Caption属性、TextBox的Text属性等显示出来写入到文件，在磁盘介质上保存下来写入数据库，将海量数据保存下来,第二章文件,高等医药院校药学类第三轮规划教材计算机程序设计基础,目录,第三节读写随机文件（不讲）,第四节二进制文件（不讲）,第五节文件处理函数与语句,第六节综合举例,重点：

顺序文件的读取写入操作,文件的引入,问题：

数据的处理包括数据的输入、加工处理、结果的输出，之前的数据处理有如下特点：

1）数据要么由程序员编程时在程序中设定-固定数据数据要么在程序运行时由用户输入-变化的数据但每次运行时都要重新输入2）程序处理的结果均输出到显示屏，无法实现永久性的保存以便日后使用。

解决以上问题的方法是使用文件，将有用的数据永久性的保存在外存介质上。

文件的引入,把大量的经常需要用到的数据保存在文件中，用到的时候从文件中读，运行处理完之后再把结果写到文件中。

2.1文件系统控件与数据文件定义,2.1.1文件系统控件2.1.2数据文件的结构2.1.3数据文件的性质和分类2.1.4数据文件的访问,按照数据性质分为：

.frm、.vbp、.bas、.exe等,.txt、.dat、.doc等,字节是基本的数据存储单位,2.1.2数据文件的结构,每一条记录都有一个记录号,文件的结构：

记录是文件的基本组成单位,

（1）一条记录可以由一个或者多个字段组成，一般由多个字段组成

（2）每个字段占用若干个字节,根据访问模式分为：

2.1.3数据文件的性质和分类,按照数据的存取方式和结构分：

顺序文件、随机存取文件按照数据的编码方式分：

ASCII文件、二进制文件,

（1）顺序文件记录可长可短；换行符、英文逗号、空格都可以作为记录间的分割符。

按顺序依次把记录写入文件；按顺序依次把记录读出来。

一般用来存储一些不经常修改的数据。

也是文本文件：

可以用文本编辑软件打开或者编辑等。

（2）随机文件记录长度相同；例如学生成绩表这样的文件；随机文件可以直接访问文件中的任意一个记录。

（3）二进制文件存放的是数据的二进制（可认为记录长度为1）。

2.1.3数据文件的性质和分类,首先打开或建立（外存）文件。

将文件中的数据读到（内存）变量中。

使用和处理（内存）变量中的数据。

将（内存）变量中的数据写到（外存）文件中。

最后关闭（外存）文件。

2.1.4数据文件的访问,数据文件不能直接执行，通常通过程序来使用（读取或者写入）它。

打开文件,读出或写入,关闭文件,2.2顺序文件的打开、读写和关闭,2.2.1顺序文件的打开与关闭2.2.2顺序文件的读取操作2.2.3顺序文件的写入操作2.2.4顺序文件应用举例,顺序文件,2.2.1顺序文件的打开与关闭,例如：

C:

VBSCORE文件夹下有一个制药工程.txt文件，现在以读取的方式打开它，然后关闭。

打开文件：

OpenFor模式AsLen=记录长度,关闭文件：

Close,.,Open“C:

VBSCORE制药工程.txtForInputAS#1Close#1,Close#1,#3一次关闭多个文件Close将所有打开的文件全部关闭,2.2.3顺序文件的写入操作,格式1:

Print#,向文件中写入数据。

注意：

为要写入文件中的数据，多个数据之间用“；”或“，”间隔。

格式2:

Write#,向文件中写入数据。

首先以Output或者Append方式打开（路径必须存在，文件不存在时自动创建从开头写入，存在时根据打开模式写入），然后使用写语句将数据写入文件中。

例如：

Open“C:

VBtest.txt”ForOutput（或者Append）AS#1,Print#与Write#区别：

实例1.Write#中各个数据项之间不管用“，”还是“；”间隔，都以紧凑的格式存放，各项之间会自动用逗号作为分界符分割开。

2.Write#会输出字符串上的双引号，日期和布尔类型添加#号。

3.Print#一般与LineInput#搭配使用；Write#一般与Input#搭配使用。

2.2.3顺序文件的写入操作,方法1:

把整个文本框的内容一次性地写入文件。

Open“c:

VBtest.txtForOutputAs#1Print#1,Text1.TextClose#1,应用实例：

把文本框中输入的内容以文件形式保存起来假定文本框的名称为Text1，文件名为test.txt。

方法2:

把整个文本框的内容一个字符一个字符地写入文件。

Open“c:

VBtest.txtForOutputAs#1Fori=1ToLen（Text1.Text）Print#1,Mid（Text1.Text,i,1）;NextiClose#1,2.2.2顺序文件的读取操作,字符串变量=Input$（读取字符数,#文件号）随意读取几个字符Input#,.把读出的每个数据项分别存放到所对应的变量中。

变量与数据项的类型要一一对应。

LineInput#,以行来读取数据，并存放在变量中,主要用来读取文本文件。

首先以Input方式打开（要打开的文件必须存在），然后使用读语句或者函数将数据读到内存变量中。

例如：

Open“C:

VBtest.txtForInputAS#1,语句没有返回值，一个语句占一行函数通常情况下都有返回值对于有返回值的函数使用格式变量（或者对象的属性）=函数名（参数）前后数据类型要一致,涉及的函数（判断一个文件读到什么时候停止）LOF（文件号）：

返回文件的长度（总字节数=英文字符数）EOF（文件号）：

返回读写位置。

指针在文件尾时，EOF函数为True，否则为False。

2.2.3顺序文件的读取操作,方法1:

一行一行读。

DimInputDataasStringText1.TextOpenc:

tempoutfile.txtForInputAs#1DoWhileNotEOF

（1）LineInput#1,InputDataText1.TextText1.Text&InputData&vbCrLfLoopClose#1,应用实例：

读文本文件到文本框。

假定文本框名称为Text1，文件名为outfile.txt。

方法3：

一个个字符读DimInputDataasString*1Text1.TextOpenc:

tempoutfile.txtForInputAs#1DoWhileNotEOF

（1）InputData=Input$（1,#1）Text1.TextText1.Text+InputDataLoopClose#1,方法2：

一次性读出Text1.TextOpenc:

tempoutfile.txtForInputAs#1Text1.Text=Input$（LOF

（1）,#1）Close#1说明：

该方法只能读取只含有英文字符的文件，若含有中文字符，因为每个字符占2个字节，因此将造成个数错误。

2.2.3顺序文件的读取操作,2.2.4顺序文件应用举例1,【例】分别使用不同写入格式的Write#语句和Print#语句向顺序文件C:

temptest.txt中写入数据。

然后分别使用Input#语句、lineinput#语句对test.txt进行读操作。

（注意，必须保证C:

temp文件夹的存在）,顺序文件练习例2-2下面程序的运行结果是什么？

PrivateSubCommand1_Click（）OpenC:

temptest.txtForOutputAs#1Print#1,VisualBasic6.0,666.88,Date,200100Write#1,VisualBasic6.0,666.88,Date,200100Print#1,VisualBasic6.0;666.88;Date;200100Write#1,VisualBasic6.0;666.88;Date;200100Close#1EndSub,第二节顺序文件,顺序文件练习例2-3通过下面程序读取上题生成的文件，运行结果是什么？

PrivateSubCommand1_Click（）Dimstr1AsString:

Dimstr2AsStringDimnum1AsSingle:

Dimdnum1AsDateDimblnum1AsBooleanOpenC:

temptest.txtForInputAs#1LineInput#1,str1Printstr1Input#1,str2,num1,dnum1,blnum1Printstr2：

Printnum1：

Printdnum1：

Printblnum1Close#1EndSub,第二节顺序文件,2.5文件处理函数与语句,文件处理函数和语句EOF（文件号）函数说明：

判断文件指针目前是否处于指定文件的末尾。

是返回True，否返回False。

LOF（文件号）函数说明：

LOF（）函数将返回文件的字节数。

例如，LOF

（1）返回#1文件的长度，如果返回0，则表示文件空。

（总字节数=英文字符数）FileLen（文件名）函数返回未打开文件用字节表示的长度（总字节数=英文字符数）FreeFile函数说明：

FreeFile或FreeFile（）或FreeFile（0）返回1255间未使用的文件号；FreeFile

（1）返回256511之间未使用的文件号。

2.5文件处理函数与语句,ChDrive驱动器号语句说明：

将指定驱动器号修改为当前默认驱动器ChDir路径语句说明：

将指定路径修改为当前默认目录。

若路径中无驱动器则修改当前驱动器的默认目录；若包含驱动器则修改指定驱动器下的默认目录。

CurDir驱动器语句说明：

驱动器省略时，返回当前驱动器下的当前目录；指定驱动器时，返回指定驱动器下的当前目录。

Shell（PathName,WindowStyle）函数说明：

执行可执行文件。

PathName是包含完整路径的可执行文件名；WindowStyle是打开窗体时的初始运行状态。

a=Shell（“C:

WINDOWSsystem32notepad.exe”,VbNormalFocus）a=Shell（“C:

WINDOWSsystem32notepad.exed:

class.txt”,VbNormalFocus）,Q&A,问：

如何从已存放于磁盘上的顺序文件NM1.txt中读取数据,经过处理后存入新的顺序文件NM2.txt中？

答：

参考程序如下Open“NM1.txt”ForInputAs#1Open“NM2.txt”ForOutputAs#2读入数据（到内存）处理数据输出数据（到文件）Close#1,#2,2.2.4顺序文件应用举例2,问：

如何把一个文本框中的内容以文件形式保存在当前文件夹下的某个文件？

代码如下：

OpenApp.Path+“”+“Test.dat”ForOutputAs#1Print#1,Text1.TextClose#1,注意：

对于当前文件夹下的文件，带有完整路径的文件名当中路径部分可以通过App.Path获得，不是当前文件下的文件则就要把完整路径的文件名完整写下来。

2.6综合举例,设计一个简易的文本编辑器，它具有打开文件、对打开的文本文件进行编辑和保存文本文件的功能。

本程序使用顺序文件，打开指定文件，将文件的内容读入文本框中进行编辑，可再将文本框中的内容写入指定文件中。

通用对话框控件,简化版文本编辑器.vbp,复杂版文本编辑器.vbp,2.1文本系统控件引导用户查找/定位磁盘文件的向导,2.1.1文件系统控件,驱动器列表框默认名称：

drive1用于列出驱动器（分区）,目录列表框默认名称：

dir1用于列出所选目录下的子文件夹,文件列表框默认名称：

file1用于列出所选目录下指定类型的所有文件,驱动器列表框（DriveListBox）用于列出系统中包括网络共享的驱动器,该控件属于特殊的下拉列表框（只能选）;重要属性:

Drive设置或者获取驱动器重要事件:

Change,Change事件：

重新设置Drive属性引发Change事件常用代码：

PrivateSubDrive1_Change（）Dir1.Path=Drive1.DriveEndSub,文件系统控件（4-1）,目录列表框（DirListBox）用于列出某驱动器下的目录结构,属于特殊的列表框;重要属性:

Path列出path路径下的文件夹重要事件：

Change,Change事件：

重新设置Path属性引发Change事件常用代码：

PrivateSubDir1_Change（）File1.Path=Dir1.PathEndSub,文件系统控件（4-2）,文件列表框（FileListBox）用于列出某目录下指定类型的文件,属于特殊的列表框;重要属性:

Path显示该路径（目录）下的文件Pattern指定显示文件类型例如：

File1.Pattern=*.frm，显示*.frm文件。

同时显示多个文件类型用分号；分界。

例如：

*.frm;*.vbpFileName文件名（不含路径）重要事件：

ClickDblClick,文件系统控件（4-3）,若想得到包含完整路径的文件名，需要利用文件列表框path属性。

文件系统控件（4-3）,如何得到包含完整路径的文件名？

（假如文件列表框叫做File1）,分两种情况：

（1）选中了某个文件夹下的文件File1.Path=“c:

VB”

（2）选中了某个驱动器下的文件File1.Path=“c:

”,fn=File1.Path&“”&File1.FileName对么？

若想在这两种情况下，均可获得包含完整路径的文件名，语句如下：

DimselFileAsStringIfRight（File1.Path,1）=“”Then选中的是某个驱动器下的文件selFile=File1.Path&File1.FileNameElseselFile=File1.Path&“”&File1.FileName选中的是某个文件夹下的文件EndIf,4）Click、DblClick事件：

单击时一般表示选中某个文件，输出该文件名的方法：

SubFile1_Click（）PrintselFileEndSub其中：

selFile是前面得到的包含完整路径的文件名双击某个文件一般表示执行该文件，执行某个文件的方法：

P32对于可执行程序文件（*.exe）：

SubFile1_DblClick（）i=Shell（selFile,1）执行可执行程序EndSub对于普通文件（*.txt、*.jpg等等）：

SubFile1_DblClick（）i=Shell（可以打开该类型的程序+selFile,1）打开普通文件EndSub,文件系统控件（4-3）,这三个文件系统控件一般要协同工作。

有的时候还会加入一个下拉列表框用于提供用户选择某种类型的文件。

【例2-1】模拟Windows资源管理器，在窗体中允许用户从某一驱动器的各个目录中查找一个可执行文件或者文本文件并运行。

文件系统控件（4-4）,2.1文本系统控件,代码总结,SubDrive1_Change（）dir1.Path=Drive1.DriveEndSub,Subdir1_Change（）File1.Path=dir1.PathEndSub,PrivateSubCommand1_Click（）IfText1.TextThenDimKuoZhanMingAsStringKuoZhanMing=LCase（Right（Text1.Text,3）IfKuoZhanMing=exeTheni=Shell（Text1.Text,vbNormalFocus）ElseIfKuoZhanMing=txtTheni=Shell（notepad.exe&Text1.Text,vbNormalFocus）ElseMsgBox请选择可执行文件或文本文件！

EndIfElseMsgBox请先选择文件！

EndIfEndSub,PrivateSubFile1_Click（）IfRight（File1.Path,1）=ThenText1.Text=File1.Path&File1.FileNameElseText1.Text=File1.Path&File1.FileNameEndIfEndSub,文件系统控件综合练习.vbp,实际上要找到某个目录下的文件可以使用一个控件即可实现,文件系统控件（4-4）,CommanDialog控件简单介绍P213,这个控件不是标准的控件需要手动的添加通用对话框提供了六种文件对话框：

打开、另存为、字体、颜色、打印机、帮助,“打开”文件对话框：

CommonDialog1.ShowOpen重要属性：

（1）FileName返回“打开”对话框中选定的文件名（带有完整路径）

（1）Filter设置“打开”对话框中“文件类型”处提供的文件类型过滤器CommonDialog1.Filter=“文件类型描述|*.xxx”,“另存为”文件对话框：

CommonDialog1.ShowSave,2.7本章小结,本章重点希望大家掌握两点：

1、数据文件的基本操作步骤，打开文件以后，进行相应操作，最后关闭文件；2、输出到屏幕窗体和输出到文件的基本方法，注意掌握print和print#的区别。

本章完,Endofthechapter,沈阳药科大学计算机教研室,