湖南农业大学：《Visual Basic程序设计》课程教学资源（PPT课件讲稿）第十章 文件

第十章文件

第十章 文件

本章主要内容 !有关文件系统控件的应用 !文件结构、文件的访

有关文件系统控件的应用 文件结构、文件的访问 本章主要内容

10.1文件系统控件 VB中提供了三个文件系统控件 驱动器列表框:一个下拉式列表框,用于显示和选择驱动 用 主要属性:[对象习]Dⅳe=驱动器名 主要事件: Chang 目录列表框:显示和选择当前驱动器的目录结构和所有子 目录 主要属性:[对象>Poh=<路 主要事件: Change 文件列表框:显示和选择当前目录下所有文件。 主要属性:Poh、用 eName、Pate 参见例10-1

10.1 文件系统控件 ◆ VB中提供了三个文件系统控件 –驱动器列表框：一个下拉式列表框，用于显示和选择驱动 用。 ◆主要属性： [.]Driver= ◆主要事件：Change –目录列表框：显示和选择当前驱动器的目录结构和所有子 目录。 ◆主要属性： [.]Path= ◆主要事件：Change –文件列表框：显示和选择当前目录下所有文件。 ◆主要属性： Path、FileName、Pattern 参见例10-1

10.2文件及其结构 ◆文件:指存储在计算机外部介质上一组相关信息的集合,计 算机的操作系统是以文件为单位对数据进行管理的。 ◆文件的基本操作:读(从文件中读取信息)、写(将信息写 入文件中)。 ◆关于文件的几个概念 字符:数据文件中的最小单位,如单个的字节、数字、字 符等。 字段:一般由若干个字符组成的一项独立的数据,如学生 的学号、姓名、年龄等均为字段。 记录:由若干个相关字段组成的一个逻辑单位,如学生的 学号、姓名、年龄等多个字段组成一个记录。 文件:是由一个以上、结构相同的相关记录的集合,如一 个班的所有学生记录组成一个文件

10.2 文件及其结构 ◆ 文件：指存储在计算机外部介质上一组相关信息的集合，计 算机的操作系统是以文件为单位对数据进行管理的。 ◆ 文件的基本操作：读（从文件中读取信息）、写（将信息写 入文件中）。 ◆ 关于文件的几个概念： – 字符：数据文件中的最小单位，如单个的字节、数字、字 符等。 – 字段：一般由若干个字符组成的一项独立的数据，如学生 的学号、姓名、年龄等均为字段。 – 记录：由若干个相关字段组成的一个逻辑单位，如学生的 学号、姓名、年龄等多个字段组成一个记录。 – 文件：是由一个以上、结构相同的相关记录的集合，如一 个班的所有学生记录组成一个文件

文件分类 ◆顺序文件:文件中的记录一个接一个存放, 记录长短可不同,访问时只能从第一条记 录访问到最后一条记录(即:只能顺序访 ◆随机文件:每条记录的长度相同,可以按 记录号直接访间文件中的任一记录。(即 可以随机访问) 二进制文件:直接将二进制代码存入文件, 可以按字节随机访问文件中的数据

文件分类 ◆顺序文件：文件中的记录一个接一个存放， 记录长短可不同，访问时只能从第一条记 录访问到最后一条记录（即：只能顺序访 问）。 ◆随机文件：每条记录的长度相同，可以按 记录号直接访问文件中的任一记录。（即： 可以随机访问） ◆二进制文件：直接将二进制代码存入文件， 可以按字节随机访问文件中的数据

10.3文件操作方法 ◆顺序文件的访问步骤 打开文件 读/写文件 关闭文件

10.3 文件操作方法 ◆顺序文件的访问步骤 –打开文件 –读/写文件 –关闭文件

打开文件 ○pen“文件名”「o模式AS[#文件号 ◆其中模式有三种 ○UP吐t:新建或打开一个文件,进行写操作。 文件若存在,则打开,写入信息覆盖原有信息; 文件若不存在,则新建。 npU:打开一个文件,进行写操作。文件必须 存在,否则出错。 Append新建或打开一个文件,进行写操作。 文件若存在,则打开,写入信息追加在原有信 息之后;文件若不存在,则新建。 ◆文件号:是给打开的文件分配一个文件号[大小界 于]至5],此文件号就代表此文件,直到此文件 被关闭,此文件号才能被其他文件使用

–打开文件 Open “文件名” For 模式 As [#]文件号 ◆其中模式有三种 –OutPut:新建或打开一个文件，进行写操作。 文件若存在，则打开，写入信息覆盖原有信息； 文件若不存在，则新建。 –Input:打开一个文件，进行写操作。文件必须 存在，否则出错。 –Append:新建或打开一个文件，进行写操作。 文件若存在，则打开，写入信息追加在原有信 息之后；文件若不存在，则新建。 ◆文件号：是给打开的文件分配一个文件号[大小界 于1至511]，此文件号就代表此文件，直到此文件 被关闭，此文件号才能被其他文件使用

◆读/写文件 写操作 ◆ Print#文件号,[输出列表 ◆ Write#文件号,[输出列表 读操作 ◆ Input#文件号,变量列表‘读出数据赋给变量。 ◆ Line Input#文件号,字符变量'读出一行赋给变量 ◆ Input$(读取的字符数,文件号)读出指定数目的字符 读文件(包括随机文件和二进制文件)的两个重要函数 ◆LOF(#文件号):返回指定文件的字符数(文件长度) ◆EOF(#文件号):文件指针是否到达文件尾。 今关闭文件 Cose[[#]文件号1][,[#]文件号2]

◆ 读/写文件 – 写操作 ◆Print # 文件号，[输出列表] ◆Write # 文件号， [输出列表] – 读操作 ◆Input # 文件号，变量列表 ’读出数据赋给变量。 ◆Line Input # 文件号，字符变量 ’读出一行赋给变量 ◆Input$ （读取的字符数，文件号）’读出指定数目的字符 – 读文件（包括随机文件和二进制文件）的两个重要函数： ◆LOF（#文件号）：返回指定文件的字符数（文件长度） ◆EOF（#文件号）：文件指针是否到达文件尾。 ◆ 关闭文件 Close [[#]文件号1] [，[#]文件号2]……

例10-2顺序文件的写 Private Sub Form_ Click( Open test. txt For Output As #1 Print#1,"123,123 Print#1,"123";123 Write#1,"123,123 Close #F1 End sub

例10-2 顺序文件的写 Private Sub Form_Click() Open "test.txt" For Output As #1 Print #1, "123", 123 Print #1, "123"; 123 Write #1, "123", 123 Close #1 End Sub

例10-3顺序文件的读 Private Sub Form Click( Dim st As String Open. txt For Input As #1 Do While(Not EOF(1) Line Input #1 st Print st Loop Close #1 End sub

例10-3 顺序文件的读 Private Sub Form_Click() Dim st As String Open "test.txt" For Input As #1 Do While (Not EOF(1)) Line Input #1, st Print st Loop Close #1 End Sub