第四章文件操作解析.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,