第9章文件 58页.pptVIP

第九章 文 件 9.1 文件的概念 一、文件及其结构 文件：存储在外部介质上数据的集合。按名存取 磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。 9.2 文件系统控件 （4）文件属性： Archive：True，只显示文档文件； Normal：True，只显示正常标准文件； Hidden：True，只显示隐含文件； System：True，只显示系统文件。 ReadOnly：True，只显示只读文件。 （6）List、ListCount 和 ListIndex 属性 文件列表框中的List、ListCount 和 ListIndex 属性与列表框（ListBox）控件的List、ListCount 和 ListIndex 属性的含义和使用方法相同，在程序中对文件列表框中的所有文件进行操作，就有用到这些属性。 例如，下段程序是将文件列表框（File1）中的所有文件名显示在窗体上。 For i = 0 To File1.ListCount - 1 Print File1.List(i) Next i 2. 主要事件 （1）PathChange事件 当路径被代码中FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PathChange事件过程来响应FileListBox控件中路径的改变。当将包含新路径的字符串给FileName属性赋值时，FileListBox控件就调用PathChange事件过程。 （2）PatternChange事件 当文件的列表样式，如：*.*，被代码中对FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PatternChange事件过程来响应在FileListBox控件中样式的改变。 （3） Click、DblClick事件： 例如：单击输出文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub 例如：双击执行可执行程序 Sub File1_DblClick( ) Dim Fname As String If Right(file1.path,1) =\ Then Fname=file1.path file1.filename Else Fname=file1.path \ file1.filename End If RetVal = Shell(Fname, 1) ‘ 执行程序 End Sub 9.3.2 顺序文件的读写操作 例9.1 Print与Write语句输出数据结果比较。 Private Sub Form_Click() Dim Str As String, Anum As Integer Open D:\Myfile.dat For Output As 1 Str = ABCDEFG Anum = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub 例9.2 编程把一个文本框中的内容，以文件形式存入磁盘。 假定文本框的名称为Mytxt，文件名为Myfile.dat。 方法1：把整个文本框的内容一次性地写入文件。 Open Myfile.dat For Output As #1 Print #1, Mytxt.Text Close #1 方法2：把整个文本框的内容一个字符一个字符地写入文件。 Open Myfile.dat For Output As #1 For i=1 To len(Mytxt.Text) Print #1,Mid(Mytxt.Text,i,1); Next i Close #1 2. 顺序文件读操作 从现存文件中读入数据，应以顺序Input方式打开该文件。然后使用 Input# 语句、Line Input# 语句和Input( )函数读入到程序变量中。 使用格式如下： INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 读一行到变量中，主要用来读取文本文件。 INPUT$(读取字符数, #文件号) 读取指定的数量的字符，作为函数的返回值。