新Visual Basic 6.0程序设计教程 第4版 普通高等教育“十一五”国家级规划教材 教学课件 罗朝盛 第8章 文件及应用.pptVIP

第8章 文件及应用 8.1 文件的概念 一、文件及其结构 文件：存储在外部介质上数据的集合。按名存取 磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。 8.1 文件的概念 8.1 文件的概念 8.1 文件的概念 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 8.2 文件系统控件 （4）文件属性： Archive：True，只显示文档文件； Normal：True，只显示正常标准文件； Hidden：True，只显示隐含文件； System：True，只显示系统文件。 ReadOnly：True，只显示只读文件。 8.2 文件系统控件 （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 8.2 文件系统控件 2. 主要事件 （1）PathChange事件 当路径被代码中FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PathChange事件过程来响应FileListBox控件中路径的改变。当将包含新路径的字符串给FileName属性赋值时，FileListBox控件就调用PathChange事件过程。 （2）PatternChange事件 当文件的列表样式，如：*.*，被代码中对FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PatternChange事件过程来响应在FileListBox控件中样式的改变。 8.2 文件系统控件 （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 8.3.2 顺序文件的读写操作 例8.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 例8.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方式打开该文