从文件中存取资料.doc

从文件中存取资料 每个程序几乎都要往磁盘上存储数据，这些数据可能是表格、图形、姓名和地址清单、或者是游戏的存储进度。很难想象一个大型的RPG游戏不允许游戏者存盘。这一章将学习关于存储文件的知识。 §1 文本文件，就象盒式磁带机 生成文本文件，使用下列命令： Open Filename For Output As #FileNumber 其中Open告诉Visual Basic生成一个新文件；Filename是文件名（可以包含路径）；For Output表明文本文件要接受程序输出的数据；FileNumber是文件号（1-511之间），Visual Basic很傻，不知道文件名，它只认文件号，程序可能打开多个文件，如果你忘了该生成哪一号文件，你可以用FreeFile函数来得到一个文件号。如： Dim Free As Integer Free = FreeFile Open c:\abe.def For Output As #Free 则生成文件c:\abe.def，Visual Basic替你找一个未用的文件号来代表它。 打开已有的文本文件 Visual Basic不仅仅想知道你要打开文件，它还想知道你打开文件后想做什么。 如果你想从文本文件中读取数据给计算机，则使用下面命令： Open Filename For Input As #FileNumber 如果文件不存在，Visual Basic就会对你的玩笑表示生气，它会发出叫声，然后指出你的错误。 如果你想把数据写到文本文件中，则使用下面命令： Open Filename For Output As #FileNumber 快看这个命令和生成新文件的命令一样！你可以这样理解：如果Visual Basic找不到那个文件，那么它就生成一个新的，如果它找到了，就打开文件并准备向里面写东西。但是如果程序员向已存在的文件内写数据，那么将会把原来的数据覆盖掉。这可要小心！ 如果你想把数据追加写到文本文件中，则使用下面命令： Open Filename For Append As #FileNumber 这种操作也是准备写数据到文本文件中，不过Visual Basic将把数据追加到文件的末尾。 向文本文件中写数据 Print #FileNumber, Text String 将Text String字符串写入#FileNumber代表的文件中，写到什么地方取决于你打开文件的方式。For Output方式写到文件的开头，For Append方式写到文件的末尾。 关闭文件 不论什么时候生成了文本文件或打开了已有的文本文件都要在程序终止前关闭它。否则，可能会出现一些问题，甚至把文件内的数据搞坏。 关闭所有打开的文件，可使用命令：Close 关闭特定的文件，可使用命令：Close #FileNumber 从文本文件中读取数据 首先要用For Input方式打开文本文件，然后可将文件内容赋给一个字符串变量。由于在32位系统中，字符串的容量可达百兆，所以可以简单地把文件的内容赋给一个字符串变量。在16位的系统中读取大文件时，恐怕还要考虑内存的问题。 Dim FileContents As String Open Filename For Input As #FileNumber FileContents = Input(LOF(FileNumber), FileNumber) Close #FileNumber 第三句就可以将文件的所有内容读入FileContents中，LOF函数用以去得文件的长度。 改变文本文件的内容，这是很烦琐的过程，需用下面的步骤。 打开文件。 取出文件内容赋给一个变量。 关闭文件。 编辑变量内容。 打开文件。 变量存入文件。 关闭文件。 §2 随机存取文件，就象CD 文本文件就象盒式磁带机，因为如果你想读取后面的数据就得把前面的数据先放过去。随机存取文件就象CD，因为你可以立即跳至你想听的那一首歌。随机存取文件是以结构（Structure）来存取的，在文件里数据放在一个一个结构里， 每个结构里的数据是一样的。 使用结构（Structure）保存信息 写程序时，也许要生成几个变量来保存信息。如要跟踪如下的信息：姓名、地址、年龄。可以为各信息生成单独的变量，如： Dim Name As String Dim Address As String Dim Age As Integer 然而，Visual Basic看不出这些信息的关联之处，对Visual Basic来说这些信息散乱地堆放在内存中的某个地方，没有很好地组织起来。为了解决这个问题，Visual Basic使用叫做结构（Structure）的东西将分散的东西组织起来。在别的一些语言里这被称为记录类型。如下面的例子： Type