怎样一行一行的读写文件?

Question

怎样一行一行的读写文件?读取的时候方便.最好给个例子,谢谢

Answer 1

Line Input # 语句
      从已打开的顺序文件中读出一行并将它分配给 String变量。语法Line Input #filenumber, varnameLine Input # 语句的语法具有以下几个部分：部分 描述 
filenumber 必要。任何有效的文件号。 
varname 必要。有效的 Variant 或 String 变量名。 
说明通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。Line Input # 语句示例
本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。Dim TextLine
Open "TESTFILE" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Debug.Print TextLine   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。

Answer 2

Open CommonDialog1.filename For Input As #1    ' 打开文件。
  Do While Not EOF(1)   ' 循环至文件尾。
     Line Input #1, TextLine    ' 读入一行数据并将其赋予某变量。
     Print TextLine   ' 在立即窗口中显示数为什么总是提示找不到文件?

Answer 3

CommonDialog1.filename 没有赋值

Answer 4

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim x As String
x = CommonDialog1.FileName
Open x For Input As #1    ' 打开文件。
  Do While Not EOF(1)   ' 循环至文件尾。
     Line Input #1, TextLine    ' 读入一行数据并将其赋予某变量。
     Print TextLine
     Loop
End Sub

Answer 5

或者：
先
    Dim fsoLPSS As New FileSystemObject
    Dim ttsLPSS As TextStream
再
    ttsLPSS.WriteLine strLineData

Answer 6

以下是一个原始文件读取方法：
dim linetext as stringopen app.path & "\A.txt" for input as #1do until EOF(1)
   input #1, linetext
   open app.path & "\B.txt" for append as #2
   write #2, linetext
   close #2
loopclose #2