Imports System.Data.OleDb Imports System.IO Imports Microsoft.VisualBasic PublicClass mStreamReaderClass mStreamReader Inherits StreamReader PublicSub New()SubNew(ByVal path AsString) MyBase.New(path) End Sub PublicFunction ReadLineAt()Function ReadLineAt(ByVal line AsInteger) AsString For i AsInteger=1To line If i = line Then ReturnMyBase.ReadLine() Else MyBase.ReadLine() EndIf Next ReturnString.Empty End Function End Class
Imports System.Data.OleDbImports System.IOImports Microsoft.VisualBasicPublic Class mStreamReaderClass mStreamReader Inherits StreamReader Public Sub New()Sub New(ByVal path As String)