VisualBasic实用教程薛亮第9章.ppt

第9章 文 件 操 作,9.1 文件及其结构 9.2 驱动器、目录和文件列表框 9.3 文件系统对象模型 9.4 传统的方式操作文件 习题九,9.1 文件及其结构,1记录 记录是计算机处理数据的基本单位，它由若干个相互关联的数据项组成。在数据处理中，表示一件事或一个人的某些属性就可构成一个记录。例如，进行学生成绩统计时，每个学生的学习成绩等信息组成一个记录，它由学号、姓名、各科成绩、总分、名次等数据项组成，格式如图9.1所示。,图9.1 记录格式,2文件及其种类 文件是记录的集合，例如，某班有100个同学，则100个同学的记录组成了一个学生成绩文件。 按照文件的存取方式及组成结构可以把文件分为顺序文件和随机文件两类。 (1) 顺序文件(Sequential File)。顺序文件是一种文件结构相对简单的文件，适应于大量数据的成批处理。顺序存取是指首先把记录依次写进一个文件中，需要时再按顺序依次把记录逐个读出来，也就是记录的存取次序与它在文件中的实际次序相一致。例如，必须先读出前面99个记录，才可读出第100个记录，写入也是如此。顺序文件存取记录的排列形式如图9.2所示。,图9.2 顺序文件的记录排列格式,顺序文件的缺点是：如果要修改数据，必须将所有数据读入RAM中进行修改，然后再将修改好的数据重新写入磁盘，它不能随机存取数据。它的优点是所占的空间少，而且容易使用。,(2) 随机文件(Random Access File)。对随机文件可以直接访问文件中的任意一个记录。例如，要读记录号为100的记录时，不必先读出前面的99个记录，可按记录号100直接进行存取。文件中记录的排列形式如图9.3所示。,图9.3 随机文件的记录排列格式,在这种文件中，每个记录的长度都是相同的，只要给出记录号，就可以直接访问某个记录，所以这种文件的存取速度相当快。 随机文件的优点是存取数据快速，更新容易，缺点是占用的空间较大，程序设计较烦。 按照文件的数据编码方式可将文件分为两类： (1) ASCII码文件，文件中数据是以ASCII码进行编码储存的。 (2) 二进制文件(Binary File)，文件中数据是以二进制格式进行编码存储的。它以字节数来定位数据，允许程序按所需的任何方式组织和访问数据，二进制文件可允许对文件中各字节数据进行存取访问和改变。这类文件灵活性较大，但编程工作量也较大。,9.2 驱动器、目录和文件列表框,1驱动器列表框 驱动器列表框是一种下拉式列表框，平时只显示当前驱动器名称，单击其右边的向下箭头，就会下拉出该计算机所拥有的所有磁盘驱动器，供用户选择。驱动器列表框有一个Drive属性，在运行时返回或设置所选定的驱动器。Drive属性不能在设计状态时设置，只能在程序中被引用或设置。其形式如下： 对象.Drivedrive,2目录列表框 目录列表框显示当前驱动器的目录结构及当前目录下的所有子目录，供用户选择其中的某个目录作为当前目录。在目录列表框中，如果用鼠标双击某个目录，就会显示出该目录下的所有子目录。例如，在执行时用鼠标双击根目录就会显示出根目录下所有子目录，若要查看Windows子目录结构，只需双击Windows目录。 目录列表框只能显示出当前驱动器下的子目录，如果要显示其它驱动器下的目录结构，则必须重新设置目录列表框上的Path属性。Path属性用来返回或设置当前路径，不能在设计状态时设置。它适用于目录列表框和文件列表框，其形式如下： 对象.PathPathname,如果窗体上同时建立了驱动器列表框和目录列表框，在DrvDrive_Change事件过程中加入一行语句： dirDirectory.PathdrvDrive.Drive，就可以产生同步效果，即当在驱动器列表框中改变驱动器，目录列表框中的内容立即同步跟着改变。因为，当在驱动器列表框drvDrive中改变了驱动器时，drvDrive.Drive属性改变，触发了drvDrive_Change事件，执行dirDirectory.pathDrvDrive.Drive语句，dirDirectory.Path属性改变就意味着目录列表框dirDirectory的内容改变了，立即显示刚刚被选定的驱动器的目录结构。,3文件列表框 文件列表框是一种列表框，显示当前驱动器中当前目录下的文件目录清单。文件列表框也有Path属性，表示列表框中显示的文件所在的路径。每次重新设置Path属性都会引发“path_Change”事件。文件列表框的Pattern属性返回或设置文件列表框所显示的文件类型。该属性值为具有通配符的文件名字符串，既可以在设计时设置，也可以在程序中改变。缺省值为“*.*”，显示所有文件。其形式如下： 对象.Patternvalue,例如，如果执行了filFile.Pattern=“*.bmp“语句，filFile文件列表框中只显示 .bmp文件。 文件列表框还有一个它特有的属性FileName。FileName用来返回或设置被选定文件的文件名和路径。该属性在设计状态不能使用，其形式如下： 对象.FileNamepathname 其中，对象为文件列表框名称，Pathname为一个指定文件名及其路径的字符串。,【例9-1】 下面的事件过程是当在文件列表框中单击某个文件名时，输出该文件的文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub 如果要实现在文件列表框中双击某个可执行文件时就能执行该可执行文件，则必须要有如下的过程： Sub filFile_DblClick( ) RetValShell(filFile.FileName，1) End Sub Shell函数的作用是执行程序。,文件列表框还有Archive、Normal、Hidden、System、ReadOnly属性。这几种属性表示在应用程序运行期间，文件列表框显示何种类型的文件，它们都是逻辑型属性。 Archive为True表示显示文档文件； Normal为True表示显示正常标准文件； Hidden为True表示显示隐含文件； System为True表示显示系统文件； ReadOnly为True表示显示只读文件。 如果仅仅要显示系统文件，则设置System属性为True，其它属性为False。,驱动器列表框、目录列表框和文件列表框必须组合起来使用，才能构成一个文件管理系统。但是要使它们之间能产生同步效果，还要在dirDirectory_Change事件过程中加入语句： filFile.Path=dirDirectory.Path。,图9.4 文件控件示例,9.3 文件系统对象模型,Visual Basic的一个新功能是FSO(File System Object)对象模型。该模型提供了一个基于对象的工具来处理文件夹和文件。这使得用户除了使用传统的Visual Basic语句和命令之外，还可以使用熟悉的带有一整套属性、方法和事件的Object.Method语法处理文件夹和文件。FSO对象模型使得对文件的处理变得更加简单，不用考虑文件类型，只需调用带有属性、方法和事件的Object.Method语法来处理文件。FSO对象模型的属性方法如表9.1所示。,表9.1 FSO对象模型的对象及其描述,图9.5 Scripting类型库,使用FileSystemObject文件系统对象模型的步骤如下： (1) 声明对象模型变量，并创建一个对象。可使用CreateObject方法，或将一个变量声明为FileSystemObject对象模型来创建一个FileSystemObject对象。 将一个变量声明为FileSystemObject对象类型的形式为： Dim fso As New FileSystemObject 使用CreateObject方法创建一个FileSystemObject对象的形式为： Set fso=CreateObject(“Scripting.FileSystemObject“) 上面的语法中，Scripting是类型库的名称，而FileSystemObject则是想要创建一个实例对象的名称。,(2) 对新创建的对象使用适当的方法并访问其属性。其方法为 Dim fso As New FileSystemObject,fil As File Set fil =fso.GetFile(“c:test.txt“) 如果用CreateFile方法创建了一个新的文件夹，就只需给CreateFolder函数设置一个变量来获取创建文件夹的句柄，然后就可以访问其属性、方法和事件。,【例9-2】 创建一个文件，并显示文件的名字，程序运行结果如图9.6所示。,图9.6 创建文件,Private Sub Command2_Click( ) Dim fso As New FileSystemObject, fil As File Set fil = fso.GetFile(“d:test.txt“) MsgBox “The name of the file “ & fil.Name End Sub,FSO对象模型使应用程序能够创建、改变、移动和删除文件，或者检测是否存在指定的文件，如果存在，指出在什么地方。FSO对象模型也能使用户获取关于文件的信息，诸如名称、创建日期或最近修改日期等等。,9.3.1 访问驱动器对象 1获得驱动器的信息 Drive对象允许获得一个系统的各个驱动器的信息，包括物理驱动器或者网络虚拟驱动器。通过该对象的属性可以获得下列信息： (1) 以字节表示的驱动器总空间(TotalSize属性)。 (2) 以字节表示的驱动器可用空间(AvailableSpace或FreeSpace属性)。 (3) 为驱动器指定的符号(DriveLetter属性)和驱动器类型，诸如可移动的、固定的、CD-ROM或者RAM盘(DriveType属性)。,(4) 驱动器序列号(SerialNumber属性)。 (5) 驱动器使用的文件系统类型，如FAT，FAT32，NTFS等(FileSystem属性)。 (6) 驱动器是否可用(IsReady属性)。 (7) 共享和卷标的名称(ShareName和VolumeName属性)。 (8) 驱动器的路径或根文件夹(Path和RootFolder)。,图9.7 驱动器显示信息,2Drive对象的使用 下面举例说明如何使用Drive对象收集有关驱动器的信息。 【例9-3】使用GetDrive方法获得对已有驱动器的引用，并访问此对象的属性，用一个信息框显示出来，显示结果如图9.7所示。,Private Sub Command1_Click( ) Dim fso As New FileSystemObject, drv As Drive, s As String Set drv = fso.GetDrive(fso.GetDriveName(“c:“) s = “Drive“ & UCase(“c:“) & “-“ s = s & drv.VolumeName & vbCrLf s = s & “Total Space:“ & FormatNumber(drv.TotalSize / 1024, 0) s = s & “Kb“ & vbCrLf s = s & “Free Space:“ & FormatNumber(drv.FreeSpace / 1024, 0) s = s & “Kb“ & vbCrLf MsgBox s End Sub,9.3.2 访问文件夹,表9.2 文件夹的操作方法列表,【例9-4】 对文件夹对象进行操作的示例。 Private Sub Command2_Click( ) 获得FileSystemObject的实例 Dim fso As New FileSystemObject, fldr As Folder, s As String 获得Folder对象 Set fldr = fso.GetFolder(“c:“) 打印父文件夹名 Print “Parent folder name is:“ & fldr 打印驱动器名 Print “Container on drive“ & fldr.Drive 打印根文件名 If fldr.IsRootFolder = True Then,MsgBox “This folder is a root folder“ Else MsgBox “This folder is not a root folder“ End If 用FileSystemObject对象创建一个新的文件夹 fso.CreateFolder (“c:Bogus“) Print “Created folder c:Bogus“ 打印文件夹的基本名称 Print “Basename=“ & fso.GetBaseName(“c:Bogus“) 删除新建的文件夹 fso.DeleteFolder (“c:Bogus“) End Sub,9.3.3 访问文件 通过FSO对象，在Visual Basic中就可以直接操作文件，而且不考虑文件类型就可以移动、复制和删除文件。 文件的操作主要有两类： (1) 创建、移动、复制和删除文件。 (2) 添加、移动数据和阅读文件。,1用FileSystemObject创建文件并添加数据 文本文件一经创建，就可以向其中加入数据。 (1) 打开文本文件以备写入数据，使用FSO对象模型有两种创建文本文件的方法。 使用CreateTextFile方法： Dim fso As New FileSystemObject, fil As File Set fil = fso.CreateTextFile(“c:testfile.txt“, True) 创建一个空文本文件 使用OpenTextFile方法 Dim fso As New FileSystemObject, ts As New TextStream Set ts = fso.OpenTextFile(“c:test.txt“, ForWriting),(2) 打开已有文件也有下面两种方法： FileSystemObject对象的OpenTextFile方法。 File对象的OpenAsTextStream方法。 Dim fso As New FileSystemObject, fil As File, ts As TextStream Set fso = CreateObject(“Scripting.FileSystemObject“) fso.CreateTextFile (“test1.txt“) Set fil = fso.GetFile(“test1.txt“) Set ts = fil.OpenAsTextStream(ForWriting),(3) 写入数据。向打开的文本文件中写入数据，可以使用TextStream对象的Write或WriteLine方法。它们之间的惟一差别是WriteLine在指定的字符串末尾添加换行符。 (4) 关闭文件使用TextStream对象的方法Close( )。,【例9-5】 文件对象操作示例。 Sub create_file( ) Dim fso, txtfile Set fso = CreateObject(“Scripting.FileSystemObject“) Set txtfile = fso.CreateTextFile(“c:testfile.txt“, True) 写入一行 txtfile.Write (“This is a test“) 写入带有换行的文本 txtfile.WriteLine (“Testing 1 2 3“) 写入三个换行符 txtfile.WriteBlankLines (3) txtfile.Close End Sub,2使用FileSystemObject读取文件 从一个文本文件中读取数据，可使用TextStream对象的Read、ReadLine或ReadAll方法，其差别如表9.3所示。,表9.3 TextStream对象的读方法,【例9-6】 读取文件的实例。 Sub Read_file( ) Dim fso As New FileSystemObject, txtfile, fill As File, ts As TextStream Set txtfile = fso.CreateTextFile(“c:testfile.txt“, True) MsgBox “正在写入文件“ 写入一行 Set fill = fso.GetFile(“c:testfile.txt“) Set ts = fill.openAsTextStream(ForWriting) ts.Write “Hello World“ ts.Close 读取文件内容 Set ts = fill.OpenAsTextStream(ForReading) s = ts.ReadLine MsgBox s ts.Close End Sub,3. 移动、复制和删除文件 对于文件的移动、复制和删除，FSO对象模型提供了两种方法，如表9.4所示。,表9.4 文件的移动、复制和删除方法,【例9-7】 在C盘的根目录下创建了一个文本文件，并向其中写入一些信息，然后将该文件移至一个tmp目录下，同时复制到一个叫temp的目录中，最后删除该文件在这两个目录中的拷贝。(要运行本例，首先确认根目录下存在目录tmp和temp。) Sub manip_File( ) Dim fso As New FileSystemObject, txtfile, fil1, fil2 Set txtfile = fso.CreateTextFile(“c:test.txt“, True) MsgBox “写入文件“ 写入一行 txtfile.Write (“This is a test“) 关闭写入的文件 txtfile.Close MsgBox “移动文件到c:tmp“, 获得根目录下的一个文件句柄 Set fil1 = fso.GetFile(“c:test.txt“) fil1.Move (“c:tmptest.txt“) MsgBox “复制文件到c:temp“ fil1.Copy (“c:temptest.txt“) MsgBox “删除文件“ Set fil1 = fso.GetFile(“c:tmptest.txt“) Set fil2 = fso.GetFile(“c:temptest.txt“) fil1.Delete fil2.Delete MsgBox “Its OK“ End Sub,【例9-8】 使用TreeView控件和文件系统模型显示系统的文件列表。 TreeView控件是一个ActiveX控件，需要从Project-Component中选择Microsoft Windows Common Controls 6.0。 系统文件列表显示结果如图9.8所示。,图9.8 系统文件列表,Option Explicit Dim FSOX As New FileSystemObject 声明一个文件系统对象模型变量 Dim NodeX As Node 声明一个TreeView控件的节点变量 Dim DriveX As Drive 声明驱动器变量 Dim FolderX As Folder 声明文件夹变量 Dim FileX As File 表单初始化事件编写 Private Sub Form_Load( ), On Error Resume Next 添加一个根节点 Set NodeX = TreeView1.Nodes.Add(, , “computer“, “My Computer“, “mycpt“) NodeX.Tag = False 添加第二层目录：驱动器 For Each DriveX In FSOX.Drives Set NodeX = TreeView1.Nodes.Add(“computer“, tvwChild, DriveX.Path,_ DriveX.DriveLetter & “: “, “drv“) NodeX.Tag = False If DriveX.DriveType = CDRom Then NodeX.Image = “cd“ If DriveX.DriveType = Removable Then NodeX.Image = “flpy“,If DriveX.IsReady Then NodeX.Text = NodeX.Text & DriveX.VolumeName NodeX.Tag = False 设置第三层目录：文件夹 For Each FolderX In DriveX.RootFolder.SubFolders Set NodeX = TreeView1.Nodes.Add(DriveX.Path, tvwChild, FolderX.Path,_ FolderX.Name, “fld“) NodeX.Tag = True Next 设置第四层目录：文件 For Each FileX In DriveX.RootFolder.Files,Set NodeX = TreeView1.Nodes.Add(DriveX.Path, tvwChild, FileX.Path & _ FileX.Name, FileX.Name, “file“) NodeX.Tag = False Next End If Next End Sub 表单尺寸调整时事件响应 Private Sub Form_Resize( ) 调用TreeView控件的移动方法 TreeView1.Move 0, 0, form1.Width - 100, form1.Height - 100 End Sub, TreeView控件节点当激活响应事件的编写 Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If Node.Tag Then 展开文件夹列表 For Each FolderX In FSOX.GetFolder(Node.Key).SubFolders Set NodeX = TreeView1.Nodes.Add(Node.Key, tvwChild, FolderX.Path,_ FolderX.Name, “fld“) NodeX.Tag = True Next 展开文件列表,For Each FileX In FSOX.GetFolder(Node.Key).Files Set NodeX = TreeView1.Nodes.Add(Node.Key, tvwChild, FileX.Path & FileX.Name,_ FileX.Name, “file“) NodeX.Tag = False Next Node.Tag = False End If End Sub,9.4 传统的方式操作文件,9.4.1 顺序文件 将数据写入顺序文件，通常有三个步骤：打开、写入和关闭。从顺序文件读数据到内存具有相似的步骤：打开、读出和关闭，只是打开文件语句(Open)中的模式不同。 1打开文件 在对文件进行任何操作之前，必须打开文件，同时要通知操作系统对文件进行读操作还是写操作，将数据存到什么地方。打开文件的命令是Open，其格式如下： Open “文件名“ For模式Access操作类型锁定 As # 文件号 Len=记录长度,说明： 模式为下列三种形式之一。 (1) OUTPUT：将数据写入文件，对文件进行写操作。 INPUT：将数据从磁盘读入内存中，对文件进行读操作。 APPEND：将数据追加到文件末尾。,(2) 操作类型将规定对打开的文件进行操作的类型，操作类型有下列三种。 READ：只读。 WRITE: 只写。 READWRITE：读写皆可。,(3) 锁定用于多进程环境中，以指定允许其它进程对本次打开的文件进行的操作类型。锁定有下列4种类型。 Shared(缺省)：共享，允许其它任何进程对该文件进行读写操作。 LockRead：禁止其它进程对该打开的文件进行读操作。 LockWrite：禁止其它进程对该打开的文件进行写操作。 LockReadWrite：禁止其它进程对该打开的文件进行读写操作。,(4) 文件号是一个介于1511之间的整数，当打开一个文件并为它指定一个文件号后，该文件号就代表该文件，直到文件被关闭后，此文件号才可以再被其它文件使用。在复杂的应用程序中，可以利用FreeFile函数获得下一个可利用的文件号。 (5) 记录长度是一个小于或等于32 767的整数，它指定数据缓冲区的大小。例如，如果要打开C:VB目录下一个文件名为SCORE的文件供写入数据，指定文件号为#1，则命令应为 Open “C:VBSCORE“FOR OUTPUT As #1,2写入命令 将数据写入磁盘文件所用的命令是WRITE或PRINT命令，其格式有下面两种。 格式一：Print #文件号，输出列表 格式一中的输出列表是指Spc(n) | Tab(n)表达式列表;|,。,【例9-9】 把整个文本框的内容一次性地写入文件。 Open “TEXT.DAT“ For Output As #1 Print #1.txtTest.Text Close #1 格式二：Write #文件号，输出列表,格式二中的输出列表一般是指用“，”分隔的数值或字符串表达式。Write#的功能基本上与Print#语句相同，区别在于Write#是以紧凑格式存放，即在数据项之间插入“，”，并给字符串加上双引号。例如，Write #1，“One“，“Two“，123语句就把以下字符写入到文件(包括标点符号)： “One“，“Two“，123,3关闭文件 在对文件进行读写操作之前必须首先打开文件，为文件指定操作类型以及给文件指定一个文件号。当结束各种操作以后，还必须关闭文件，否则会造成数据丢失等现象。因为实际上Print#或Write#语句是将数据送到缓冲区，关闭文件时才将缓冲区中数据全部写入文件。关闭文件所用的命令是Close，其格式如下： Close #文件号, #文件号. 例如，Close#1，#2，#3命令是关闭1号、2号和3号文件。Close命令会执行清除缓冲区的工作，释放全部与被关闭文件有关的Visual Basic缓冲区。在Close命令中如果省略了文件号，则会关闭所有已经打开的文件。,4读顺序文件 与写顺序文件一样，在读顺序文件之前需将文件用OPEN打开，打开时文件工作模式指定为“INPUT”。打开文件后，就可以对文件进行读操作，有三种格式： 格式一：INPUT #文件号，变量列表 格式二：LINEINPUT #文件号，字符串变量 格式三：INPUT$(读取字符数，#文件号) (1) 第一种格式读出数据后，将每个数据项分别存放到所对应的变量中去。变量的类型与文件内数据类型一致。,(2) 第二种格式“LINEINPUT #”与第一种格式不同，它不把逗号当作分界符，只以ENTER或RETURN字符做为分界符。这种格式主要用来读取文本文件。 (3) 第三种格式“INPUT”不考虑分界符的存在，可以随意读取数据中的字符，只要告诉它要读取多少个字符就可以了。,(4) 与读文件(包括随机文件、二进制文件)有关的重要函数有三个：LOF、LOC和EOF函数。 LOF函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 LOC函数将返回在一个打开文件中读写的位置。对于随机文件，它将返回最近读写的记录号；对于二进制文件，它将返回最近读写的一个字节的位置；对于顺序文件，它将返回在文件中当前字节位置除以128所得的值(注意：对于顺序文件LOC函数的值没有什么用处)。, EOF函数，EOF函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，EOF函数返回True(-1)，否则返回False(0)。对于顺序文件用EOF函数来测试是否到文件尾，对于随机文件和二进制文件，当最近一个执行的GET语句无法读到一个完整记录时返回True(-1)，否则返回False(0)。 将一个文本文件的内容读入文本框有下面三种方法。我们假定文本框名称为txtTest，文本文件名为MYFILE.TXT。,(1) 把文本文件的内容一行一行地读入文本框。 txtTest.Text = “ Open “MYFILE.TXT“ For Input As #1 Do While Not EOF(1) Line Input #1, InputData trtTest.Text = txtTest.Text + InputData + vbCrLf Loop Close #1,(2) 把文本文件的内容一次性地读入文本框。 TxtTest.Text = “ Open “MYFILE.TXT“ For Input As #1 TxtTest.Text = Input(LOF(1), 1) Close #1,(3) 把文本文件的内容一个字符一个字符地读入文本框。 Dim InputData As String * 1 txtTest.Text = “ Open “MYFILE.TXT“ For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text = txtTest.Text + InputData Loop Close #1,9.4.2 随机文件 在文件中以顺序文件方式进行存取数据很方便，也很常用，但是在需要大量查找或修改文件中的数据时会带来很大的困难，而采用随机文件方式存取数据就显得比较方便，因为随机文件是以记录为单位，给每条记录赋予了记录号以便查找。用户在对随机文件进行访问时，只要指定记录号便可检索到任一个记录。,1随机文件的打开与关闭 (1) 打开随机文件的语法格式如下： Open “文件名“ For Random As #文件号 Len=记录长度 对随机文件的打开，读和写都是相同模式，即随机文件只要打开一次就可以同时写入与读出。另外，在Open语句中要指明记录的长度，记录长度的缺省值是128个字节。 (2) 关闭随机文件与关闭顺序文件相同。,2随机文件的读写操作 打开随机文件以后，就可以进行读写操作。 (1) 写操作。随机文件的写操作使用Put命令，其格式如下： Put #文件号，记录号，变量名 说明: (1) Put命令将一个记录变量的内容写入所打开的磁盘文件中指定的记录位置处。 (2) 记录号是大于1的整数，表示写入的是第几条记录。如果忽略记录号，则表示在当前记录后的位置插入一条记录。,【例9-10】 利用Type命令定义Record数据类型，然后建立一个记录类型为Record的随机文件。 Dim MyRecord As Record Open “TESTFILE“ For Random As #1 Len = Len(MyRecord) For RecordNumber = 1 To 5 MyRecord.ID = RecordNumber MyRecord.Name = “My Name“ Put #1, RecordNumber, MyRecord Next RecordNumber Close #1,(2) 读操作。对随机文件的读操作使用Get命令，其格式如下： Get #文件号，记录号，变量名 说明 (1) Get命令是从磁盘文件将一条由记录号指定的记录内容读入记录变量中。 (2) 记录号为大于1的整数，表示对第几条记录进行操作。如果忽略记录号，则表示读出当前记录后的那一条记录。,【例9-11】 用Get命令读出上例建立的随机文件中的第三条记录。 Dim MyRecord As Record Open “TESTFILE“ For Random As #1 Len = Len(MyRecord) Position = 3 Get #l, Position, MyRecord Print MyRecord.ID; Name Close #l,9