如何根据行数去读取文本中的数据

Question

已知道所要的数据的行数, 如何根据它去获取文本的数据呢?
比如所要的数据在第5行.

Answer 1

巧了，正好在做一个读文本的程序Public Sub ReadIntros(strDbf As String) '拆分记录
    Dim filenumber As Integer
    Dim inbuf As String
    filenumber = FreeFile    i = 1
    Open strDbf For Input As filenumber
        Do While Not EOF(filenumber)
            Line Input #filenumber, inbuf
                byout(i) = inbuf
            i = i + 1
        Loop
    Close #filenumber
End Sub第i行，就是byout(i)