文本读取指定行的类(vb.net)

Imports System.Data.OleDb
Imports System.IO
Imports Microsoft.VisualBasic

Public Class mStreamReaderClass mStreamReader
    Inherits StreamReader
    Public Sub New()Sub New(ByVal path As String)
        MyBase.New(path)
    End Sub

    Public Function ReadLineAt()Function ReadLineAt(ByVal line As Integer) As String

        For i As Integer = 1 To line
            If i = line Then
                Return MyBase.ReadLine()
            Else
                MyBase.ReadLine()
            End If
        Next
        Return String.Empty
    End Function
End Class