VB编程课件第9章.ppt

1、第第9章章 文件文件VB 2005提供了强大的文件访问与处理功能。它除了提供传统的文提供了强大的文件访问与处理功能。它除了提供传统的文件访问方式外，还可以使用件访问方式外，还可以使用System.IO命名空间访问文件，并且新命名空间访问文件，并且新增了一个性能更加强大的增了一个性能更加强大的My.Computer.FileSystem对象。对象。本章主要介绍文件的基本概念，以及在本章主要介绍文件的基本概念，以及在VB 2005中访问各种类型文中访问各种类型文件的方法。件的方法。9.1 文件的结构和文件的分类文件的结构和文件的分类文件是指存储在外部物理介质上的数据的集合。它可以永久性地保文件是指

2、存储在外部物理介质上的数据的集合。它可以永久性地保存数据。计算机操作系统是以文件为单位对数据进行管理的。存数据。计算机操作系统是以文件为单位对数据进行管理的。这一节主要介绍文件的结构和分类。这一节主要介绍文件的结构和分类。9.1.1 文件的结构文件的结构为了有效地存取数据，数据必须以某种特定方式存放，这种方式称为了有效地存取数据，数据必须以某种特定方式存放，这种方式称为文件的结构。基本的文件结构有：字符、字段、记录。为文件的结构。基本的文件结构有：字符、字段、记录。1. 字符（字符（Character）字符是数据的最小单位，是构成文件的最基本单位。字母、数字、字符是数据的最小单位，是构成文件的

3、最基本单位。字母、数字、特殊符号都可以看成是一个字符。特殊符号都可以看成是一个字符。2. 字段（字段（Field）字段也称为域，是指由某种数据类型及若干字符组成的一项数据，字段也称为域，是指由某种数据类型及若干字符组成的一项数据，通常表示特定含义。通常表示特定含义。3. 记录（记录（Record）记录是由一个或多个相关联的字段组成，是计算机处理数据的基本记录是由一个或多个相关联的字段组成，是计算机处理数据的基本单位。单位。 文件就是记录的集合。文件就是记录的集合。9.1.2 文件的分类文件的分类根据不同的分类标准，文件可分为不同的类型。根据不同的分类标准，文件可分为不同的类型。1. 根据数据性

4、质分类根据数据性质分类根据数据的性质，文件可以分为程序文件和数据文件。根据数据的性质，文件可以分为程序文件和数据文件。2. 根据数据的存储形式分类根据数据的存储形式分类根据数据的存储形式，文件可以分为顺序文件和随机文件。根据数据的存储形式，文件可以分为顺序文件和随机文件。3. 根据数据的编码分类根据数据的编码分类根据数据的编码，文件可以分为根据数据的编码，文件可以分为ASCII文件和二进制文件。文件和二进制文件。9.2 访问文件访问文件根据不同类型的文件，访问数据的方式也不相同。根据不同类型的文件，访问数据的方式也不相同。VB 2005提供了提供了三种文件访问模式：顺序访问模式、随机访问模式、

5、二进制访问模三种文件访问模式：顺序访问模式、随机访问模式、二进制访问模式。访问文件，基本操作步骤一般都须经过以下三步完成：式。访问文件，基本操作步骤一般都须经过以下三步完成：1) 首先打开文件，如果文件不存在应先创建文件。首先打开文件，如果文件不存在应先创建文件。2) 当文件打开后，就可以对文件进行读或写操作了。当文件打开后，就可以对文件进行读或写操作了。3) 当文件操作完毕，应该关闭文件。当文件操作完毕，应该关闭文件。9.2.1 使用传统的方式访问文件使用传统的方式访问文件VB 2005支持以前版本传统的文件访问方式。传统的文件访问方式支持以前版本传统的文件访问方式。传统的文件访问方式就是通

6、过调用就是通过调用VB系统提供的文件访问函数来访问文件。不同类型系统提供的文件访问函数来访问文件。不同类型的文件，访问时使用的函数也有所差异。常用的文件访问函数访问的文件，访问时使用的函数也有所差异。常用的文件访问函数访问的文件类型，见表。的文件类型，见表。函数名称函数名称 函数实现的操作函数实现的操作顺序访问顺序访问模式模式随机访问随机访问模式模式二进制访二进制访问模式问模式FileOpen 打开或创建文件打开或创建文件允许允许允许允许允许允许FileClose 关闭文件关闭文件允许允许允许允许允许允许Input从打开的顺序文从打开的顺序文件中读取数据件中读取数据允许允许允许允许不允许不允许

7、InputString返回打开文件字返回打开文件字符值符值允许允许不允许不允许不允许不允许LineInput从打开的顺序文从打开的顺序文件中读取一行数件中读取一行数据据允许允许不允许不允许不允许不允许Print、PrintLine将格式化的显示将格式化的显示数据写入顺序文数据写入顺序文件件允许允许不允许不允许不允许不允许Write、WriteLine将数据写入顺序将数据写入顺序文件文件允许允许不允许不允许不允许不允许9.2.1 使用传统的方式访问文件使用传统的方式访问文件1. 访问顺序文件访问顺序文件顺序文件访问模式的规则最简单，读取时从第顺序文件访问模式的规则最简单，读取时从第1条记录条记录

8、“顺序顺序”读读到最后一条记录，写入时也一样，不可以在数据间随意跳转。到最后一条记录，写入时也一样，不可以在数据间随意跳转。将数据写入顺序文件，通常有将数据写入顺序文件，通常有3个步骤：打开、写入和关闭。从顺个步骤：打开、写入和关闭。从顺序文件读取数据到内存的步骤也有序文件读取数据到内存的步骤也有3个步骤：打开、写入和关闭。个步骤：打开、写入和关闭。(1) 打开文件打开文件打开或创建文件调用打开或创建文件调用FileOpen函数，函数，其语法格式如下：其语法格式如下：FileOpen (文件编号文件编号,文件名文件名,模式模式 ,存取方式存取方式,共享方式共享方式,记录长度记录长度 )(2)

9、关闭文件关闭文件关闭文件调用关闭文件调用FileClose函数，其语法格式如下：函数，其语法格式如下：FileClose ( 文件编号文件编号 ,文件名文件名, )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

10、Dim arr(10) As Single Dim fileName As String Dim fileNum As Integer fileName = InputBox$(请输入要打开的文件名：请输入要打开的文件名：) 输入要打开的文件输入要打开的文件 fileNum = FreeFile() 得到文件号得到文件号 FileOpen(fileNum, fileName, OpenMode.Output) 打开指定文件打开指定文件 显示文件信息显示文件信息 MessageBox.Show(打开文件名是打开文件名是 + fileName + 的文件，该文件的文件号是的文件，该文件的文件号是

11、+ Str(fileNum) FileClose(fileNum) 关闭文件关闭文件End Sub9.2.1 使用传统的方式访问文件使用传统的方式访问文件(3) 写操作写操作将数据写入磁盘文件调用将数据写入磁盘文件调用Print、PrintLine、Write和和WriteLine函函数。这数。这4个函数的格式相同，其语法格式如下：个函数的格式相同，其语法格式如下：Print (文件编号文件编号 , Output )PrintLine (文件编号文件编号 , Output )Write (文件编号文件编号 , Output )WriteLine (文件编号文件编号 , Output )9.2.

12、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, 大家大家) 写入数据，不包括换行符写入数据，不包括换行符 Print(1, 好！好！) Pri

13、ntLine(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文件中写入数据。文件中写入数据。Priv

14、ate Sub Button1_Click(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(), 功能强大，功能强

15、大，) 写入数据，包括换行符写入数据，包括换行符 WriteLine(1, SPC(3), 使用简单，使用简单，) WriteLine(1, TAB(10), 是程序开发人员的最好选择。是程序开发人员的最好选择。) FileClose(1) 关闭文件关闭文件End Sub9.2.1 使用传统的方式访问文件使用传统的方式访问文件(4) 读操作读操作读取顺序文件的操作常用到读取顺序文件的操作常用到Input、LineInput和和InputString函数。函数。其语法格式如下：其语法格式如下：Input (文件编号文件编号,变量名变量名)LineInput (文件编号文件编号)InputStri

16、ng (文件编号文件编号,表达式表达式)9.2.1 使用传统的方式访问文件使用传统的方式访问文件【例【例9-4】使用】使用Input、LineInput和和InputString函数读取函数读取file.txt和和newfile.txt文文件中的数据。件中的数据。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 调用调用Input函数事件函数事件 Dim str1 As String FileOpen(1, c:newfile.t

17、xt, OpenMode.Input) 打开指定文件打开指定文件 Input(1, str1) 读取数据赋给变量读取数据赋给变量str1 MessageBox.Show(str1) 显示读取数据显示读取数据 Input(1, str1) MessageBox.Show(str1) Input(1, str1) MessageBox.Show(str1) Input(1, str1) MessageBox.Show(str1) FileClose(1) 关闭文件关闭文件End Sub9.2.1 使用传统的方式访问文件使用传统的方式访问文件Private Sub Button2_Click(ByV

18、al 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) 读取数据赋给变量读取数据赋给变量str2 MessageBox.Show(str2)End SubPrivate Sub Button3_Click(ByVal sender As System.Object

19、, 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)End Sub9.2.1 使用传统的方式访问文件使用传统的方式访问文件(5) 几个重要的文件函数几个重要的文件函数1) Loc函数。函数。Loc函数返回一个函数

20、返回一个Long数据类型的值，该值指定打开文数据类型的值，该值指定打开文件中当前的读件中当前的读/写位置。写位置。2) LOF函数。函数。LOF函数返回函数返回Long数据类型的值，表示用数据类型的值，表示用FileOpen函数函数打开的文件的大小（以字节为单位）。打开的文件的大小（以字节为单位）。3) Eof函数。函数。Eof函数表示当到达以随机或顺序函数表示当到达以随机或顺序Input模式打开的文件尾模式打开的文件尾时，返回时，返回Boolean数据类型值数据类型值True。4) FileCopy函数。函数。FileCopy函数将指定的文件复制到指定路径。函数将指定的文件复制到指定路径。9

21、.2.1 使用传统的方式访问文件使用传统的方式访问文件【例【例9-5】使用文件函数，确定】使用文件函数，确定file.txt文件当前读写的位文件当前读写的位置，该文件的大小和长度，并将置，该文件的大小和长度，并将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

22、.txt, OpenMode.Output) MsgBox(Loc(1) FileClose(1)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 调用调用LOF函数事件函数事件 FileOpen(1, c:file.txt, OpenMode.Output) MsgBox(LOF(1) FileClose(1)End SubPrivate Sub Button3_Click(ByVal sender As Syst

23、em.Object, ByVal e As System.EventArgs) Handles Button3.Click 调用调用FileLen函数事件函数事件 Dim str1 As String str1 = FileLen(c:newfile.txt) MsgBox(str1)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 调用调用FileCopy函数事件函数事件 FileCopy(c:newfile.tx

24、t, d:newfile1.txt)End Sub9.2.1 使用传统的方式访问文件使用传统的方式访问文件2. 访问随机文件访问随机文件在随机访问模式中，文件的存取是按记录进行操作的，每个记录都在随机访问模式中，文件的存取是按记录进行操作的，每个记录都有记录号并且长度全部相同。在程序的变量说明部分采用用户自定有记录号并且长度全部相同。在程序的变量说明部分采用用户自定义类型说明语句义类型说明语句StructureEnd Structure，首先定义记录的结构，首先定义记录的结构类型，然后再将变量说明成该类型，这样就为这个变量申请了内存类型，然后再将变量说明成该类型，这样就为这个变量申请了内存空间

25、，用于存放随机文件中的记录。空间，用于存放随机文件中的记录。(1) 打开和关闭文件打开和关闭文件打开随机文件仍然调用打开随机文件仍然调用FileOpen函数，与打开顺序文件不同的是函数，与打开顺序文件不同的是使用使用Random模式，并且需要指明每条记录的长度模式，并且需要指明每条记录的长度RecordLength值，即记录中各字段长度之和，也与程序首部定义的结构类型变量值，即记录中各字段长度之和，也与程序首部定义的结构类型变量的长度相同。关闭随机文件仍然调用的长度相同。关闭随机文件仍然调用FileClose函数。函数。9.2.1 使用传统的方式访问文件使用传统的方式访问文件(2) 读写操作读

26、写操作打开随机文件后，就可以进行读写操作。随机文件可以同时进行写打开随机文件后，就可以进行读写操作。随机文件可以同时进行写入和读取操作。随机文件的写操作调用入和读取操作。随机文件的写操作调用FilePut函数，其语法格式函数，其语法格式如下：如下：FilePut (文件编号文件编号,变量名变量名,记录号记录号,ArrayIsDynamic ,StringIsFixedLength ) 9.2.1 使用传统的方式访问文件使用传统的方式访问文件【例【例9-6】用随机访问模式创建一个职工数据文件（】用随机访问模式创建一个职工数据文件（employee.dat），并输出文），并输出文件内容。件内容。S

27、tructure em 用户自定义记录类型用户自定义记录类型 Dim num As String Dim name As String Dim sex As StringEnd StructurePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click 输入数据事件输入数据事件 Dim emp() As em Dim i, n As Integer FileOpen(1, c:employee.dat, OpenMode.Random)

28、 n = InputBox(请输入职工数：请输入职工数：) 输入记录个数输入记录个数 ReDim emp(n) For i = 1 To n 依次输入每个记录数据依次输入每个记录数据 emp(i).num = InputBox$(请输入编号：请输入编号：) emp(i).name = InputBox$(请输入姓名：请输入姓名：) emp(i).sex = InputBox$(请输入性别：请输入性别：) FilePut(1, emp(i), i + 1) 调用调用FilePut函数输入数据函数输入数据 Next FileClose()End Sub9.2.1 使用传统的方式访问文件使用传统的方

29、式访问文件Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button2.Click 输出数据事件输出数据事件 Dim emp As em Dim i, n As Integer Dim str As String FileOpen(1, c:employee.dat, OpenMode.Random) str = 编号编号 姓名姓名 性别性别 & Chr(13) i = 1 While Not EOF(1) 依次读取每个记录数据依次读取每个记录数据 F

30、ileGet(1, emp) 调用调用FileGet函数输出数据函数输出数据 str = str & emp.num & & emp.name & & emp.sex & Chr(13)图图9-12 随机文件输出随机文件输出 i = i + 1 End While MessageBox.Show(str) 在消息框中输出数据在消息框中输出数据 FileClose()End Sub 9.2.1 使用传统的方式访问文件使用传统的方式访问文件(3) 常用对话框控件常用对话框控件一些应用程序常常需要打开和保存文件，以及选择字体、颜色、打印等操作，这一些应用程序常常需要打开和保存文件，以及选择字体、颜色

31、、打印等操作，这时需要应用程序提供相应的对话框，进行操作。时需要应用程序提供相应的对话框，进行操作。VB 2005提供的对话框控件有：提供的对话框控件有：打开文件对话框控件（打开文件对话框控件（OpenFileDialog）、保存对话框控件）、保存对话框控件（SaveFileDialog）、字体对话框控件（）、字体对话框控件（FontDialog）、颜色对话框控件）、颜色对话框控件（ColorDialog）、文件夹对话框（）、文件夹对话框（FolderBrowserDialog）等，在工具箱上显）等，在工具箱上显示如图所示。示如图所示。9.2.3 使用使用System.IO命名空间访问文件命名

32、空间访问文件1. 流的概念及其类型流的概念及其类型.NET Framework使用流来支持读取和写入文件。可以将流视为一使用流来支持读取和写入文件。可以将流视为一组连续的一维数据，包含开头和结尾，并且其中的游标指示了流中组连续的一维数据，包含开头和结尾，并且其中的游标指示了流中的当前位置。的当前位置。文件和流是有区别的。文件通常表示位于磁盘上的文件和目录，具文件和流是有区别的。文件通常表示位于磁盘上的文件和目录，具有文件名和路径。而流则提供读写后端存储的方法，后端存储包括有文件名和路径。而流则提供读写后端存储的方法，后端存储包括磁盘、网络、内存和磁带等。磁盘、网络、内存和磁带等。流是字节序列的

33、抽象概念，是一个在流是字节序列的抽象概念，是一个在Unix里面经常使用的对象。可里面经常使用的对象。可以把流当作一个通道，程序的数据可以沿着这个通道以把流当作一个通道，程序的数据可以沿着这个通道“流流”到各种到各种数数据存储机构（例如文件、字符串、数组或者其他形式的流等）。一据存储机构（例如文件、字符串、数组或者其他形式的流等）。一般来说，流要比文件的范围要稍广一些，除文件流之外也存在多种般来说，流要比文件的范围要稍广一些，除文件流之外也存在多种流，如网络流、内存流和缓冲流等。流，如网络流、内存流和缓冲流等。 9.2.3 使用使用System.IO命名空间访问文件命名空间访问文件2. 流的操作

34、流的操作流的操作一般涉及三个基本方法：流的操作一般涉及三个基本方法：1) 可以从流读取。读取是从流到数据结构（如字节数组）的数据传可以从流读取。读取是从流到数据结构（如字节数组）的数据传输。输。2) 可以向流写入。写入是从数据源到流的数据传输。可以向流写入。写入是从数据源到流的数据传输。3) 流可以支持查找。查找是对流内的当前位置进行的查询和修改流可以支持查找。查找是对流内的当前位置进行的查询和修改所有与所有与I/O相关的类都位于相关的类都位于System.IO命名空间。命名空间。System.IO命名空命名空间中提供了以下功能：间中提供了以下功能：1) 创建、删除和操作目录及文件。创建、删除

35、和操作目录及文件。2) 对目录和文件进行监视。对目录和文件进行监视。3) 从流中读写数据。从流中读写数据。4) 随机访问文件。随机访问文件。5) 使用多种枚举常量设置文件和目录的操作。使用多种枚举常量设置文件和目录的操作。9.2.3 使用使用System.IO命名空间访问文件命名空间访问文件【例【例9-8】使用】使用System.IO命名空间，向命名空间，向C盘下名为盘下名为testfile.txt文件写入数据，并文件写入数据，并读取其文本信息，显示到输出窗口中。读取其文本信息，显示到输出窗口中。Imports System 引用引用System命名空间命名空间Imports System.I

36、OClass Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles MyBase.Load Dim sw As StreamWriter = New StreamWriter(c:TestFile.txt) 声明一个声明一个StreamWriter对象对象sw sw.Write(北京奥运会将在北京奥运会将在) 不换行写入数据不换行写入数据 sw.WriteLine(2008年月日举行。年月日举行。) 换行写入数据换行写入数据 sw.WriteLine(-)

37、 sw.Write(今天的日期是：今天的日期是：) sw.WriteLine(DateTime.Now) sw.Close() 关闭对象关闭对象sw Dim sr As StreamReader = New StreamReader(c:TestFile.txt) 声明一个声明一个StreamReader对象对象sr Dim line As String Do line = sr.ReadLine() 读取一行文本读取一行文本 Console.WriteLine(line) 输出到输出窗口输出到输出窗口 Loop Until line Is Nothing 循环读取每行文本循环读取每行文本 s

38、r.Close() 关闭对象关闭对象srEnd SubEnd Class 9.2.4 使用其它方法处理字符使用其它方法处理字符访问文件，其实就是访问文件中的字符串数据。程序员可以读取、访问文件，其实就是访问文件中的字符串数据。程序员可以读取、写入字符串，通常用写入字符串，通常用“&”和和“+”来处理字符串连接。也可以使用来处理字符串连接。也可以使用String类的方法来处理字符串。类的方法来处理字符串。String类常用的方法见表。类常用的方法见表。方法名称方法名称功能说明功能说明示例示例示例结果示例结果Compare比较两个指定的字符串。比较两个指定的字符串。String.Compare(a

39、bc, abc)String.Compare(abc, abcd)0-1Concat创建连接字符串。创建连接字符串。String.Concat(中华中华, 人民共和国人民共和国)中华人民共和国中华人民共和国Copy复制字符串。复制字符串。String.Copy(你好你好)复制到新字符串（变量）中复制到新字符串（变量）中Equals判断两个字符串是否相同判断两个字符串是否相同String.Compare(abc, abcd)String.Compare(abc, abc)FalseTrueIsNullOrEmpty判断字符串是否为空判断字符串是否为空String.IsNullOrEmpty()S

40、tring.IsNullOrEmpty(ab)TrueFalse9.2.4 使用其它方法处理字符使用其它方法处理字符程序员还可以使用程序员还可以使用.NET Framework提供的方法处理提供的方法处理String类中的类中的字符串，功能类似于字符串函数。字符串，功能类似于字符串函数。.NET Framework常用的处理字常用的处理字符串的方法见表。符串的方法见表。方法名称方法名称功能说明功能说明示例示例示例结果示例结果ToUpper将字符串中的字母变成大将字符串中的字母变成大写写Dim str1 As Stringstr1 = abcConsole.WriteLine(str1.ToUp

41、per)ABCToLower将字符串中的字母变成小将字符串中的字母变成小写写Dim str2 As StringStr2 = ABCConsole.WriteLine(str2.ToUpper)abcLength确定字符串中的字符数确定字符串中的字符数Dim str3 As Stringstr3 = 中国中国Console.WriteLine(str3.Length)2Substring从指定位置截取字符从指定位置截取字符Dim str As Stringstr = 北京奥运会北京奥运会Console.WriteLine(str.Substring(2, 3)奥运会奥运会Insert插入新字符

42、插入新字符Console.WriteLine(str.Insert(3, 2008)北京北京2008奥运会奥运会9.2.4 使用其它方法处理字符使用其它方法处理字符【例【例9-9】向】向C盘下盘下file.txt文本文件中依次写入以下文本：文本文件中依次写入以下文本：Unicode的前的前12个码个码位（位（0到到127）对应于标准美国键盘上的字母和符号。显示输出，并可以指定截）对应于标准美国键盘上的字母和符号。显示输出，并可以指定截取字符、添加字符和统计字数。取字符、添加字符和统计字数。Private Sub Insert_Click(ByVal sender As System.Objec

43、t, ByVal e As System.EventArgs) _Handles Button1.Click 输入文本事件输入文本事件 FileOpen(1, c:file.txt, OpenMode.Output) 打开指定文件打开指定文件 PrintLine(1, RichTextBox1.Text) 写入文本写入文本 FileClose(1)End SubPrivate Sub Input_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button2.Click 输出文本事件输出文本事

44、件 Dim str1 As String FileOpen(1, c:file.txt, OpenMode.Input) 打开指定文件打开指定文件 Input(1, str1) RichTextBox2.Text = str1 FileClose(1)End Sub9.2.4 使用其它方法处理字符使用其它方法处理字符Private Sub CountCharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e _As System.EventArgs) Handles CountCharToolStripMenuItem.

45、Click Dim ch As Integer MsgBox(RichTextBox2.Text.Length)End SubPrivate Sub SubCharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e _As System.EventArgs) Handles SubCharToolStripMenuItem.Click Dim m, n As Integer m = InputBox(请输入截取起始位置：请输入截取起始位置：) n = InputBox(请输入截取字符数：请输入截取字符数：) MsgBox

46、(RichTextBox2.Text.Substring(m, n)End SubPrivate Sub InsertCharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e _As System.EventArgs) Handles InsertCharToolStripMenuItem.Click Dim i As Integer Dim str As String i = InputBox(请输入添加字符位置：请输入添加字符位置：) Str = InputBox(请输入添加字符：请输入添加字符：) RichTex

47、tBox2.Text = RichTextBox2.Text.Insert(i, str)End Sub9.3 使用使用My.Computer.FileSystem对象访问文件对象访问文件在在VB 2005中，引入了一个全新的概念中，引入了一个全新的概念My.Computer.FileSystem对象，它提供了可简化文件对象，它提供了可简化文件I/O的访问方的访问方法和属性。法和属性。这一节主要介绍这一节主要介绍My.Computer.FileSystem对象访问文件的方法。对象访问文件的方法。9.3.1 My.Computer.FileSystem对象简介对象简介My命名空间是命名空间是VB

48、 2005中的一项新功能，它提供了简单而直观的中的一项新功能，它提供了简单而直观的方法来访问大量方法来访问大量.NET Framework类，从而使类，从而使VB程序员能够与计算程序员能够与计算机、应用程序、设置、资源等进行交互。机、应用程序、设置、资源等进行交互。My提供了几个完全不同提供了几个完全不同的类：的类：My.Application、My.Computer、My.Forms、My.Resources、My.Settings、My.User和和My.WebServices。其中其中My.Computer对象提供用于处理计算机组件（如音频、时钟、对象提供用于处理计算机组件（如音频、时钟

49、、键盘、文件系统等）的属性。键盘、文件系统等）的属性。My.Computer对象可以完成许多任对象可以完成许多任务，例如确定远程计算机是否可用、上传务，例如确定远程计算机是否可用、上传/下载文件、从剪贴板中下载文件、从剪贴板中读取数据、将音频保存到剪贴板等。读取数据、将音频保存到剪贴板等。My.Computer对象提供了许对象提供了许多属性，例如多属性，例如Audio、Clipboard、FileSystem、Keyboard、Network等。其中等。其中My.Computer.FileSystem对象提供用于处理驱对象提供用于处理驱动器、文件和目录的属性及方法。动器、文件和目录的属性及方法

50、。VB 2005通过通过使用通过通过使用My.Computer.FileSystem对象可以非常方便快捷的访问文件，包对象可以非常方便快捷的访问文件，包括读取数据、写入数据、复制等等操作。括读取数据、写入数据、复制等等操作。 9.3.2 My.Computer.FileSystem对象常用的属性对象常用的属性和方法和方法My.Computer.FileSystem对象提供了许多属性。见表。对象提供了许多属性。见表。My.Computer.FileSystem对象还提供了许多方法。见表。对象还提供了许多方法。见表。属性名属性名说明说明CurrentDirectory获取当前目录获取当前目录Dri