Question

VB 读取TXT文件不定长字符

例如：aad sdfa sddf
adfdeer ddfa ddf adsfa 123|2|233
2|3|33|
22234|2|333
adf ddfff ss33 22 asdf 123|24|22
我要读取每行“|”前，并且“ ”（空隔来的）后的几个数，即第二行的读取结果是“123”，第三行的结果 是“2”，第四行的是“22234”
我说得够明白吗？
若我也要读取两个“|”之间的数字，怎办？要读取“|”后面的所有数字，又怎办啊？
跪求代码。
再加点难度，把读取的字符按每个字节存到数组中，如第二行的把“123”存储成A1=“1”，A2=“2”，A3=“3”
我已经想了两天了，好难啊！！！

Answer 1

好办啊，split函数就行了
鉴于没分，代码就不贴了，你自己学习一下吧，也好提高一下

Answer 2

Private Sub Command1_Click()
Dim ss As String, s1() As String, s2() As String
Open "e:\tmp\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ss
s1 = Split(ss, "|")
If UBound(s1) > 0 Then
s2 = Split(s1(0), " ")
Print s2(UBound(s2))
End If
Loop
Close #1
End Sub

读取|间的数字：
Private Sub Command1_Click()
Dim ss As String, s1() As String
Open "e:\tmp\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ss
s1 = Split(ss, "|")
If UBound(s1) > 0 Then
Print s1(1)
End If
Loop
Close #1
End Sub

读取|后面的所有数字：
Private Sub Command1_Click()
Dim ss As String, s1() As String
Open "e:\tmp\123.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ss
s1 = Split(ss, "|")
If UBound(s1) > 1 Then
Print s1(1)
Print s1(2)
End If
Loop
Close #1
End Sub