다음 코드는 잘 작동 한 번

Question

에서 파일에서 몇 줄을 읽어 : 파일이 먼 서버에있는 경우

Function ReadLines(FN As String, n As Integer) As String() 
    Dim T(0 To n) As String 
    With My.Computer.FileSystem.OpenTextFileReader(FN) 
     For i As Integer = 0 To n 
      T(i) = .ReadLine() 
     Next 
    End With 
    Return T 
End Function 

그러나,이 엄청나게 느린 증명할 수 있습니다. 동일한 작업을보다 효율적으로 수행 할 수있는 방법이 있습니까? 한 번의 작업으로 전체 파일을 읽지 않습니다 ... File.ReadAllLines 방법과 달리

Answer 1

BufferedStream class은 파일을 시리즈로 순차적으로 읽거나 쓸 때 시스템 IO 수를 줄이기 위해 특별히 설계되었습니다. 그래서이가 할 것으로 예상된다 당신의 더 효과적인 읽습니다.

Function ReadLines(FN As String, n As Integer) As String() 
    Using fs As FileStream = File.Open(path, FileMode.Open, FileAccess.Read, FileShare.ReadWrite) 
     Using bs As New BufferedStream(fs) 
      Using sr As New StreamReader(bs) 
       Dim lines = New List(Of String)(n) 
       For i As Integer = 0 To n 
        Dim line As String = sr.ReadLine() 
        If (line Is Nothing) Then 
         Exit For 
        End If 
        lines.Add(line) 
       Next 
       Return lines.ToArray() 
      End Using 
     End Using 
    End Using 
End Function 

Answer 2

Dim lines = IO.File.ReadLines(fileName). 
        Skip(firstLineIndex). 
        Take(lineCount). 
        ToArray() 

, File.ReadLines를 내가 한 번도에 전체 파일을 읽을 수 있지만,이 또한 매우 비효율적이다. 파일의 내용을 Enumerable(Of String)으로 표시하지만 사용하기 전까지는 파일에서 아무 것도 읽지 않습니다. 이 코드는 원하는 모든 행을 읽어야하지만 그 이상의 내용은 읽지 않습니다.

실제적으로 후드 아래 StreamReader.ReadLine을 사용할 수 있기 때문에 정직하게 말하면 얼마나 빨라질 지 확신 할 수 없습니다. 그것은 시험 가치가있어. 대안은 파일의 큰 덩어리를 읽은 다음 줄을 긋고 적어도 필요한만큼 읽었을 때 멈추는 것입니다.