VB 怎么读取TXT数据 第一行显示在TEXT1 第二行显示在TEXT2

Question

比如我的文本路径是 "c:\abc.txt"
当程序运行时 我想把abc.txt里面数据的第一行显示在文本1(text1)
第二行显示在文本2(text2) 一直显示到50行
希望能讲解的清楚点 谢谢!!!

Answer 1

'1.首先"工程"-"引用"---"Microsoft Script Runtime"
'2.将text2 的multiline属性设置为true ScrollBars 属性设置为2-Vertical
Dim fso As New FileSystemObject
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
If fso.FileExists("c:\abc.txt") Then '判断文件是否存在
Dim sum_row As Integer
sum_row = 1
Open "c:\abc.txt" For Input As #7
Line Input #7, first_row '按行读取
Text1.Text = first_row

Do While Not EOF(7)
Line Input #7, next_row
sum_row = sum_row + 1
If sum_row > 50 Then
Exit Do
Else
Text2.Text = Text2.Text & next_row & vbCrLf
End If
Loop
Close #7
Else
MsgBox "您指定目录下的文件不存在!", vbInformation + vbOKOnly, "信息提示"
End If
End Sub