《vb编程幻灯片第9章》由会员分享，可在线阅读，更多相关《vb编程幻灯片第9章（40页珍藏版）》请在金锄头文库上搜索。
1、第9章 文件,VB 2005提供了强大的文件访问与处理功能。它除了提供传统的文 件访问方式外，还可以使用System.IO命名空间访问文件，并且新 增了一个性能更加强大的My.Computer.FileSystem对象。 本章主要介绍文件的基本概念，以及在VB 2005中访问各种类型文 件的方法。,9.1 文件的结构和文件的分类,文件是指存储在外部物理介质上的数据的集合。它可以永久性地保 存数据。计算机操作系统是以文件为单位对数据进行管理的。 这一节主要介绍文件的结构和分类。,9.1.1 文件的结构,为了有效地存取数据，数据必须以某种特定方式存放，这种方式称为文件的结构。基本的文件结构有：字符
2、、字段、记录。 1. 字符（Character） 字符是数据的最小单位，是构成文件的最基本单位。字母、数字、特殊符号都可以看成是一个字符。 2. 字段（Field） 字段也称为域，是指由某种数据类型及若干字符组成的一项数据，通常表示特定含义。 3. 记录（Record） 记录是由一个或多个相关联的字段组成，是计算机处理数据的基本单位。 文件就是记录的集合。,9.1.2 文件的分类,根据不同的分类标准，文件可分为不同的类型。 1. 根据数据性质分类 根据数据的性质，文件可以分为程序文件和数据文件。 2. 根据数据的存储形式分类 根据数据的存储形式，文件可以分为顺序文件和随机文件。 3. 根据数据
3、的编码分类 根据数据的编码，文件可以分为ASCII文件和二进制文件。,9.2 访问文件,根据不同类型的文件，访问数据的方式也不相同。VB 2005提供了 三种文件访问模式：顺序访问模式、随机访问模式、二进制访问模 式。访问文件，基本操作步骤一般都须经过以下三步完成： 1) 首先打开文件，如果文件不存在应先创建文件。 2) 当文件打开后，就可以对文件进行读或写操作了。 3) 当文件操作完毕，应该关闭文件。,9.2.1 使用传统的方式访问文件,VB 2005支持以前版本传统的文件访问方式。传统的文件访问方式就是通过调用VB系统提供的文件访问函数来访问文件。不同类型的文件，访问时使用的函数也有所差异
4、。常用的文件访问函数访问的文件类型，见表。,9.2.1 使用传统的方式访问文件,1. 访问顺序文件 顺序文件访问模式的规则最简单，读取时从第1条记录“顺序”读到最后一条记录，写入时也一样，不可以在数据间随意跳转。 将数据写入顺序文件，通常有3个步骤：打开、写入和关闭。从顺 序文件读取数据到内存的步骤也有3个步骤：打开、写入和关闭。 (1) 打开文件 打开或创建文件调用FileOpen函数， 其语法格式如下： FileOpen (文件编号,文件名,模式 ,存取方式,共享方式,记录长度 ) (2) 关闭文件 关闭文件调用FileClose函数，其语法格式如下： FileClose ( 文件编号 ,
5、文件名, ),9.2.1 使用传统的方式访问文件,【例9-1】打开C盘下的file.txt文件，并显示该文件的文件号、文件名和字符数，然后关闭。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim arr(10) As Single Dim fileName As String Dim fileNum As Integer fileName = InputBox$(“请输入要打开的文件名：“) 输入要打开的文件 fileNu
6、m = FreeFile() 得到文件号 FileOpen(fileNum, fileName, OpenMode.Output) 打开指定文件 显示文件信息 MessageBox.Show(“打开文件名是“ + fileName + “的文件，该文件的文件号是“ + Str(fileNum) FileClose(fileNum) 关闭文件 End Sub,9.2.1 使用传统的方式访问文件,(3) 写操作 将数据写入磁盘文件调用Print、PrintLine、Write和WriteLine函数。这4个函数的格式相同，其语法格式如下： Print (文件编号 , Output ) PrintL
7、ine (文件编号 , Output ) Write (文件编号 , Output ) WriteLine (文件编号 , Output ),9.2.1 使用传统的方式访问文件,【例9-2】使用Print、PrintLine函数向file.txt文件中写入数据。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FileOpen(1, “c:file.txt“, OpenMode.Output) 打开指定文件 Print(1, “
8、大家“) 写入数据，不包括换行符 Print(1, “好！“) PrintLine(1) 写入换行符 PrintLine(1, “欢迎使用“, TAB(), “VB 2005！“) 写入数据，包括换行符 PrintLine(1, “VB 2005“, TAB(), “是VB的最新版本。“) PrintLine(1, SPC(3), “它具有强大的文件操作功能。“) FileClose(1) 关闭文件 End Sub,9.2.1 使用传统的方式访问文件,【例9-3】使用Write、WriteLine函数向newfile.txt文件中写入数据。 Private Sub Button1_Click(
9、ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FileOpen(1, “c:newfile.txt“, OpenMode.Output) 打开指定文件 Write(1, “Visual Studio 2005“) 写入数据，不包括换行符 Write(1, “是新一代的开发平台。“) WriteLine(1) 写入换行符 WriteLine(1, “它“, TAB(), “功能强大，“) 写入数据，包括换行符 WriteLine(1, SPC(3), “使用简单，“) Write
10、Line(1, TAB(10), “是程序开发人员的最好选择。“) FileClose(1) 关闭文件 End Sub,9.2.1 使用传统的方式访问文件,(4) 读操作 读取顺序文件的操作常用到Input、LineInput和InputString函数。其语法格式如下： Input (文件编号,变量名) LineInput (文件编号) InputString (文件编号,表达式),9.2.1 使用传统的方式访问文件,【例9-4】使用Input、LineInput和InputString函数读取file.txt和newfile.txt文件中的数据。 Private Sub Button1_C
11、lick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 调用Input函数事件 Dim str1 As String FileOpen(1, “c:newfile.txt“, OpenMode.Input) 打开指定文件 Input(1, str1) 读取数据赋给变量str1 MessageBox.Show(str1) 显示读取数据 Input(1, str1) MessageBox.Show(str1) Input(1, str1) MessageBox.Show(str1)
12、 Input(1, str1) MessageBox.Show(str1) FileClose(1) 关闭文件 End Sub,9.2.1 使用传统的方式访问文件,Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 调用LineInput函数事件 Dim str2 As String FileOpen(1, “c:newfile.txt“, OpenMode.Input) 打开指定文件 str2 = LineInput(1) 读取数
13、据赋给变量str2 MessageBox.Show(str2) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 调用InputString函数事件 Dim str3 As String FileOpen(1, “c:newfile.txt“, OpenMode.Input) 打开指定文件 str3 = InputString(1, 10) 读取数据赋给变量str3 MessageBox.Show(str3) En
14、d Sub,9.2.1 使用传统的方式访问文件,(5) 几个重要的文件函数 1) Loc函数。 Loc函数返回一个Long数据类型的值，该值指定打开文件中当前的读/写位置。 2) LOF函数。 LOF函数返回Long数据类型的值，表示用FileOpen函数打开的文件的大小（以字节为单位）。 3) Eof函数。 Eof函数表示当到达以随机或顺序Input模式打开的文件尾时，返回Boolean数据类型值True。 4) FileCopy函数。 FileCopy函数将指定的文件复制到指定路径。,9.2.1 使用传统的方式访问文件,【例9-5】使用文件函数，确定file.txt文件当前读写的位置，该文
15、件的大小和长度，并将newfile1.txt文件其拷贝到D盘下，重命名为newfile1.txt。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 调用Loc函数事件 FileOpen(1, “c:file.txt“, OpenMode.Output) MsgBox(Loc(1) FileClose(1) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 调用LOF函数事件 FileOpen(1, “c:file.
