用VB如何读取txt的数据到text控件中？

Question

本人初学VB，现在有一问题，就是有一txt文件，内容如下：
1
2
3
4
5
6

现在想把txt内数据依次读入到数组控件text（i）中去
即
text（1）=1
text（2）=2
text（3）=3
text（4）=4
text（5）=5

该如何实现呢？请各位高手帮忙，事成之后必有重谢！

Answer 1

Dim s As String, i As Integer
Open "1.txt" For Input As #1
For i = Text1.lbound To Text1.ubound
If EOF(1) Then Exit For
Line Input #1, s
Text1(i).Text = s
Next
Close #1

Answer 2

楼上的方法应该是一个比较标准的方法，在这里我推荐一个稍微简单一点的方法：假设文件在C盘根目录下，名是“工程1.txt”
Open "C:\工程1.txt" For Binary As #1
tmp = Split(Input(LOF(1), 1), vcCrlf)
Close #1
For i = 1 To 5
Text1(i).Text = tmp(i - 1)
Next
希望能帮到你，如有问题可以追问我。本回答被提问者采纳

Answer 3

用open语句就可以。。。。