《计算机应用基础》(二)-Visual Basic程序设计课件8.文件

文件教学目标熟悉VB的文件操作，包括基本文件操作控件：驱动器列表框、目录列表框与文件列表框。熟悉常用的文件操作语句和函数。熟悉文件的结构与分类以及文件的基本操作（打开、读/写及关闭）。文件系统控件驱动器列表框驱动器列表框（DriveListBox）

是下拉式列表框，是一种能显示系统中所有有效磁盘驱动器的列表框，用户可以单击列表框右侧的箭头从列出的驱动器列表中选择当前驱动器。其默认控件名是Drivel。驱动器列表框缺省时在最上端显示当前驱动器。运行时，用户可在该控件上输入任何有效的驱动器标识符，或单击列表框右侧的箭头，从下拉列表中选取定新的驱动器，选定的驱动器出现在列表框的顶端。驱动器列表框的重要属性驱动器列表框除了具有与其它控件相同的基本属性，还有其特有的重要属性——Drive属性。Drive属性返回或设置运行时选择的驱动器，默认为当前驱动器。Drive属性在设计时不能通过属性窗口设置，只能在程序中用代码被设置。代码语法格式为：驱动器列表框对象的名称.Drive[=驱动器名]驱动器名称可以是任何一个有效的字符串表达式，该字符串的第一个字母必须是一个有效的磁盘驱动器符号，如“C:\”或“D:\”，但只有第一个字符有效。例如，要在窗体启动时把当前磁盘改为D盘，可使用如下代码：PrivateSubForm_Load()Drive1.Drive=“D:\”'将当前选择的驱动器变成D盘并在目录列表框显示EndSubDrive属性的有效驱动器包括运行时控件创建的和刷新时系统已有的，或连接到系统上的所有驱动器。设置Drive属性时要注意：（1）驱动器字符不分大小写；（2）改变Drive属性的设置会触发Change事件；（3）选择不存在的驱动器会产生错误。（4）改变当前工作驱动器，也可以通过ChDrive

语句来实现，但并不在驱动器列表框显示。例如:ChDrive"c"'改变当前驱动器为C盘驱动器列表框的重要事件驱动器列表框的重要而常用的事件是Change事件，在选择了一个新的驱动器或通过代码改变驱动器列表框的Drive属性的设置时发生Change事件。驱动器列表框的默认名称为Drive1，其Chang事件过程的开头为Drive1_Change()。目录列表框目录列表框：用于显示当前驱动器上的目录结构及当前目录下所有子目录，供用户选择其中的某个目录作为当前目录，其默认控件名是Dirl。它从根目录开始显示当前驱动器的目录结构，并按层次关系缩进根目录下的所有子目录。当前目录的子目录都用关闭的文件夹表示，而它的上级目录则用打开的文件夹表示。双击打开的目录可将其关闭，其中的子目录不再显示出来，并且目录的图标变成一个关闭状的文件夹。目录列表框只列出系统的目录结构，不能显示目录中的文件。目录列表框中只能显示当前驱动器上的目录。如果要显示其他驱动器上的目录，必须改变路径，即重新设置目录列表框的Path属性。目录列表框的重要属性目录列表框除了具有与其它控件相同的基本属性，还有其特有的重要属性。（1）Path属性该属性设置或返回运行时选择的完整路径（包括驱动器盘符），默认路径为当前路径。设置Path属性就相当于改变了目录列表框的当前目录，会触发它的Change事件。在设计时不能通过属性窗口设置Path属性，只能在程序中用代码被设置，即只能在程序运行时使用。其格式如下：[目录列表框的对象名称.]Path[=文件路径的字符串表达式]目录列表框的重要事件Change事件：程序运行时，双击一个目录项或通过代码改变目Path属性的设置时触发目录列表框的Change事件。文件列表框文件列表框：是一个带滚动条的列表框，用来显示当前目录中的部分或全部文件。其默认控件名是Filel。文件列表框的重要属性1.Path属性：Path属性用来设置或返回列表框中所显示文件的目录，在设计时不可用。文件列表框常与目录列表框和驱动器列表框一起使用。在目录列表框的Change事件中添加如下语句：File1.Path=Dir1.Path即可将目录列表框与文件列表框关联起来，当在目录列表框中选择一个目录时，文件列表框中会自动同步显示出该目录中的所有文件。2.FileName属性：用户选定的文件名不含路径，一般与Path属性组合使用。3.Pattern属性：文件列表框可以显示的文件类型。例如：Filel.Pattern=“*.TXT”‘只显示所有文本文件Filel.Pattern=＂*.*＂‘显示所有文件文件列表框的重要事件（1）PathChange事件。当路径被代码中的FileName或Path属性的设置所改变时，此事件就发生。既可使用PathChange事件来响应文件列表框中路径的改变。（2）PatternChange事件。当文件的列表样式，如“*.*”被代码中对FileName或Path属性的设置所改变时，此事件就发生。既可使用PatternChange事件过程来响应文件列表框中样式的改变。（3）Click事件。在文件列表框中单击，选中所单击的文件，将改变Listlndex属性值，并将FileName的值设置为所单击的文件名字符串。（4）DbClick事件。文件列表框能识别双击事件，常用于对所双击的文件进行处理。常用文件操作语句和函数1.Name语句语法：NameoldpathnameAsnewpathname功能：重新命名一个文件。2.FileCopy语句语法：FileCopysource,destination功能：复制一个文件。3.Kill语句语法：Killpathname功能：从磁盘中删除文件。4.MkDir语句语法：MkDirpath功能：创建一个新的目录或文件夹。5.ReDir语句语法：ReDirpath功能：删除一个现已存在的目录或文件夹。6.ChDrive语句语法：ChDriveDrive功能：改变当前驱动器。7.CurDir函数语法：CurDir[(Drive)]功能：返回一个字符串，用来代表当前的路径。8.ChDir语句语法：ChDirPath功能：改变当前目录。文件结构与分类

文件：存储在外部介质上数据的集合

——按名存取

磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录：数据项（1）按照文件中数据的编码方式不同，分为ASCII文件和二进制文件。（2）按照数据的存取方式和结构不同，分为顺序文件和随机文件。（3）按照数据的性质不同，分为程序文件和数据文件。文件的分类顺序文件顺序文件是普通的文本文件。记录按顺序一个接一个地排列;读出或写入记录时，都必须按顺序逐个进行;记录可长可短。随机文件每个记录的长度相同;每个记录都有其唯一的一个记录号；根据记录号可以直接访问文件中的任意一个记录。顺序文件

从第一条到最后一条记录顺序读写访问扩展名为TXT或DAT的文本文件

写文件的步骤：读文件的步骤：打开文件写入关闭文件打开文件读出关闭文件读到内存写入硬盘顺序文件的打开模式：Output

对文件进行写操作(内存→磁盘)

Append

追加记录(在文件的尾部追加记录)

Input

对文件进行读操作(磁盘→内存)

文件号：1~511之间的整数。例如：

Open"C:\Temp\A.Txt"ForInputAs#1Open"C:\Temp\B.Txt"ForOutputAs#2Open"C:\Temp\C.Txt"ForAppendAs#3站在内存的角度来理解”模式”Open”文件名”For存取方式

As#文件号文件的关闭

Close[[#]文件号][，[#]文件号]……文件号，如：#1,#2,#3，如果省略，则将关闭所有已经打开的文件。例如：

Close#1,#2,#3Close与文件有关的函数FreeFile()

返回尚未被占用的文件号LOF（文件号）返回用Open打开的文件分配的字节数。若为0是空文件

FileLen（文件号）返回某个未打开的文件分配的字节数。EOF（文件号）返回逻辑值，表示文件指针是否达到文件末尾。Loc（文件号）返回指定文件的当前读/写位置。Seek（文件号)

在Open语句打开的文件中返回当前的读/写位置。顺序文件的写操作

Print命令(重点掌握)

Print#文件号,[输出列表]如：Print#1,”Abc”;”HIJ”,123

Write命令

Write#文件号，[输出列表]

如：Write#2,”Abc”,”HIJ”,123

Write语句采用紧凑格式。数据项之间插入“,”，并给字符数据加上双引号。例

Print与Write语句输出数据结果比较。PrivateSubForm_Click()DimStr$,Anum%Open"D:\Myfile.dat"ForOutputAs#1

Str="ABCDEFG"

Anum=12345

Print#1,Str,

Anum

Print#1,Str;

Anum

Print#1,Str;Tab(30);

Anum

Write#1,Str,

Anum

Close

#1EndSub例:把文本框Mytxt的内容，写入文件Myfile.dat中。方法1：把整个文本框的内容一次性地写入文件。

OpenApp.Path+

“\Myfile.dat"For

Output

As#1

Print#1,Mytxt.Text

Close

#1

方法2：把整个文本框的内容一个字符一个字符地写入文件。

Open“.\Myfile.dat"ForOutputAs#1

Fori=1ToLen(Mytxt.Text)

Print#1,Mid(Mytxt.Text,i,1);

Nexti

Close#1OpenApp.Path+"\aa.txt"ForInputAs#1Open".\aa.txt"ForInputAs#1作用相同，都是从当前文件夹中打开相应文件格式1

Input#语句

(重点掌握)

Input#文件号，变量列表功能：读取文件中的数据项，并将读出的数据按顺序赋值给变量列表中的变量顺序文件的读操作格式2LineInput#语句

(重点掌握)LineInput#文件号，字符串变量功能：读取文件中的一行字符并将其赋值给一个字符串变量例：将文本文件MYFILE.TXT的内容读到文本框Text1中。

Text1.Text＝""

Open“D:\myfile.txt"ForInputAs#1

DoWhileNotEOF(1)

LineInput

#1,s

Text1.Text＝Text1.Text&

s&vbCrLf

Loop

Close#1判断是否到达文件末尾