VB6。0里面。txt文件的路径已经在text里面了,要怎么取得txt里面的内容。

Question

VB6。0里面。txt文件的路径已经在text里面了,要怎么取得txt里面的内容。

Answer 1

假设text1.text为文件路径
text2.text为输出的全部文件内容

Private Sub Command1_Click()
Text2.Text = ""
Dim TextLine
Open text1.text For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Text2.Text = Text2.Text & TextLine & vbNewLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。
Exit Sub

End Sub