txt檔案有許多行，需要VB按順序從第一行每五秒讀一行資料，每行有8個欄位，如：1,2,3,4,5,6,7,8。將每行的8個欄位分別讀取到8個textbox中，直到讀取結束。
uj5u.com熱心網友回復：
其實一點也不難。要“每5秒讀1行”，用 Timer控制元件就可以了。
具體到“讀檔案”，有很多種方案去實作。
你的“每行8個欄位”，那你得說清楚資料格式啊！
要不然，鬼知道你的是什么樣的、要怎樣才能“分成8個”呢！
要把資料“放到 TextBox 中”，用控制元件陣列的話，可以For回圈搞定；
就算是獨立控制元件、控制元件名沒規律，也不過8個嘛，直接硬寫8條賦值陳述句也無妨……
uj5u.com熱心網友回復：
主要是沒學過VB，但是畢業設計要用。8個全是字串uj5u.com熱心網友回復：
為什么每5秒 而不是每0.05秒uj5u.com熱心網友回復：
Option Explicit
Dim flag As Boolean
Private 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 Sub
Private Sub Timer1_Timer()
flag = True
End Sub
uj5u.com熱心網友回復：
那么快，還不讓蘋果雨砸死？uj5u.com熱心網友回復：
你這說了等于沒說……
uj5u.com熱心網友回復：
VB6可視化程式設計(無錫職業技術學院)http://download.csdn.net/detail/zhao4zhong1/6824713uj5u.com熱心網友回復：
要注意的點：要加入時間控制元件
uj5u.com熱心網友回復：
樓上的，你自己試過你的代碼效果嗎？
uj5u.com熱心網友回復：
恐怕你連“時間控制元件”（就是“Timer控制元件”吧！）究竟是什么樣的“運行方式”（我指的是在“應用層”表現），都還沒搞明白吧…………
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46916.html
標籤：VB基礎類
上一篇：新手自學VB6，代碼出現問題請教
下一篇：VBA中如何Post Json