Visual Basic .NET Language
संपीडित टेक्स्टफाइल को ऑन-द-फ्लाई पढ़ना

रीडिंग .gz टेक्स्टफाइल लाइन के बाद लाइन

यह वर्ग .gz फ़ाइल (संपीड़ित लॉग फ़ाइलों का सामान्य प्रारूप) .NextLine() और .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

नोट: कोई फ़ेलसेफ़ नहीं है, पठनीयता के उद्देश्य से।