VB 第11章文件.ppt

Visual Basic 6.0 程序设计VB 基础篇第四章 文件 1计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 第四章 文件 文件:是指存储在外部设备上（如硬 盘、软盘和光盘等）的相关信息的 集合 2计算机应用基础计算机应用基础Visual Basic 6.0 程序设计文件4.1 文件的基本概念 4.2 常用的文件函数 4.3 文件应用实例3计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 4.1 文件的基本概念根据不同的分类标准，文件可以分为不 同的类型 根据存放数据的性质 程序文件数据文件 4计算机应用基础计算机应用基础Visual Basic 6.0 程序设计文件的基本概念程序文件 .exe、.bas、.frm 数据文件数据文件 存放学生信息 存放课程信息 存放教师信息 5计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 文件的基本概念根据数据的编码方式 ASCII码文件 二进制文件 6计算机应用基础计算机应用基础Visual Basic 6.0 程序设计文件的基本概念ASCII码文件又称为文本文件。

文本 文件可以通过字处理软件打开，而二 进制文件是不能用字处理软件打开的 7计算机应用基础计算机应用基础Visual Basic 6.0 程序设计文件的基本概念文件的访问模式 顺序访问模 式 随机访问模 式 二进制访问模 式 8计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 4.1.1 顺序文件顺序文件的读取只能从头开始，顺序 的读出文件的内容读取的单位为行 ，即一次可以读取一行，行与行的分 割符号为“换行符” 操作打开 读取或写入 关闭 9计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 1. 打开顺序文件语法格式为：Open 文件名 For Input/Output/Append As [#]文件号 其中“文件名”参数为字符串类型，指 定文件的路径与文件名 10计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 参数“Input/Output/Append” 决定文件的打开方式 关键字对文件的操作Input从文件读入数据如果文件不存在， 则会出错Output把数据写到文件中如果文件不存在 ，则创 建新文件如果文件已存在， 覆盖文件中原有的内容Append追加数据到文件的末尾，不覆盖文件 原来的内容。

如果文件不存在，则创 建新文件11计算机应用基础计算机应用基础Visual Basic 6.0 程序设计“文件号”参数是1~511之间的整数 “#” 可以省略VB要求文件号是惟一的打 开文件之后，对文件的操作均要通过文 件号进行一个被占用的文件号不能再 用于打开其他的文件文件号不要求连 续使用，也不要求第一个打开的文件一 定为112计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 2. 关闭文件语法格式为： Close [[#] 文件号1，[[#]文件号2，…]] 13计算机应用基础计算机应用基础Visual Basic 6.0 程序设计关闭文件关闭文件释放占用的系统资源释放占用的系统资源写缓冲区中的信息写缓冲区中的信息释放文件号释放文件号14计算机应用基础计算机应用基础Visual Basic 6.0 程序设计关闭文件这个命令可以关闭任何一种以Open 语句打开的文件Close语句一次可 以关闭多个文件不带任何参数的 Close语句可以关闭所有以Open语句 打开的文件 15计算机应用基础计算机应用基础Visual Basic 6.0 程序设计3. 写顺序文件使用Output 或 Append 关键字打开文 件以后即可写入相应值. •Print # 语句 语法格式为：Print # 文件号，一个或多个参数 16计算机应用基础计算机应用基础Visual Basic 6.0 程序设计写顺序文件(2) Write # 语句 语法格式为：Write # 文件号，一个或多个参数 17计算机应用基础计算机应用基础Visual Basic 6.0 程序设计写顺序文件例:下面的事件过程在文件 d:\myfirst.txt中输出四行文字 ,中间两个空行18计算机应用基础计算机应用基础Visual Basic 6.0 程序设计写顺序文件Write# 语句与 Print # 语句的语法完 全相同，但是输出到文件的结果不一 样。

19计算机应用基础计算机应用基础Visual Basic 6.0 程序设计4. 读顺序文件 (1) Line Input # 语句该语句是整行读 入语句 语法格式为：Line Input # 文件号，字符串变量 20计算机应用基础计算机应用基础Visual Basic 6.0 程序设计读顺序文件Line Input # 语句一次读入一整行 数据作为一个字符串，赋予指定的 字符串变量 这个语句把一行中所有界定符、分 割符都当成字符串的组成部分但 读入的内容不包含行末的回车符与 换行符21计算机应用基础计算机应用基础Visual Basic 6.0 程序设计读顺序文件例: 下面的程序段以Input 方式打开前 例中生成的文件d:\myfirst.txt,并依次 把文件中的字符读入字符串变量strl中 ，然后显示到窗体上22计算机应用基础计算机应用基础Visual Basic 6.0 程序设计读顺序文件23计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 读顺序文件(2) Input # 语句 语法格式为：Input # 文件号，一个或多个变量24计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 读顺序文件Input # 语句一次可以读入一项或多 项内容依次赋给相应的变量。

要求变 量的类型与文件中相应数据项的类型 一致若类型不同，VB 作默认的转 化，无法转换时产生“类型不匹配”错 误此语句读入数据不受回车换行符 的影响25计算机应用基础计算机应用基础Visual Basic 6.0 程序设计读顺序文件因为Input#语句在读入数据时是按文 件中的分割符来区分数据项的，所以 应该用Input#语句来读Write#语句产 生的数据如果用Input#语句读入由 Print # 产生的数据，可能会出现不可 预料的结果26计算机应用基础计算机应用基础Visual Basic 6.0 程序设计读顺序文件例: 下面的两个事件过程分别完成对顺序 文件的写和读的操作27计算机应用基础计算机应用基础Visual Basic 6.0 程序设计读顺序文件28计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 4.1.2 随机文件随机文件的格式要求: 1. 数据分为一个个等长的单元 2. 每个单元包含多个数据项 3. 各单元中数据项数目相等 4. 对应数据项类型相同 数据不会转换成字符形式，而是直 接以二进制形式存放29计算机应用基础计算机应用基础Visual Basic 6.0 程序设计随机文件当使用文本方式打开随机文件时，那 些数据项会变得不可识别。

在随机文 件中，一个单元称为一个记录,单元中 的每个数据项称为一个字段或域,字段 由字符构成，字符包含西文和中文字 符 30计算机应用基础计算机应用基础Visual Basic 6.0 程序设计随机文件1. 打开随机文件 2. 写随机文件 3. 读随机文件31计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 1. 打开随机文件语法格式为： Open 文件名 For Random As [#]文件号 Len=记录长度32计算机应用基础计算机应用基础Visual Basic 6.0 程序设计打开随机文件For Random:以随机方式打开，默 认方式，可以省略 可读可写不存在则新建文件 “文件号”:意义与顺序文件相同 “记录长度”:指定一条记录的长度 （以字节为单位）可以使用Len 函数计算其大小 33计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 2. 写随机文件语法格式为：Put[#]文件号，[记录号]，表达式 记录号：指定数据的写入位置 省略：则写到当前位置 表达式：写入文件中的值34计算机应用基础计算机应用基础Visual Basic 6.0 程序设计写随机文件表达式存储空间>记录长度,否则出错。

一般情况下，“表达式”是自定义类型变量 名，变量的各个元素就是这条记录的各个 字段在写操作时，如果该记录上已经有 数据，则会被新的内容覆盖，其他记录的 内容不受影响 35计算机应用基础计算机应用基础Visual Basic 6.0 程序设计3. 读随机文件语法格式为：Get[#]文件号，[记录号]，变量名 记录号：指定要读入随机文件中的第 几条记录若省略指当前记录 变量名：存放读出的数据36计算机应用基础计算机应用基础Visual Basic 6.0 程序设计随机文件例： 下面的程序使用自定义数据类 型对随机文件进行读写37计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 4.1.3 二进制文件二进制文件访问模式与随机文件访 问模式类似，区别在于访问二进制文 件是以字节为单位，而随机文件是以 记录为单位打开二进制文件以后可 以同时进行读写操作二进制文件在 多媒体信息处理中使用较多，通常用 以存放声音、图像或动画信息38计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 1. 打开二进制文件Open 文件名 For Binary As [#]文件号For Binary :以二进制方式打开 “文件号”:意义与顺序文件相同。

39计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 2. 写/读二进制文件Put[#]文件号,,表达式（写） Get[#]文件号,,变量名（读）40计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 二进制文件41计算机应用基础计算机应用基础Visual Basic 6.0 程序设计4.2 常用的文件函数1. LOF函数 语法：LOF（文件号） 该函数返回文件号所对应数据文件的 长度，长度的单位为Byte 使用本函数之前，必须先用Open语句 将该数据文件打开42计算机应用基础计算机应用基础Visual Basic 6.0 程序设计常用的文件函数2. EOF函数 （常用于顺序文件 ） 语法：EOF（文件号） 在读取数据文件中的数据时，可使用 该函数来判断文件的指针是否已指到 文件的结尾如果已指到文件结尾， 表示数据已读完，该函数返回为True ，否则False 43计算机应用基础计算机应用基础Visual Basic 6.0 程序设计常用的文件函数3. FreeFile函数 语法：FreeFile 功能：该函数会返回一个文件号， 此文件号从未使用的文件号中选最 小值。

44计算机应用基础计算机应用基础Visual Basic 6.0 程序设计 4.3 文件应用实例本小节的实例是对文件中的数据进行 排序使用“记事本”建立一个文本文件 old.txt，在文件中输入以逗号分隔的任 意多个整数 (见下图) 45计算机应用基础计算机应用基础Visual Basic 6.0 程序设计文件应用实例46计算机应用基础计算机应用基础Visual Basic 6.0 程序设计文件应用实例排序比较排序法比较排序法选择排序法选择排序法47计算机应用基础计算机应用基础Visual Basic 6.0 程序设计比较法的原理第一趟: 先拿数组的第一个元素I(1)与第二个 元素I(2)进行比较，如果I(1)大于I(2) 则交换之，如果I(1)不大于I(2)就什 么也不做 48计算机应用。