VB.net缓冲流的校正

缓冲流可以起到提高效率的作用，但要小心使用，容易出现问题，对比下面。

Imports System.IO

Module Module1

    Sub Main()
        Dim path As String = "D:\Test.txt" '内容为123456
        Dim sr As StreamReader = New StreamReader(path)
        Dim c(3) As Char

        sr.Read(c, 0, c.Length)
        Console.WriteLine(c) '1234

        sr.DiscardBufferedData()
        sr.BaseStream.Seek(4, SeekOrigin.Begin)
        Console.WriteLine(sr.ReadToEnd())
        '无sr.DiscardBufferedData()时结果为：5656
        '有sr.DiscardBufferedData()时结果为：56     重置校正，但会降低性能
        sr.Close()
    End Sub

End Module