vb逐行读取txt数据并分别显示在text1，text2,text3,text4,text5中

Question

我要用做一个VB界面，其中读取txt文件的第一到第五行分别表示煤气表，水表，电表数据，和用户名，表号，分别是text1到txet5，我该如何操作，求高手指导！

Answer 1

h=freefile
open "文件.txt" for input as h
line input #h,tmp
text1.text =tmp
line input #h,tmp
text2.text =tmp
line input #h,tmp
text3.text =tmp
line input #h,tmp
text4.text =tmp
line input #h,tmp
text5.text =tmp
close h

Answer 2

因为不知道你的文本名称叫什么，所以我用text6来输入文本名称。
Dim path1 As String
Dim sHang As String
Dim sText As String
Dim m
path1 = App.Path + "\" + Text6.Text + ".txt"
Open path1 For Input As #1
Do While Not EOF(1)
Line Input #1, sHang
sText = sText + sHang + "`"
Loop
Close #1
m = Split(sText, "`")
Text1.Text = m(0)
Text2.Text = m(1)
Text3.Text = m(2)
Text4.Text = m(3)
Text5.Text = m(4)
'在text6中输入文本名称，如果输入的是“1”就会在程序所在文件夹内寻找“1.txt”并将里面的内容逐行分别显示在text1，text2,text3,text4,text5中

追问

文件夹是123.txt暂时我是设置成d:\123.txt这个固定位置的，那还有个读取键，我的设置是按了读取键，就对txt文件进行读取，这个可以实现的吗？

追答

额，你把上面的代码放在读取键中不就可以了！
另外text6是用来输入文本名称的，它是活的，并不是固定的。
如果你要固定的咋不早说。。。

追问

额，如果用你这个方法，在找不到文件的时候出个错误弹窗，怎么加的？

追答

额，可以加语句屏蔽啊。。。
不过楼上的回答确实要专业些。