vb读取文本文件的问题

Question

文本内容：
|ssss|kkkkkk|10020|popopp|
|kjj||jianming|pppp|我要问的问题是：文本中一行中的某列是用“|”来分隔的，就像EXCEL中的单元格一样，那我怎么才能读取某一列的数据，比如说第三列，内容为10020，jianming,谢谢！

Answer 1

dim a() as string
a = split("|ssss|kkkkkk|10020|popopp|
","|")
MsgBox a(4)

Answer 2

up,就是用split函数,不过索引是3
msgbox split("|ssss|kkkkkk|10020|popopp|","|")(3)

Answer 3

dim a as String
dim i as Integer
dim tmpStr as Stringa=|ssss|kkkkkk|10020|popopp||kjj||jianming|pppp|
for i=1 to len(a)
    ..................
    tmpStr=mid(a,InStr(a,"|"))
    ..................
next i用循环会更灵活一点。

Answer 4

Private Sub Command1_Click()
    MsgBox iField("|ssss|kkkkkk|10020|popopp|", 3)
    MsgBox iField("|kjj||jianming|pppp|", 3)
End SubPrivate Function iField(ByVal iStr As String, ByVal iCol As Integer)
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    For i1 = 1 To iCol
        i2 = InStr(i2 + 1, iStr, "|")
    Next
    i3 = InStr(i2 + 1, iStr, "|")
    iField = Mid(iStr, i2 + 1, i3 - i2 - 1)
End Function