求助VB读取文本

'楼主请看这里,测试过了,可以满足你的要求

'在窗体上添加两个 label 控件,一个 timer 控件(用默认名),然后输入代码:

Private Sub Form_Load()

Timer1.Interval = 2000
Open "H:\1.txt" For Input As #1

End Sub

Private Sub Timer1_Timer()

If EOF(1) Then
MsgBox "读取完毕"
Timer1.Enabled = False
Exit Sub
End If

Dim tmp$, strs$()

Line Input #1, tmp
strs$() = Split(tmp, "|")
Label1.Caption = strs$(0)
Label2.Caption = strs$(1)

End Sub

'ps:不懂的地方随时 hi 我

splite

分段，以指定字符为分隔符，分离出若干个子字符串，并保存在一个下标从0开始的一维数组中，其格式为：split (字符串，分隔符）

例：
dim a="1,2,3,4,5,6,45,656465,564,45"

dim b() as integer
b=split(a,",")
那么b(0)=1
b(1)=2
b(i)=？？？？

------------------
dim xxx="1255886411|HHWWFO"
dim xx() as integer
xx=split(xxx,&