温州医学院 vb第八章.pptVIP

第8章 文件 8.1 文件管理控件 文件管理控件-重要属性 8.1.1 盘驱动器列表框控件 Page 225 例8-1 在窗体上设计一个盘驱动器列表框控件Drive1 、一个标签控件Label1。程序启动时当前驱动器为C:盘; 选择盘驱动器列表框中的盘符,在标签上显示相应的当前驱动器信息. 8.1.2 目录列表框控件 注意: Path属性值最后一个字符是否为”\”,取决于目录列表框的当前目录是否为根目录. 相关代码可看书上230页. Page 228 例8-2 8.1.3 文件列表框控件 Private Sub Drive1_Change() 例子 Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 综合应用 Page 231 例 8-3 在窗体上建立一个盘驱动器列表框Driver1 、 目录列表框Dir1 、文件列表框File1 、影像框 Image1,运行时选择File1中所列的图片文件,则 相应图片显示在影像框Image1中. 8.3 数据文件的操作 8.3.2 文本文件的顺序访问 1.打开文件 Open 文件路径和名称 for Mode As #文件号 Mode: Input: 打开文件、只读 Output: 打开文件 、只写 Append: 打开文件、在文件末尾追加数据 8.3.2 文本文件的顺序访问 8.3.2 文本文件的顺序访问 8.3.2 文本文件的顺序访问 8.3.2 文本文件的顺序访问 综合应用 Page 240 例 8-11 例8-11: 找出1000之内的素数写入文件 d:\aaa\su.dat,然后输入若干个数,通过在该 文件中查找这些数是否存在的方法, 判断它 们是否为素数. * * 在应用程序中，当我们遇到诸如“打开文件”、”保存文件”等涉及目录和文件的操作时，最常用的方法是调用通用对话框控件。但有时我们可能需要自己来设计一些具有独特风格的文件操作界面。为此，VB提供了三个文件管理控件，它们是盘驱动器列表框(DriveListBox) 、目录列表框(DirListBox)和文件列表框(FileListBox)。 File1.Pattern = *.BMP 显示的文件类型 文件列表框 Pattern MsgBox File1.FileName 选定的文件名 文件列表框 FileName Dir1.Path = C:\WINDOWS 包含当前路径 目录和文件列表框 Path Drive1.Drive = C 选定的驱动器名 驱动器列表框 Drive 示 例 作 用 适用的控件 属 性 Pattern属性能够在设计时设置，而Drive，Path和FileName属性只能在运行时设置，不能在设计状态设置。 A. 文件 文件是数据信息在磁盘上的一种存储结构.为保存数据,需要把数据以文件的形式保存在磁盘,磁带等存储介质中.计算机系统中的不同文件以不同的文件标识符区分,文件标识符 即文件全名,由存储路径、主名、扩展名 3部分组成. B. 文件的访问类型 ： 顺序型文件. 随机型文件. 二进制型文件. 2.写入命令 Print #文件号，[输出列表] 例8-9利用Print # 语句直接把数据写入文件。 保存文本框Text1到文件TEST.TXT. 例子 方法1：Open TEST.TXT For Output As #1 Print #1, Text1 ‘一次性地写入文件 Close #1 2.写入命令 Write #文件号，[输出列表] 以紧凑格式存放，数据项之间插入逗号并给字符串加双引号。 例如， One,Two,123 例8-10利用Write #语句把数据写入文件。 3. 关闭文件 Close [[#]文件号][, [#]文件号]... 例如， Close #1 Close #1, #2, #3 4. 读顺序文件 INPUT #文件号,变量列表 例子 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 例子 读一行到变量中，主要用来读取文本文件。 Sa=INPUT$(读取字符数,#文件号) 例子 随意读取字符 5. 函数 LOF(文件号)：返回文件的长度(总字节数)。 EOF(文件号)：判断文件指针是否到达文件尾。例子 指针在文件尾时，EOF函数为True，否则为False。 读文本文件d.