如何打开一个文件，从中读取数据？

Question

请问高手：因初次接触vb，现需解决问题，即：如何打开一个文件，然后从该文件中读出一行行数据，分别写入另一个文件中？万分感谢！！

Answer 1

工程引用中引用microsoft scripting runtimeDim Fs1 As FileSystemObject
Dim File1 As File
Dim Ts1 As TextStream
Dim FilePath1 As String
Dim ReadLine(30) As String 
  Set Fs1 = CreateObject("Scripting.FileSystemObject")
   FilePath1 = "c:\my documents \aaaa.TXT"
   
   
   Set File1 = Fs1.GetFile(FilePath1)
   Set Ts1 = File1.OpenAsTextStream(ForReading, TristateUseDefault)
   
   Do While Not Ts1.AtEndOfStream
      ReadLine(j) = Trim(Ts1.ReadLine)
      j = j + 1
   Loop
   
   
      Set Ts1 = File1.OpenAsTextStream(ForWriting, TristateUseDefault)      Ts1.WriteLine "/r       /y"
    
      Ts1.WriteLine (ReadLine(1))

Answer 2

'引用microsoft script runtimePrivate Sub Command1_Click()    Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream, s As String
    Set file1 = fsoTest.GetFile("c:\a.txt")
    Set ts = file1.OpenAsTextStream(ForReading)
    Do While Not ts.AtEndOfStream
        s = ts.ReadLine
        Print s
    Loop
    
    ts.Close
End Sub

Answer 3

怎么引用microsoft scripting runtime
小弟初学！谢谢!

Answer 4

有几中方法可以打开文本文件，字符穿，二进制等．．．具体你可以查以下
我给出的方法是二进制的打开方法！Open FileName For Input As FileNumber '只读打开文件
Do While Not EOF(FileNumber)
Line Input #FileNumber, inbuf '取文件的每一行
jl.Text = jl.Text + inbuf + Chr(13) + Chr(10) '每行加上回车和换行符
Loop