vb取文本文件的内容

这个不难，我先说思路。
一次性把文件内容独到一个字符串里
用你的分隔符将字符串分成字符串数组
分别赋值给标签（如果你的标签也是数组控件，将会更好。）
下面是代码：

Private Sub Command1_Click()
Dim 全部内容 As String
Dim 分句内容 '注意，这个变量时变体类型

Open "123.txt" For Input As #1 '这里的123.txt要加上文件的路径！！切记
Input #1, 全部内容
Close #1
分句内容 = Split(全部内容, "|")
Label1 = 分句内容(0)
Label2 = 分句内容(1)
Label3 = 分句内容(2)
'如果用了控件数组，以下三行改变为：
'For i = 0 To UBound(分句内容)
' Label1(i) = 分句内容(i)
'Next i
End Sub

open "123.txt" for input as #1

do
input #1,x
if x="|" then exit do
label1.caption=label1.caption & x
loop

do
input #1,x
if x="|" then exit do
label2.caption=label2.caption & x
loop

do
input #1,x
if x="|" then exit do
la