Visual Basic程序设计（第三版）电子教案+源代码（前9章）潘地林 第9章.ppt

第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 第9章 文件 9.5 二进制文件 1. 二进制存取与随机存取 二进制文件与随机文件的存取操作类似，表现在以下两个方式： ⑴不需要在读和写之间切换，对文件既可以读又可以写。 ⑵读写随机文件的语句也可用于读写二进制文件，即： Get|Put #文件号，[位置]，变量 其中“变量”可以是任何类型；“位置”指明下一个Get或Put操作在文件的什么地方进行。 Get语句从文件中读出的字节数等于“变量”的长度；Put语句向文件中写入的字节数与“变量”长度相同。如Get和Put语句中没有指定“位置”，则文件指针每次移过一个与“变量”长度相同的距离。 9.5 二进制文件 2. 文件指针 在二进制文件中，可把文件指针移到文件中任意的位置。文件指针的定位通过Seek语句实现。格式为： Seek #文件号，位置 Seek语句用来设置文件中下一个读或写的位置。“文件号”含义同前；“位置”是一个数值表达式，用来指定下一个要读写的位置。 说明： ⑴对用Binary、Input、Output或Append方式打开的文件，“位置”是从文件开头到“位置”为止的字节数，即执行下一个操作的地址。对用Random方式打开的文件，“位置”是一个记录号。 9.5 二进制文件 2. 文件指针 ⑵在Get和Put语句中记录号优先于由Seek语句确定的位置。 与Seek语句配合使用的是Seek函数，格式为：Seek(文件号) 该函数返回文件指针的当前位置。 对用Binary、Input、Output或Append方式打开的文件，Seek函数返回文件中的字节位置(产生下一个操作的位置)。对用Random方式打开的文件，Seek函数返回下一个要读或写的记录号。 访问二进制文件时，Seek函数与Loc函数给出相似的结果。不同的是Loc函数返回的是最近一次读写过的字节的位置；而Seek函数返回的是下一次要读或写的字节位置。 9.6 常用的文件操作语句和函数 9.6.1 文件操作语句 1.删除文件 可以用Kill语句实现，具体格式如下： Kill 文件名 这里文件名可以包含路径，如执行： Kill C:\WINNT\Temp.dat“ 将删除C盘WINNT目录下的数据文件Temp.dat。 9.6 常用的文件操作语句和函数 9.6.1 文件操作语句 2.文件复制 用FileCopy语句可以把源文件复制到目标文件，复制后两个文件的内容完全一样。 不同目录之间文件的复制，必须给出完整的路径信息。例如： FileCopy C:\Simple1\Source.dat,D:\Simple2\Target.dat 注意：该语句不能复制已经由Visual Basic打开的文件。另外，通过结合使用Kill语句和FileCopy语句，可实现文件的移动操作。 9.6 常用的文件操作语句和函数 9.6.1 文件操作语句 3. 建立和删除目录 在VB中可以通过MkDir语句建立一个目录，RmDir语句删除一个文件目录。例如： MkDir C:\ Firdir 将在C盘创建一个新目录C:\ Firdir（如果目录已经存在了，VB将提示出错），而语句： RmDir C:\ Firdir 将删除C:\ Firdir目录。 9.6 常用的文件操作语句和函数 9.6.2 文件操作函数 1．FreeFile( ) 函数 用FreeFile( )函数可以得到一个在程序中没有使用的文件号。当程序中打开的文件较多时，可以利用这个函数，把未使用的文件号赋给一个变量，并且用这个变量做文件号，而不必知道文件号是多少。其一般格式如下： FreeFile[(rangenumber)] 9.6 常用的文件操作语句和函数 9.6.2 文件操作函数 2．FileLen( ) 函数 此函数返回以PathName参数指定的文件的长度，单位为字节，一般格式如下：FileLen(PathName) 使用该函数，目标文件不要求打开，如果文件已经打