怎样读出指定的文件种的信息？

Question

我想读出指定的文件的信息如：
  现在有一个a.book文件，文件种的信息是：第一行为  vb开发
                                        第二行为  vb基础
                                        第三行为  vb程序设计怎样将每一行的信息读出来保存在变量中呢？谢谢

Answer 1

Open "C:\a.book" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Debug.Print TextLine   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。

Answer 2

这是个文本文件的读写问题
Option ExplicitPrivate Sub Command1_Click()
    OpenFile
End SubSub OpenFile()
'打开文件
Dim fs As New FileSystemObject
Dim ObjText As TextStream
Dim sFileName As String
Dim objTarget As TextStream
Dim sTemp As String
    With cdlFile
        .CancelError = True
        .FileName = ""
        .Filter = "TXT(*.txt)|*.txt"
        .DialogTitle = "打开文件"
        .ShowOpen
        sFileName = .FileName
    End With
    
    
    Set ObjText = fs.OpenTextFile(sFileName, ForReading, True, TristateFalse)
    Set objTarget = fs.OpenTextFile("C:\abc.txt", ForWriting, True, TristateFalse)
    
    objTarget.Write ObjText.ReadAll  '读写文件
        
    objTarget.Close
    ObjText.Close
    
    
    MsgBox "文件已写入C:\abc.txt"
    
    
End Sub

Answer 3

redim array() as string,i as integer,num as integer
num=freenumber 
Open "c:\a.book" For OutPut  num
while not eof(num)
      line input num,arrary(i)
      i=i+1
      redim arrary(i)
wend
close num