Visual Basic .NET Language
圧縮されたテキストファイルをオンザフライで読む

.gzテキストファイルを行の後に読み込む

このクラスは.gzファイル（通常の圧縮ログファイルの形式）を.NextLine() 、 .NextLine()呼び出しごとに行を返します。

一時的な解凍のためのメモリの使用はありません。大きなファイルには非常に便利です。

Imports System.IO

Class logread_gz

  Private ptr As FileStream
  Private UnGZPtr As Compression.GZipStream
  Private line_ptr As StreamReader
  Private spath As String 

  Sub New(full_filename As String)
    spath = full_filename
  End Sub   

  Sub Open()
     Me.ptr = File.OpenRead(spath)
     Me.UnGZPtr = New Compression.GZipStream(ptr, Compression.CompressionMode.Decompress)
     Me.line_ptr = New StreamReader(UnGZPtr)
  End Sub()

  Function NextLine() As String
    'will return Nothing if EOF
    Return Me.line_ptr.ReadLine()
  End Function

  Sub Close()
    Me.line_ptr.Close()
    Me.line_ptr.Dispose()
    Me.UnGZPtr.Close()
    Me.UnGZPtr.Dispose()
    Me.ptr.Close()
    Me.ptr.Dispose()
  End Sub

End Class

注意：読みやすさのために、フェイルセーフはありません。