如何对文本文件进行操作

Question

文本文件内容如下
as  艰苦经济 AH 300 3 HHHH
sx  地方   BJ  500 4 JJJJ每行字段间是用TAB分开的如何编程读文本文件的一行,并找到该行里的相关字段!

Answer 1

Dim strTmp As String, strRlt() As String
Open "c:\test1.txt" For Input As #1
While Not EOF(1)
    Line Input #1, strTmp
    strRlt = Split(strTmp, vbTab)
    For i = LBound(strRlt) To UBound(strRlt)
        Debug.Print strRlt(i)
    Next
Wend
Close #1