Option Explicit On
Option Strict On
 
Imports System.Text
Imports System.IO
Imports System.IO.Compression
 
 
Module Module1
 
    Sub Main()
        Dim Enco As System.Text.Encoding = System.Text.Encoding.GetEncoding(850)
        '------------------------------------------------------------
        'Test-Bytes erzeugen.  Immer von 00 bis FF 
        Dim b(999999) As Byte
        Dim y As Integer = 0
        For i As Integer = 0 To 999999
            y += 1
            If y > 255 Then y = 0
            b(i) = CByte(y)
        Next
 
        '----------------------------------------------------------------------
        ' -----
        'Entweder  TestBytes ###################################
        ' Dim OrigBytes As Byte() = b  'TestBytes --> b
 
        'Oder  Datei einlesen ################################
        Dim t() As Byte = IO.File.ReadAllBytes("D:\#x\1.csv") ' -> Pfad anpassen
 
        Dim OrigBytes As Byte() = t   '' Datei  ---> t
        '----------------------------------------------------------------------
        ' -------
 
        Dim ComprBytes As Byte() = Compress(OrigBytes)
        Dim DecomprBytes As Byte() = Decompress(ComprBytes)
        '----------------------------------------------------------------------
        ' -------
        'Falls Strings gebraucht werden:
        Dim Eingabe As String = Enco.GetString(OrigBytes)
        Dim Ausgabe As String = Enco.GetString(DecomprBytes)
        Dim CompString As String = Enco.GetString(ComprBytes)
        '----------------------------------------------------------------------
        ' -------
        'Decompriemierte Datei Schreiben -> Pfad anpassen
        IO.File.WriteAllBytes("d:\#x\bin_default.dat", DecomprBytes)
 
        '----------------------------------------------------------------------
        ' -------
        Console.WriteLine("Länge Eingabe: {0}", OrigBytes.Length)
        Console.WriteLine("Länge Ausgabe: {0}", DecomprBytes.Length)
        Console.WriteLine()
        Console.WriteLine("Länge original Bytes: {0}", OrigBytes.Length)
        Console.WriteLine("Länge komprimierte Bytes: {0}", ComprBytes.Length)
        Console.WriteLine("Länge dekomprimierte Bytes: {0}", _
          DecomprBytes.Length)
        Console.WriteLine()
        Console.WriteLine("Gleiche Bytes: {0}", OrigBytes.SequenceEqual( _
          DecomprBytes))
        Console.WriteLine("Gleicher Text: {0}", Eingabe = Ausgabe)
        Console.WriteLine("Länge Eingabe: " & Eingabe.Length.ToString)
        Console.WriteLine("Länge Ausgabe: " & Ausgabe.Length.ToString)
        Console.Read()
    End Sub
 
    Function Compress(ba As Byte()) As Byte()
        Using input As New MemoryStream(ba)
            Using output As New MemoryStream()
                Using gzip As New DeflateStream(output, _
                  CompressionMode.Compress)
                    input.CopyTo(gzip)
                End Using
                Return output.ToArray
            End Using
        End Using
    End Function
 
    Function Decompress(ba As Byte()) As Byte()
        Using input As New MemoryStream(ba)
            Using output As New MemoryStream()
                Using gzip As New DeflateStream(input, _
                  CompressionMode.Decompress)
                    gzip.CopyTo(output)
                    Return output.ToArray
                End Using
            End Using
        End Using
    End Function
 
End Module