Visual Basic程序设计 教学课件 作者 黄津津 第7章 文 件.pptVIP

1．打开文件 向随机文件“读/写数据”可以用以下方式打开文件： 语句格式： Open 文件名 [For Random] As [#] 文件号[Len=记录长度] 2．关闭文件 与顺序文件一样，随机文件操作完毕后，应及时将其关闭。 用Close语句（或Reset语句）关闭打开的文件。 1．随机文件的写操作 一 Put #语句 Put #语句的功能是将变量内容写到打开的随机文件或二进制访问的文件中去。 语句格式： Put #文件号，[记录号]，变量 2．随机文件的读操作 一 Get #语句 Get #语句的功能是将打开文件中的数据读入到变量中。 语句格式： Get #文件号，[记录号]，变量 1．添加记录 在随机文件中增加一条记录，实际上就是在文件尾部添加一条记录。问题的关键是如何确定随机文件中最后一条记录号是什么？可以利用下面的公式求得： 最后一条记录的记录号 = 文件长度 / 记录长度 通过LOF函数可以获取打开的文件的长度。多字段记录类型变量的长度就是记录的长度，可以利用Len函数求得，即：记录长度 = Len(记录类型变量) 而单字段记录的长度显而易见。最后一条记录的记录号+1，就是要添加的记录的位置。 2．删除记录 在随机文件中删除一条记录，有两种做法： （1）把要删除记录的下一条记录写到要删除的记录位置，其后所有记录依次前移。这样要删除的记录内容不复存在，但是文件的最后两条记录相同，文件中记录数没有减少。 （2）打开一个临时文件，将原文件中所有不删除的记录一条一条地复制到临时文件中去。删除原文件后，重新命名临时文件。 当使用文件时，二进制访问模式可以提供最大的灵活性。二进制存取可以获取任何一个文件的原始字节。任何类型的文件（顺序文件或随机文件）都可以以二进制访问模式打开。 二进制存取模式与随机存取模式一样使用Get #语句获取数据，用Put #语句写人数据。二进制存取模式与随机存取模式的不同之处是：二进制存取可以定位到文件中任一字节位置，而随机存取要定位在记录的边界上。二进制存取从文件中读取数据或向文件中写入数据的字节长度取决于Get #语句或Put #语句中变量的长度，而随机存取方式读写固定个数的字节（一条记录的长度）。 对二进制访问模式的文件进行读操作时，除用函数EOF判断文件是否结束外，还可以结合使用LOF和LOC两个函数确定文件是否结束。LOF函数返回文件的长度，LOC函数返回文件指针的当前位置。当LOF的值等于LOC的值时，则表明文件已读完。 在许多应用程序中，当打开文件或将数据存入磁盘时，需要显示有关磁盘驱动器、目录和文件等信息。为使用户能够利用系统控件，建立类似文件管理的窗口界面，Visual Basic提供了两种选择。可以使用由Windows操作系统提供的CommonDialog控件标准对话框，或者使用Visual Basic提供的三种可直接浏览系统目录结构和文件的特殊的控件：驱动器列表框、目录列表框和文件列表框等。通常可将它们组合起来使用，创建与文件操作有关的自定义对话框。 图 7-9 驱动器列表框 文件列表框 目录列表框 驱动器列表框是一个下拉式列表框。缺省状态时，顶端突出显示用户系统当前驱动器名称。当用户单击列表框右侧的箭头时，列表框下拉列出系统所有的有效驱动器名称（图7-10）。当驱动器列表框获取焦点时，用户可以键入任何有效的驱动器标识符，或者单击列表框右侧箭头，再从下拉列表框中选择一个新的驱动器，则指定的或选中的驱动器名字就会出现在列表框的顶端。 图7-10 驱动器列表框 ( a ) ( b ) 1．常用属性 （1）Name属性 驱动器列表框的Name属性通常以“Drv”作为前缀。缺省值为“Drive 1”。 （2）Drive属性 Drive属性用于返回用户在驱动器列表框中选取的驱动器。Drive属性是一个运行时属性，不能在属性窗口中设置。在应用程序中，可以通过赋值语句改变Drive属性值，从而指定出现在列表框顶端的驱动器。 2．常用事件 当用户在驱动器列表框的下拉列表中选择一个驱动器，或者输入一个合法的驱动器标识符，或者在程序中给Drive属性赋一个新的值，都会改变列表框顶端显示的驱动器名，Change事件就会发生，并激活Change事件过程。因此，可以在驱动器列表框控件的Change事件过程中，使用Drive属性来更新目录列表框中显示的目录，以保证被显示的目录总是当前驱动器下的目录。 3．ChDrive语句 ChDrive语句的功能是改变当前工作驱动器。 语句格式： ChDrive Drive 目录列表框显示用户系统的当前驱动器的目录结构，并突出显示当前目录。目录列表框中按目录结构层次逐层排列，层层缩进的方式显示了从