全国计算机二级vb课件第10章

1、1 本学期最后一次作业 为了不断提高我的教学水平，改进教学方法，改正教学过程中的不当，希望你们多给我提提建议。因此，希望每个人写一份对我这学期教学的过程、方法、表现的评价。用稿纸即可。 谢谢！2 复习：1.Open语句 Open “file1.txt” for Input as #12.Close语句3.Print语句、Write语句4.Input语句、Line Input语句、Input函数3第10章 文 件10.1 操作文件的控件10.2 文件及其结构 10.3 顺序文件10.4 随机文件10.5 二进制文件本章总结4例：一个文件管理器的界面10.1 操作文件的控件驱动器列表框（Drive

2、 ListBox）目录列表框（ Directory ListBox）文件列表框（File ListBox）5 常用属性：Name Drive属性 ：在程序运行中使用。返回用户所选(单击)驱动器。可在程序中用赋值语句改变其值。 对象.Drive = drive 例：Drv1.Drive=“C”常用事件： Change事件 重新设置Drive属性引发Change事件10.1.1 驱动器列表框6 常用属性：Name Path属性:设置或返回目录列表框中当前目录. 只能在程序代码中设置(运行时属性). 对象.Path = pathname例：Dir1. Path=“C:ProgramVB5”10.1.

3、2 目录列表框7 常用事件: Change事件 重新设置Path属性引发Change事件 注意:单击目录列表框中某一项目,此项突出显示,但并没改变Path值,只有双击才会改变Path值.10.1.2 目录列表框8常用属性：Name1) Path属性：设置或返回文件列表框中所显示文件的路径. 只能在程序代码中设置(运行时属性). 对象.Path = pathname 重新设置Path属性引发“PathChange”事件, 且文件列表框内容被更新,显示由Path属性指定目录的文件.10.1.3 文件列表框92) Pattern属性：设置运行时显示的文件类型。 既可在属性窗口设置，也可在程序代码中设

4、置。默认为“*.*”, 即所有文件. 对象.Pattern = value 重新设置Pattern属性引发“PatternChange”事件。 例如：File1.Pattern = “*.frm” 表示只显示*.frm文件10.1.3 文件列表框103) FileName属性(运行属性) 对象.FileName = pathname 注意：引用时仅仅返回文件名，需用Path属性得到其路径；但用赋值语句设置时可带路径 例：FilFile1.FileName = “C:Config.sys” 这时,文件列表框的Path属性也会改变.10.1.3 文件列表框114)文件列表框的 Click、DblC

5、lick事件： 例1：单击输出文件名。Sub File1_Click( ) MsgBox File1.FileNameEnd Sub 例2：双击执行可执行程序Sub File1_DblClick( ) RetVal = Shell(File1.FileName, 1) End Sub10.1.3 文件列表框12文件系统控件组合使用的核心代码：Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd Sub例10-1 end of 1

6、0.11310.2 文件及其结构文件：存储在外部介质上数据的集合。按名存取1.记录: 由若干个相互关联的数据项组成。例如：由学生的学习成绩信息组成的记录：数据项学号姓名数学成绩语文成绩物理成绩总分14按存取方式 及组成结构分类顺序文件随机文件2. 文件及其种类 文件是记录的集合按数据编码方式分类ASCII码文件二进制文件10.2 文件及其结构15(1) 顺序文件 按顺序依次把记录写入文件；按顺序依次把记录读出来。 文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。记录1记录2. 记录N文件结束标志10.2 文件及其结构16(2) 随机文件 随机文件可以直接访问文件中的任意一个记录

7、。记录长度相同, 根据记录号访问每条记录。#1 记录1#2 记录2. #N 记录N10.2 文件及其结构17(3) ASCII码文件数据是以ASCII码进行编码储存的。(4) 二进制文件(Binary File)数据是以二进制格式进行编码保存的。 end of 10.210.2 文件及其结构181. 打开文件10.3 顺序文件 Open 文件名 For 模式Access 操作类型锁定 As #文件号 Len=记录长度(1)模式Output:写入操作Input：读出操作Append:追加到文件未尾(2)操作类型 Read：只读 Write：只写 ReadWrite：读写皆可19(3) 锁定Sha

8、red(缺省)Lock ReadLock WriteLock Read Write(4) 文件号:1511 可以用FreeFile函数获得下一个可利用的文件号。10.3 顺序文件 Open 文件名 For 模式Access 操作类型锁定 As #文件号 Len=记录长度20(5) 记录长度 小于或等于32767的整数。它指定数据缓冲区的大小。例如，打开C:VBdata1.txt，供写入数据，指定文件号为#1。 命令为： Open C:VBdata1.txt For Output As #1注意：P278说明10.3 顺序文件 Open 文件名 For 模式Access 操作类型锁定 As #文

9、件号 Len=记录长度212. 写入命令（1）Print 命令Print #文件号，输出列表10.3 顺序文件 输出列表的意义同Print方法。 例10-222（2）Write 命令 Write #文件号，输出列表10.3 顺序文件 输出列表：用“,”分隔的表达式。以紧凑格式存放，即在数据项之间插入“,”并给字符串加上双引号。例如，命令： Write #1, One, Two, 123 内容：One, Two, 123 例10-3233. 关闭文件 Close #文件号,#文件号.10.3 顺序文件例如: Close #1 Close #1, #2, #3命令Close作用：关闭所有已打开的文

10、件。244. 读顺序文件（三种格式） 格式一： 把读出的每个数据项分别存放到所对应的变量。 注意：要用此命令读顺序文件，必须要求此文件中的数据应先用命令Write命令写入。Input #文件号,变量列表10.3 顺序文件25例如文件Test.dat内容为： One” , Two” , 123 Open Test.dat For Iutput As #1 Input #1，str1,str2,num 例10-6 10.3 顺序文件Input #文件号,变量列表26 格式二：读一行到变量中，主要用来读取文本文件。Line Input #文件号,字符串变量Input$(读取字符数,#文件号)10.3

11、 顺序文件 格式三：随意读取字符。 例10-727 5. 读文件（包括随机、二进制）时常用的重要函数 LOF(文件号) 返回文件的长度(总字节数)。 EOF(文件号) 文件结束：返回True(-1) 否则：False(0)。10.3 顺序文件28 LOC(文件号) 返回读写位置。 随机文件：返回最近读写的记录号； 二进制文件：返回最近读写的一个字节的位置； end of 10.310.3 顺序文件2910.4 随机文件1.打开 Open 文件名 For Random As #文件号 Len=记录长度2.写操作 Put #文件号，记录号，变量名 将一个记录变量的内容写到指定的记录位置处。忽略记录

12、号，则表示在当前记录后的位置插入一条记录。3010.4 随机文件3.读操作 Get #文件号，记录号，变量名 忽略记录号，则读出当前记录后的那一条记录。31自定义类型 格式: Type 自定义类型名 元素名(下标) As 类型名 元素名(下标) As 类型名 End Type 10.4 随机文件32例: 类型定义： Type StudType iNo As Integer strName As String*20 strSex As String*1 sMark(1 To 4) As Single Stotal as Single fTag as Boolean End Type 变量说明： Dim Student1 AS StudType10.4 随机文件33自定义变量引用格式： 变量名. 元素名例: Student1. iNo=102 Student1. strName=“王小丽” end of 1010.4 随机文件34