Visual Basic(第八章).doc

第8章 文 件8.1 文件的概念计算机中最基本的操作就是运行程序和处理数据。程序和数据都是以文件的形式存放在外部存储介质的，如磁盘、磁带、光盘等。本章介绍的内容，主要针对数据文件。8.1.1 文件的分类一、根据文件性质分类分为两大类：程序文件和数据文件。二、根据存取方式分类分为两大类：顺序文件和随机文件。顺序文件只能从头到尾读/写文件中的数据。随机文件按记录号访问文件，可随机存取任意指定的记录。三、根据编码方式分类分为两大类：ASCII文件和二进制文件。ASCII文件字符和数字用其对应的ASCII码存储，汉字存储则使用双字节的汉字字符集编码。二进制文件以二进制方式保存信息，该类文件不具有可读性，不能用文本编辑器建立或修改。顺序文件以ASCII方式保存数据，随机文件以二进制形式保存数据。8.1.2 数据文件的读写1文件操作的两个基本概念读文件从磁盘文件向计算机的内存传送数据，称为“输入”。写文件从计算机的内存向磁盘文件传送数据，称为“输出”。2数据文件的信息组织形式数据文件记录字段字符或数字。3记录指针在一个打开的数据文件中，记录指针用来标识下一次将要读写的数据位置，也称为“文件指针”。8.2 文件处理的基本步骤数据文件的处理，一般按以下3个步骤进行：1打开（或建立）文件：一个数据文件，首先必须打开才能使用。2读写文件：数据文件处理的核心部分。3关闭文件：对于一个不再使用的文件，应执行关闭命令。8.3 顺序文件8.3.1 顺序文件的建立、打开和关闭1Open语句建立或打开文件格式：Open文件名For读写方式As #文件号（1）文件名（字符串表达式）：需要打开或建立的文件名，可包括驱动器和路径描述。（2）读写方式：指定文件的存取方式：l Output顺序输出方式。打开或建立一个顺序文件，并允许向文件输出数据。l Input顺序输入方式。打开一个顺序文件，指定从文件中读入数据。l Append顺序输出（追加）方式。例如：Open d:BasicOffice.dat For Input As #1Open Score.dat For Output As #2Open Score.dat For Append As #32Close语句关闭文件语法：Close #文件号 , #文件号说明：若省略文件号，则关闭Open语句打开的所有文件。例如：Close #1,#3 关闭#1，#3文件Close关闭所有打开的文件8.3.2 顺序文件的输出Visual Basic提供了Write # 和Print # 两条语句，用来向文件写入数据。一、使用Write # 语句Write # 语句将输出列表指定的数据，顺序写入文件号所代表的文件中，格式为：Write #文件号, 输出列表其中的参数：输出列表：指定写入文件的表达式列表，若有多个表达式，表达式之间用逗号隔开，也可用空格或分号分隔。如果省略输出列表，并在文件号后面加上一个逗号，则输出一个空白行到文件。用Write # 语句写入的顺序文件具有如下的格式：（1）字符型数据，用双引号（）括起来。（2）逻辑型数据，保存为 #TRUE# 或者 #FALSE# 。（3）日期型数据，采用 #yyyy-mm-dd hh:mm:ss# 的格式，或将日期部分和时间部分分开处理，其形式为 #yyyy-mm-dd# 和 #hh:mm:ss# 。（4）各数据项之间以逗号分隔，写入一条纪录后，自动插入回车换行符。【例8.1】在D盘根目录下建立一个顺序文件“Score.dat”，用来记录学生的学号、姓名以及数学、英语、计算机3门课程的成绩。方法1：在窗体时的Click事件中编写代码：Private Sub Form_Click() Dim sNumber As String, sName As String Dim Maths As Integer, English As Integer, Computer As Integer Dim i As Integer, n As Integer, p As String Open d:Score.dat For Output As #1 n = InputBox(请输入学生人数) For i = 1 To n p = 输入第 + Str(i) + 个人的信息 sNumber = InputBox(学号, p) sName = InputBox(姓名, p) Maths = InputBox(数学成绩, p) English = InputBox(英语成绩, p) Computer = InputBox(计算机成绩, p) Write #1, sNumber, sName, Val(Maths), Val(English), Val(Computer) Next IClose #1End Sub方法2：1窗体及控件设计（图9-1）（1）在窗体上建立5个文本框，用来输入学号、姓名以及3门课程的成绩。再绘制5个标签，用于文本框的标识。（2）建立2个命令按钮cmdWrite和cmdClose，一个用来将文本框中的数据写入文件，一个用来关闭文件并结束程序。图9-1 成绩登录窗体2事件过程设计装载窗体时以追加方式打开顺序文件“c:Score.dat”，如果文件不存在，则建立此文件。Private Sub Form_Load() Open c:Score.dat For Append As #1End Sub单击“写入文件”按钮，将文本框中的数据写入文件，然后清空文本框，将焦点移至文本框Text1，以便输入下一条记录。Private Sub cmdWrite_Click() Write #1,Text1.Text,Text2.Text,Val(Text3.Text),Val(Text4.Text),Val(Text5.Text) Text1.Text = : Text2.Text = : Text3.Text = Text4.Text = :Text5.Text = Text1.SetFocusEnd Sub单击“关闭”按钮，用End语句关闭打开的文件，结束程序。Private Sub cmdClose_Click() Close #1End Sub8.3.3 顺序文件的输入用Open语句打开顺序文件后，可用Input # 语句或Line Input # 语句，从文件中读取数据。通常，用Write # 语句写入的数据文件，应使用Input # 语句读出数据。一、使用Input # 语句Input语句从一个打开的顺序文件中读出数据，并将数据赋给指定的变量，格式如下：Input #文件号, 变量序列参数说明：变量序列：Input # 语句把从文件中读出的数据赋给这些变量，变量的个数和类型应该与文件中读取的数据的个数和类型一致。变量之间用逗号分隔。【例8.2】读出用例8.1所建文件“D:Score.dat”中的内容，并将记录显示在窗体上。新建一个标准EXE工程，输入如下代码：Private Sub Form_Click()Dim stuNumber As String, stuName As StringDim Maths As Integer, English As Integer, Computer As IntegerMe.Print 学 号, 姓 名, 数学, 英语, 计算机Open d:Score.dat For Input As #1Do Input #1, stuNumber, stuName, Maths, English, Computer Me.Print stuNumber, stuName, Maths, En