vb读取txt文档到textbox

Question

txt文档有许多行，需要VB按顺序从第一行每五秒读一行数据，每行有8个字段，如：1,2,3,4,5,6,7,8。将每行的8个字段分别读取到8个textbox中，直到读取结束。

Answer 1

其实一点也不难。要“每5秒读1行”，用 Timer控件就可以了。
具体到“读文件”，有很多种方案去实现。你的“每行8个字段”，那你得说清楚数据格式啊！
　　要不然，鬼知道你的是什么样的、要怎样才能“分成8个”呢！要把数据“放到 TextBox 中”，用控件数组的话，可以For循环搞定；
　就算是独立控件、控件名没规律，也不过8个嘛，直接硬写8条赋值语句也无妨……

Answer 2

Option Explicit
Dim flag As BooleanPrivate Sub Command1_Click()
Dim strLine As String, strCol() As String
Dim i As Long, n As Long    Timer1.Interval = 5000
    Timer1.Enabled = True
    
    Label1 = "Reading ..."
    
    Open "c:\test\test1.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, strLine
        strCol = Split(strLine, ",")
        
        n = UBound(strCol)
        
        For i = 0 To 7
            If i <= n Then
                Text1(i) = strCol(i)
            Else
                Text1(i) = ""
            End If
            Text1(i).Refresh
        Next i
        
        Do Until flag
            DoEvents
        Loop
        
        flag = False
    Loop
    Close #1
    
    Timer1.Enabled = False
    
    Label1 = "Finished"
    
End SubPrivate Sub Timer1_Timer()
    flag = True
End Sub

Answer 3

VB6可视化程序设计(无锡职业技术学院)http://download.csdn.net/detail/zhao4zhong1/6824713

Answer 4

恐怕你连“时间控件”（就是“Timer控件”吧！）究竟是什么样的“运行方式”（我指的是在“应用层”表现），
　都还没搞明白吧…………