第四篇文件操作.pptVIP

3. 读顺序文件：打开→读取→关闭 ①打开现存的顺序文件 Open pathname For Input As #filenumber [Len=buffersize] Pathname：文件路径名 Filenumber：文件号 Len：指定缓冲区大小 ②读顺序文件 Line Input #文件号, 变量名 Input #文件号, 变量列表 Input(字符数, [#]文件号) ③关闭文件 Close [#] [文件号], [#] [文件号]…… [例] 用Line Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim NextLine As String Open t1.txt For Input As #1 打开文件 Do While Not EOF(1) 循环至文件尾 Line Input #1, NextLine 读入一行数据 Print NextLine Loop Close End Sub [例] 用Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open t1.txt For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop Close End Sub 4.写顺序文件：打开→写入→关闭 ① 打开/创建顺序文件 Open pathname For Output As #filenumber [Len=buffersize] 功能：向文件中写入数据 Open pathname For Append As #filenumber [Len=buffersize] 功能：在文件尾追加记录 若文件不存在，系统将先创建再打开 ② 写顺序文件 Print #filenumber, [outputlist] Write #filenumber, [outputlist] 与Print #不同的是，Write #可在数据项之间自动插入逗号 [例] 先创建C:\temp.txt，然后读出并显示该文件内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open c:\temp.txt For Append As #1 Write #1, Ding Xiao, 25, 男 写入以逗号隔开的数据 Write #1, Wang Xiao, 23, 女 Close Open c:\temp.txt For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop End Sub * Visual Basic 6.0 程序设计 * Visual Basic 6.0 程序设计 * 第4章 文件 本章要点： 文件的结构与分类。 文件操作语句和函数。 顺序文件读写操作。 随机文件打开与读写操作、记录的添加、删除与显示。 文件系统控件。 通用对话框的使用。 4.1项目 档案管理之信息存储 4.1.1【项目目标】 设计完成档案管理中的信息存储。将学生档案信息保存在文本文件中，也可以将已经保存好的文件内容显示出来 4.1项目 档案管理之信息存储 4.1.2【项目分析】 修改“档案管理”窗口，添加通用对话框、驱动器列表框、目录列表框、文件列表框和一个命令按钮。 单击“保存信息”按钮，打开保存文件对话框，选择保存路径并输入文件名（默认扩展名为TXT文件类型），将用户输入的信息进行保存。 单击“重新输入”按钮，用户可以重新输入档案信息。 需要显示已经存在的文件信息时，可以通过从驱动器列表框中选定驱动器名，目录列表框中选定当前文件路径，文件列表框中选定文件名后，单击“显示信息”按钮，将选定的文件信息显示在右侧标签中。 4.1项目 档案管理之信息存储 4.1.3【项目实现】 1.程序界面设计 2.界面对象属性设置 3.编写对象事件过