Question

vb实现读取1.txt的一行文字，一分钟后在读取第二行，在过一分钟再次读取第三行，………………依此

vb实现读取1.txt的一行文字，一分钟后在读取第二行，在过一分钟再次读取第三行，………………依此类推

Answer 1

楼主您好！

代码如下：

Option Explicit
Dim n As Integer
Private Sub Form_Load()
    n = 1
    Me.Timer1.Enabled = True
    Me.Timer1.Interval = 60000
End Sub
Private Sub Timer1_Timer()
    Dim txtInput As String
    Dim i As Integer
    Me.List1.Clear
    Open [文件位置] & "\1.txt" For Input As #1
        For i = 1 To n
            Line Input #1, txtInput
            Me.List1.AddItem "第" & CStr(i) & "行：" & txtInput
        Next i
    Close #1
    n = n + 1
End Sub

追问

为什么是乱码的？

list1是什么

追答

乱码是因为你txt的问题，与本程序无关，
我已经调试过的，可以读取txt。
List1是列表框控件(List)，
改程序需要添加一个计时器(Timer)和列表框(List)
都可以在工具箱上找到的。。。。
读取的结果就是显示在List框里的

追问

我用读取到text1怎么做，不读取到list1

追答

把所有的List1改成Text1，
把这句
Me.List1.AddItem "第" & CStr(i) & "行：" & txtInput
改成：
Me.Text1.Text = Me.Text1.Text & "第" & CStr(i) & "行：" & txtInput & " "
把这句
Me.List1.Clear
改成：
Me.Text1.Text = ""

追问

谢谢啦

Answer 2

用OPEN打开文件

使用一个定义器，设置一分钟执行一次line input就OK了。