《Visual Basic.NET程序设计课件 第8章 文件.ppt》由会员分享，可在线阅读，更多相关《Visual Basic.NET程序设计课件 第8章 文件.ppt（76页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 8 章 文 件,8.1 文件概述 8.2 System.IO命名空间简介 8.3 文件流类FileStream 8.4 读/写文本文件 8.5 读/写二进制文件 8.6 文件对话框,前面介绍的输入数据和输出结果的方法都是使用计算机终端进行的，即从键盘上输入数据和在显示器或打印机上输出结果。 采用这样的方法，数据保存在内部存储器上，程序运行结束之后就会自动消失。 很多情况下，需要把输出的结果保存在外部存储器上，以便数据可以重复使用。 这些可以由应用程序识别、保存在外部存储器中，并以名字识别的数据集合称为文件。 本章介绍VB.NET中的文本文件和二进制文件的使用。,8.1 文件概述,8.1.1
2、 文件的概念及其命名,文件是存储在外部存储器上的数据集合，通常存放在硬盘或光盘上。 例如，用Word或Excel建立的文档或表格； 又如，在VB.NET中由系统建立的扩展名.vb的应用程序，都是存储在外部存储器上,可以使用特定工具打开的文件。 一个文件的全名由磁盘设备名、目录路径和文件名三个部分组成。 文件全名一般形式： 磁盘设备名:目录路径文件名 例如，C:VB2010F1.txt。 说明： 磁盘设备名是存放文件设备的名称。 例如，硬盘或光盘的名称等。磁盘设备名也可以是磁盘分区名。, 文件名是指文件本身的名字，一般包括文件主名、英文句点和扩展名。 文件主名由字母、数字和下划线组成。 扩展名用
3、来指定文件的类型。 目录路径用来指定文件在磁盘所在的位置。目录路径有绝对路径和相对路径之分。 绝对路径是从根目录符号“”开头的路径。 例如，上面例子中“VB2010”就是绝对路径。 相对路径是指路径不从根目录符号“”开头，而是以当前目录的下一级目录开头的路径。 例如，假定当前的目录为C:VB，则“C:VB2010F1.txt”可表示为“2010F1.txt”。 又如，假定当前的目录为C:VB2010，则“C:VB2010F1.txt”可表示为“F1.txt”。,8.1.2 文件的分类,如果从不同角度对文件进行分类，可以把文件分为不同的种类。,内 容,程序文件 数据文件,存贮方式,顺序文件 随机
4、文件,编码方式,文 本 文 件 二进制文件,1程序文件和数据文件 （1）程序文件 程序文件存放的是各种计算机程序，这些计算机程序包括用各种语言编写的源程序和一些可执行文件等。 例如，在VB.NET中扩展名为.vb的文件就是程序文件。 又如，扩展名为.exe的可执行文件也是程序文件。 （2）数据文件 数据文件用来存放普通的数据。 例如，经过实验或者使用监控系统监测得到的一些数据可以建立一个数据文件来存放； 又如，学生档案中的所有数据也可以建立一个数据文件来存放。 数据文件中的数据可以是供程序处理的输入数据，也可以是程序输出的数据。 这些数据需要通过程序存取和管理。,2顺序文件和随机文件 （1）顺
5、序文件 顺序文件的数据序列由写入顺序决定，对数据的访问必须从第一个数据项开始，一个一个地访问，直到文件结束为止。 即若要访问第i个数据项，必须先访问第i-1个数据项。 访问数据速度慢。 （2）随机文件 随机文件由特定数据块组成，这些数据块称为记录。 每个记录有一个记录号。 随机文件可以按照记录号快速地实现读写操作。,3文本文件和二进制文件 （1）文本文件 文本文件以ASCII码或Unicode码的字符编码方式存储数据。 目前Unicode码在网络、Windows系统和很多大型软件中得到应用。 VS.NET所使用的UTF-8（Universal Transformation Format）是Un
6、icode的一种变长字符编码。 文本文件可以使用字处理工具（例如，记事本、Word等）打开，并可以对内容进行编辑、修改等。 在Windows系统中，文本文件常用的扩展名为.txt。 文本文件是一种顺序存取文件。,（2）二进制文件 二进制文件以二进制码的方式存储数据。文件中的数据由应用程序的数据类型进行解释。 一般由若干个字节构成一个数据，执行读写操作时以字节地址进行定位。 二进制文件是一种随机存取文件。,文本文件和二进制文件表示数据的形式不同，因而读写的方式也不同。 例如，整数314159在文本文件中用6个ASCII字符码表示： 00110011 00110001 00110100 00110
7、001 00110101 00111001 它们分别是字符3、1、4、1、5和9对应的ASCII值51、49、52、49、53和57。 又如，整数618在文本文件中用3个ASCII字符码表示： 00110110 00110001 00111000 它们分别是字符6、1、8对应的ASCII值54、49和56。 整数的位数不同其在文本文件中占用字节数是不相同的，读取数据时编译程序根据相应的语法规则解释。 若在文本文件中存放字符型数据，编译程序无须解释，直接用字符码输入或输出。 使用文本文件存放数据便于阅读和编辑数据。,在二进制文件中，整型数不管具体值如何，在VB.NET中都是用4B二进制码表示。
8、例如，整数314159在二进制文件中的二进制码： 00000000 00000100 11001011 0010111 一般来说，同一类型的数据，在二进制文件中占用的字节数都是相同的。 由于二进制数据是可以由计算机直接识别的机器码，所以使用二进制文件存放数据便于快速处理数据。,8.1.3 文件操作的基本步骤,文件操作可以分为3个基本步骤： （1）打开文件 打开文件是指建立输入/输出流对象，并使流类对象与实际外部文件关联，即建立数据读/写缓冲区通道。 打开文件之后，在程序中可以通过流类对象对外部文件进行操作。 （2）读/写文件 文件打开（或建立）之后，可以对文件进行读/写操作。 把内存中的数据存
9、放到外部存储器上的文件称为写操作； 把外部存储器上文件中的数据读取到内部存储器称为读操作。 （3）关闭文件 关闭文件的主要作用是把文件缓冲区中的所有数据写到文件，以避免数据丢失。,8.1.4 读/写文件的3种方法,（1）使用传统的方式 以前的VB版本（如VB6.0）提供了一组函数和语句，专门用于对文件的读/写操作。 在VB.NET中，仍然兼容VB传统方法读/写文件，所使用的函数和语句格式基本是相似的。 （2）使用System.IO命名空间中相关的类 在VB.NET中，System.IO命名空间提供了可实现文件处理的流类定义。 例如，定义了StreamReader和StreamWriter两个流
10、类来读/写文本文件，也定义了BinaryReader和BinaryWriter两个流类来读/写二进制文件。 （3）使用My.Computer.FileSystem对象 VB.NET预定义了My.Computer.FileSystem对象，它提供用于处理驱动器、文件和目录的属性及方法。,8.2 System.IO命名空间简介,8.2.1 流的概念及其操作,System.IO命名空间定义了一批用于数据解释和传输的类，这种类称为流类。 文件都是以字节形式存储的，可以把文件看作是一个字节流。 对文件读写，需要建立一个流类对象（简称为流）与外部实际文件关联，这个流提供了一个用于读/写文件的数据缓冲区和指
11、示当前读/写位置的“流指针”。 在程序中对流类对象的操作实际上就是对已经连接的外部文件进行操作。 流又可以分为输入流和输出流两种。 例如，从文件取一组数据输入到内存，这组数据就是一个输入流，而从内存输出到文件的一组数据就是一个输出流。,对流的操作一般包括如下3种: 从流读取数据 从文件取出一组数据以流的方式存放到程序中的变量或数组中。 向流写入数据 把程序中的变量、数组中的数据和表达式的值以流的方式写到文件。 查找流内数据 借助流指针对流内数据进行查询和编辑等操作。,8.2.2System.IO命名空间中用于文件操作的类,System.IO 命名空间包含用于读/写文件和数据流的类，以及提供基本
12、文件和目录支持的类，它包括50多个类、一些结构和枚举类型的定义等。 主要讨论文件操作的几个类： FileStream、StreamReader、StreamWriter、BinaryReader、BinaryWriter和Directory 以及与之相关的几个枚举类型的使用。 说明: 如果在程序中使用System.IO命名空间定义的类，则需要在程序中使用语句： Imports System.IO 引入System.IO命名空间。,8.3 文件流类FileStream,文件流类FileStream是用户操作文件最常用的类，用于打开和关闭文件，并提供对文件按字节的读/写操作。 只介绍如何使用Fil
13、eStream类的功能打开文件。 使用文件流类FileStream打开文件需调用FileStream类的构造函数。 语法形式： Public Sub New(path As String,mode As FileMode) Public Sub New(path As String,mode As FileMode，_ access As FileAccess ) path：表示当前FileStream对象封装的文件，它是包含相对路径或绝对路径的一个文件名。 mode：表示枚举类型System.IO.FileMode的一个成员，用于确定如何打开或创建文件。 枚举类型FileMode定义的成员及
14、其含义如表8-1所示。,access：表示枚举类型System:IO:FileAccess的一个成员，用于确定流对象访问文件的方式。 枚举类型FileAccess定义的成员及其含义如表8-2所示。,要使用FileStream操作文件需要调用FileStream类构造函数,建立FileStream类对象。 语法格式： Dim As New FileStream(, ) 或Dim As New FileStream(, ， ) 例如，建立文件流对象fs1，创建新文件c:temp newFile .txt： Dim newFile As String = c:temp newFile .txt Di
15、m fs1 As New FileStream ( newFile, FileMode.Create ) 又如，建立文件流对象fs2，以读方式打开文件c:temp oldFile .dat： Dim newFile As String = c:temp oldFile .dat Dim fs2 As New FileStream (oldFile, FileMode.Open, FileAccess.Read ) 再如,创建对象fs3，以写方式打开文件d:MyTest.txt Dim fs3 As New FileStream(d:MyTest.txt, FileMode.Create,Fil
16、eAccess.Write ),建立文件流对象实际上就是建立文件流对象与实际外部文件的关联，并提供文件操作的缓冲区。 要对文件做具体的读/写操作，还要使用流类的相关方法。 本章主要介绍对文本文件和二进制文件进行读/写操作的相关类。,8.4 读/写文本文件,可以使用StreamReader类和StreamWriter类以数据流的方式对文本文件中的数据进行读/写操作，实现对文本文件中的数据进行管理。,8.4.1 StreamWrier类,StreamWriter类用于向文本文件写入数据。 1StreamWriter类的构造函数 StreamWriter类构造函数的主要格式有两种。 格式1：Publ
17、ic Sub New ( stream As Stream ) 功能：用UTF-8编码及默认缓冲区，把stream参数指定的流对象初始化为StreamWriter 类的新实例。 格式2：Public Sub New ( path As String ) 其中，path参数是完整文件路径或当前工作路径的一个文件名。 功能：用默认编码和默认缓冲区，把path参数指定的文件初始化为StreamWriter类的新实例。 这种流类新实例(对象)既可以与文件流对象关联，也可以直接与外部文件关联。,要对文本文件进行写操作,需调用StreamWriter类构造函数，创建StreamWriter类对象。 语法格
18、式： Dim As New StreamWriter() 或 Dim As New StreamWriter() 例如，要打开文本文件“D:File1.txt”，准备写操作，可以用以下两种方法建立StreamWriter流对象。 首先建立FileStream类对象打开文件，然后使用FileStream类对象调用StreamWriter构造函数，建立StreamWriter对象： Dim FS As New FileStream(D:File1.txt , _ FileMode.Create) Dim SW As New StreamWriter(FS) 直接调用StreamWriter构造函数
19、打开文件，建立StreamWriter类对象： Dim SW As New StreamWriter(D:File1.txt),2StreamWriter类的常用方法,（1）Write方法 使用Write方法可以将字符、字符数组和字符串等写入文件。 格式1：Public Overrides Sub Write ( value As Char ) 功能：将指定字符写入与输出流类对象关联的文件中去。 例如，下面语句: F1.Write(A) F1.Write(B) F1.Write(C) 把3个字符写入与输出流类对象F1关联的文件 “D:File1.txt”中。,格式2：Public Overri
20、des Sub Write( buffer As Char() 功能：将指定字符数组写入与输出流类对象关联的文件中去。 例如，下面语句： Dim CA As Char()=c, h, i, n, a F1.Write(CA) 把字符数组的值“china”写入与输出流类对象F1关联的文件“D:File1.txt”中去。 格式3：Public Overrides Sub Write ( value As String ) 功能：将指定字符串写入与输出流类对象关联的文件中去。 例如，下面语句： F1.Write(computer) 把“computer”写入与输出流类对象F1关联的文件 “D:Fil
21、e1.txt”中。,例8-1,StreamWriter类Write方法的测试。,Imports System.IO Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs)Handles Me.Click Dim F1 As New StreamWriter(D:File1.txt) F1.Write(A) F1.Write(B) F1.Write(C) Dim CA As Char() = c, h, i, n, a F1.Write(CA) F1.Wri
22、te(computer) MsgBox(文件已建立!) F1.Close() End Sub End Class,运行程序,（2）WriteLine方法 WriteLine方法与Write方法常用的格式类似,功能的区别是WriteLine方法在写入数据后添加回车换行符。,（3）Close方法 格式：Public Overrides Sub Close 功能：关闭与输出流类对象关联的文件。 说明： 文件流类都提供Close方法以关闭文件，如前述的FileStrea类和后面的StreamReader、BinaryReader、BinaryWriter类等。 例如，语句： F1.Close() 关闭
23、了与输出流类对象F1关联的文件“D:File1.txt”。,例8-2,StreamWriter类WriteLine方法的测试。,Imports System.IO Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Click Dim F2 As New StreamWriter(D:File2.txt) F2.WriteLine( 静 夜 思) F2.WriteLine(床前明月光，疑是地上霜。) F2.WriteLine(举头
24、望明月，低头思故乡。) MsgBox(文件已建立!) F2.Close() 关闭与输出流类对象F2关联的文件 End Sub End Class,运行程序,8.4.2 StreamReader类,StreamReader类主要用来从文本文件读取数据。 1StreamReader类的构造函数 StreamReader类构造函数主要有两种格式。 格式1：Public Sub New( stream As Stream ) 功能：把参数stream指定的流对象初始化为StreamReader类的新实例。 格式2：Public Sub New( path As String ) 功能：把参数path指
25、定的文件初始化为StreamReader类的新实例。 这种流类新实例(对象) 既可以与文件流对象相关联，也可以直接与外部文件相关联。,对文本文件进行读操作,需调用StreamReader类构造函数，创建StreamReader类对象。 语法格式： Dim As New StreamReader( ) 或 Dim As New StreamReader( ) 例如，若要打开文本文件“D:File1.txt”，准备进行读操作，可以用以下两种方式建立StreamReader流对象。 首先建立FileStream类对象打开文件，然后使用FileStream类对象调用StreamReader构造函数建立
26、StreamReader对象： Dim FS As New FileStream( D:File1.txt , FileMode.Open ) Dim SW As New StreamReader(FS) 直接调用StreamReader构造函数打开文件，建立StreamReader对象： Dim SW As New StreamReader(D:File1.txt),2StreamReader类的常用方法,（1）Read方法 Read方法用来从文本文件里面读取字符。 格式：Public Overrides Function Read() As Integer 功能：读取输入流类对象中当前位置
27、的一个字符，并使流的当前位置提升一个字符,也就是说,使“流指针”指向下一个字符。 该方法返回一个整数(ASC码) ，在到达流的末尾时返回-1。 例如，下面语句： Dim chrA,chrB,chrC As Char chrA =F3.Read() chrB =F3.Read() chrC= F3.Read() 功能:从输入流类对象F3中读取前3个字符分别存放到字符变量chrA、chrB和chrC中。,（2）ReadLine方法 ReadLine方法从文本文件读取一行字符。 格式：Public Overrides Function ReadLine()As String 功能：从输入流类对象当前
28、位置开始读入一行字符，并将该行字符作为字符串返回，返回的字符串不包含回车换行符。 如果当前位置为输出流的末尾，则返回值为Nothing（空引用）。,（3）Peek方法 格式：Public Overrides Function Peek() As Integer 功能：返回流中当前位置的字符的整数值(ASC码)，但一般不使用它。 如果没有可读取的字符，则返回-1。 说明: Peek方法不会改变输入流的当前位置。,（4）ReadToEnd方法 格式：Public Overrides Function ReadToEnd() As String 功能：从输入流类对象当前位置开始读入字符，直到文件的末
29、尾，并把所读取的字符作为字符串返回。 如果当前位置位于流的末尾，则返回空字符串 （）。,例8-3,Read方法的测试。从文件“D:File1.txt”中读出字符在TextBox1文本框中显示。,Imports System.IO Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Click Dim F3 As New StreamReader(D:File1.txt) Dim chrA As Char Do While F3.P
30、eek() -1 chrA = Chr(F3.Read() TextBox1.Text = TextBox1.Text & chrA Loop F3.Close() End Sub End Class,运行程序,例8-4,ReadLine方法的测试。从“D:File2.txt”文件中读出内容并在TextBox1文本框中显示。,Imports System.IO Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Click Dim
31、 F4 As New StreamReader(D:File2.txt) Dim line As String line = F4.ReadLine() Do While line Nothing TextBox1.Text = TextBox1.Text & line & vbCrLf line = F4.ReadLine() Loop F4.Close() End Sub End Class,运行程序,例8-4,ReadLine方法的测试。从“D:File2.txt”文件中读出内容并在TextBox1文本框中显示。,Imports System.IO Public Class Form1
32、Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Click Dim F4 As New StreamReader(D:File2.txt) Dim line As String line = F4.ReadLine() Do While line Nothing TextBox1.Text = TextBox1.Text & line & vbCrLf line = F4.ReadLine() Loop F4.Close() End Sub End Class,l
33、ine = F4.ReadToEnd() TextBox1.Text = line,8.5 读/写二进制文件,读/写二进制文件也需要建立FileStream类对象以打开文件，并使用BinaryReader类和BinaryWriter类对象来读/写数据。,8.5.1 BinaryWriter类,1BinaryWriter类的构造函数 BinaryWriter类构造函数有多个重载版本，下面仅介绍常用的格式及其功能。 格式1：Public Sub New(output As Stream) 功能：把参数output指定的输出流，用UTF-8编码初始化为BinaryWriter类新实例。 格式2：Pu
34、blic Sub New(output As Stream, encoding As Encoding ) 功能：把参数output指定的输出流，以encoding参数指定的编码方式初始化为BinaryWriter类新实例。 encoding参数用来指定输出流的编码方式。 例如，Encoding.ASCII、Encoding.Unicode和Encoding.UTF8等3种不同的字符编码方式。,要操作二进制文件，先要打开文件，即创建FileStream类对象，并建立该文件流对象与实际文件的关联。 这个流对象就是构造BinaryWriter类对象的output参数。 调用BinaryWriter
35、类构造函数，创建BinaryStream类对象，建立文件流对象与实际文件的关联，语法格式： Dim As New BinaryWriter(，) 例如，打开一个二进制文件“D: File3.dat”，准备进行写操作，要执行以下语句： Dim FS As New FileStream(D:File3.dat, FileMode.Create,FileAccess.Write) Dim BW As New BinaryWriter(FS) 执行以上两个语句后，BinaryWriter类对象BW建立了与流对象FS的关联，以后就可以对实际文件“D: File3.dat”进行写操作了。,2BinaryW
36、riter类的常用方法 （1）Seek方法 格式：Public Overridable Function Seek( offset As _ Integer,origin As SeekOrigin )As Long 其中参数origin为参照点，参数offset为相对于参照点的位移量。 SeekOrigin为System.IO命名空间中的枚举类型，它的成员及其含义如表8-3所示。,功能：以参数origin为参照点，以参数offset为相对于参照点的位移量，设置流的当前位置。,（2）Write方法 使用Write方法可以把各种基本数据类型数据写到二进制文件。 格式：Public Overrid
37、able Sub Write( value As ) 其中，可以为各种基本类型，包括Integer、Single、Double、String和Boolean等类型。 功能：将指定value值写入流的当前位置，并使流的当前位置移动指定数据类型所占的字节数。 例如，语句： Dim a As Integer = 100 BW.Write(a) 把整数100写到与BinaryWriter类对象BW关联的文件“D:File3.dat”的当前位置，并使流的当前位置移动4B。,例8-5,BinaryWriter类Write方法的测试。,Imports System.IO Public Class Form1
38、 Private Sub Form1_Click(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles Me.Click Dim FS As New FileStream(D:File3.dat, FileMode.Create, _ FileAccess.Write) Dim BW As New BinaryWriter(FS) Dim a As Integer =100, b As Single =3.14159, c As String=CHINA BW.Write(a) BW.Write(b) BW.Write(c
39、) MsgBox(文件已建立!) BW.Close() FS.Close() End Sub End Class,二进制文件不能使用字处理工具（例如，记事本、Word等）打开!,运行程序,8.5.2 BinaryReader类,BinaryReader类用于从二进制文件中读取数据。 1BinaryReader类的构造函数 格式1：Public Sub New( input As Stream ) 功能：把指定的输入流input，用UTF-8编码方式初始化为BinaryReader类的新实例。 格式2：Public Sub New( input As Stream, encoding As En
40、coding ) 功能：把指定的输入流input，用指定的encoding编码方式初始化为BinaryReader类新实例。,要想从二进制文件读取数据，必须先用FileStream类对象打开该二进制文件，然后创建BinaryReader类对象，使之与文件流对象相关联。 而创建BinaryReader类对象，需要调用BinaryReader类的构造函数。 语法格式： Dim As New BinaryReader(，) 例如，要打开文件“D:File3.dat”，准备进行读操作，需使用下面两个语句： Dim FS As New FileStream(“D:File3.dat”, _ FileMo
41、de.Open, FileAccess.Read) Dim BR As New BinaryWriter(FS),2BinaryReader类的常用方法 要从二进制文件中读取数据需使用Read方法。 若要正确读出由BinaryWrite类的Write方法写入文件的数据，读取文件时对应的参数顺序和类型必须一一对应。 不同类型的数据用不同的Read方法读取。 常用的Read方法和功能如表8-4所示。,例8-6,BinaryReader类Read方法的测试。,Imports System.IO Public Class Form1 Private Sub Form1_Click(ByVal send
42、er As Object, ByVal e As _ System.EventArgs) Handles Me.Click Dim FS As New FileStream(D:File3.dat, FileMode.Open, _ FileAccess.Read) Dim BR As New BinaryReader(FS) Dim a As Integer, b As Single, c As String a = BR.ReadInt32() TextBox1.Text = CStr(a) b = BR.ReadSingle() TextBox2.Text = CStr(b) c = B
43、R.ReadString() TextBox3.Text = c BR.Close() FS.Close() End Sub End Class,运行程序,例8-7,用随机函数产生30个两位整数并存放到二进制文件“D:File4.dat”中。从“D:File4.dat”中读出数据并在文本框TextBox1中显示，求这组数的平均值和最大值，分别在文本框TextBox2和TextBox3中显示。,Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal
44、e As System.EventArgs) Handles Button1.Click Dim FS As New FileStream(D:File4.dat, FileMode.Create, _ FileAccess.Write) Dim BW As New BinaryWriter(FS) Dim a, i As Integer Randomize() For i = 1 To 30 a = Int(90 * Rnd() + 10) BW.Write(a) Next MessageBox.Show(文件已建立!) BW.Close() FS.Close() End Sub,Priva
45、te Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim FS As New FileStream(D:File4.dat, FileMode.Open, _ FileAccess.Read) Dim BR As New BinaryReader(FS) Dim a, i As Integer For i = 1 To 29 a = BR.ReadInt32() TextBox1.Text = TextBox1.Text & CStr(
46、a) & , Next a = BR.ReadInt32() TextBox1.Text = TextBox1.Text & CStr(a) BR.Close() FS.Close() End Sub,Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click Dim FS As New FileStream(D:File4.dat, FileMode.Open, FileAccess.Read) Dim BR As New Binar
47、yReader(FS) Dim a, i As Integer, sum As Single For i = 1 To 30 a = BR.ReadInt32() sum = sum + a Next TextBox2.Text = CStr(sum / 30) BR.Close() FS.Close() End Sub,Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click Dim FS As New FileStream(D:F
48、ile4.dat, FileMode.Open, FileAccess.Read) Dim BR As New BinaryReader(FS) Dim a, i, max As Integer max = BR.ReadInt32() For i = 1 To 29 a = BR.ReadInt32() If max a Then max = a Next TextBox3.Text = CStr(max) BR.Close() FS.Close() End Sub End Class,运行程序,文件对话框用于针对文件操作时选择文件夹和文件名，也可用于创建文件和显示文件内容等。 主要有两个文件对话框：打开文件对话框（OpenFileDialog控件）和保存文件对话框（SaveFileDialog控件）。,8.6 文件对话框,8.6.1 打开文件对话框,OpenFileDialog控件提供一个Windows标准的“打开文件”对话框:,在对话框中，可以选择驱动器、文件夹、文件类型和文件名，也可以检查某个文件是否存在，并打开该文件。,1属性,说明:Filter属性是一个具有特定格式的文件名筛选器，用来指定文件类型。 文件名筛选器可以包含多个筛选项，各个筛选项需用竖线“|”分隔。 例如，文件名筛选器“*.vb|*.txt|*.*