VB读入文本文的高级问题,请高手指教

Question

我有一个文本文件,里边有50行不一样长的文本. 我想把这50行文本,读入50个txtbox 文本框里边,请问怎样做效率最高?示例:
文本内容:
i am ok
i am not ok 
i am fine
........文件读进来完成的时候,我想在text1文本框里看到 i am ok
在text2文本框里看到 i am not ok
在text3文本框里看到 i am fine
........

Answer 1

辉哥说的是下面的意思?
Open "DDDD.txt" For Input As #1
Line Input #1, a2
Text2.text = a2
Line Input #1, a3
Text3.text = a3
Line Input #1, a4
Text4.text = a4
Line Input #1, a5
Text5.text = a5
......
Close #1就是不想这样用才问的啊,有没有别的方法呢?
这种方法对付几行句子还行,假有有1000行,我的手不要酸死了...

Answer 2

用个TEXTBOX控件数组
do while not eof(1)
    Line   Input   #1, strTmp
    txtTmp(i).text=strTmp
    i=i+1
loop

Answer 3

辉哥的这种方法先前我也试过,不过运行下来的结果跟你所写的这个一样.
txtTmp(i).text=strTmp  这句运行时老显示"子程序或函数未定义"
是不是text(i).text 中的i不能这样用,还是咋的.我一直觉得理论上应该是可以的,可是调试不出来啊.请指教

Answer 4

Private Sub Form_Load()
Dim i
i = 1
Dim strTmp
Open "dddd.text" For Input As #1Do While Not EOF(1)
        Line Input #1, strTmp
        Text(i).Text = strTmp
        i = i + 1
LoopClose #1End Sub显示"子程序或函数未定义"

Answer 5

如果text是控件数组，text(i).text才行
如果不是控件数组，名称只是text1,text2.....这样，那么修改为：
me.controls("text"& i).text=strTmp

Answer 6

Text(i).Text   
你需要自己画控件数组亚！看样子你还是用2楼的方法比较的好

Answer 7

你要自己load
do   while   not   eof(1) 
        Line       Input       #1,   strTmp 
        if i>0 then load txtTmp(i)
        txtTmp(i).text=strTmp 
        i=i+1 
loop

Answer 8

程式沒問題
在建表時,把text控制,复制几個就出來,控制項陣列

Answer 9

先全部读出来，然后按分行符拆开，再显示到text上；
对于大的数据，用表格代替text来显示效率会比较高

Answer 10

用得着这么麻烦吗，直接读写INI文件不就OK了
还50行不一样长的数据，都知道它是一行一行的
了，用陈辉的方法就可以了，学会使用控件数组
是件好事。

Answer 11

非控件数组也可以解决，不过还是推荐用控件数组。Dim strLine As String, x As Control, i As Integer
Dim a() As StringOpen "c:\DDDD.txt" For Input As #1
Do Until EOF(1)
   Line Input #1, strLine
   ReDim Preserve a(i)
   a(i) = strLine
   i = i + 1
Loop
Close #1
For Each x In Me.Controls
   If Left(x.Name, 4) = "Text" Then
      x.Text = a(Val(Mid(x.Name, 5)) - 1)
   End If
Next x