Question

vb控件每隔一分钟读取txt文本文件中的相应字符?

vb控件每隔一分钟读取txt文本文件中的相应字符?
vb窗体上有四个控件。分别是：文件框控件text1，combo控件combo1，文件框控件text2，文件框控件text3。怎样让这四个控件每隔一分钟自动显示abc.txt这个文本不同行的相应字符？
如：vb启动后，四个控件分别显示aaa,bbb,ccc,ddd，一分钟后，四个控件分别显示aaa1,bbb1,ccc1,ddd1，再过一分钟，显示aaa2,bbb2,ccc2,ddd2，…………
文件文件abc.txt内容为（每行不同字符用逗号分割开）：
aaa,bbb,ccc,ddd
aaa1,bbb1,ccc1,ddd1
aaa2,bbb2,ccc2,ddd2
aaa3,bbb3,ccc3,ddd3
aaa4,bbb4,ccc4,ddd5

Answer 1

添加一个timer1控件，代码如下：

Dim i, j As Integer '定义全局变量




Private Sub Form_Load()
i = 0 '初始化显示行
timer1.Interval = 60000 '定时器一分钟
End Sub


Private Sub Timer1_Timer()
i = i + 1
j = 0
Dim strLine As String
Open app.path & "\abc.txt" For Input As #1
Do Until EOF(1)
   Line Input #1, strLine
   j = j + 1
   If i = j Then
       Text1.Text = Split(strLine, ",")(0)
       Combo1.Text = Split(strLine, ",")(1)
       Text2.Text = Split(strLine, ",")(2)
       Text3.Text = Split(strLine, ",")(3)
   End If
Loop
Close #1
If i = j Then i = i - j '如果读完，重头再读，如果不想读，请改成Timer1.Enabled = False即可。
End Sub

读完了会从头再读的。

Answer 2

通过TIMER控件定时执行函数，如果只是按你的要求就是读取到字符AAAA（i），然后读取后边几个值赋值给后边几个控件，不然就要有定位的，比如固定读取哪一行，用split函数分割成字符数组再赋值，

追问

请写出详细代码。