Public Class Form1
      ' Encoding hier zentral ändern:
      Dim Enco As System.Text.Encoding = System.Text.Encoding.Default
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
        Button1.Click
            Dim Eingabe As String = "Test:  "
            ' Wirre Daten einfüllen:
            For x As Int32 = -32768 To 65535  ' 0 To 127 geht!  
                  Eingabe &= (ChrW(x)) & " "
            Next
            ' Einmal Compressen und Decompressen:
            Dim CompressedText As String = MyCompress(Eingabe)
            Dim Ausgabe As String = MyDecompress(CompressedText)
            'Ausgabe (nur zur Kontrole ...):
            TextBox1.Text = Eingabe
            TextBox2.Text = Ausgabe
            TextBox3.Text = CompressedText
            ' Vergleich (Rot = schlecht ...):
            If Eingabe = Ausgabe Then
                  TextBox2.BackColor = Color.LightGreen
            Else
                  TextBox2.BackColor = Color.LightSalmon
            End If
      End Sub
      Function MyCompress(ByVal str As String) As String
            Dim Erg As String = ""
            Using output As New IO.MemoryStream()
                  Using gzip As New IO.Compression.DeflateStream(output, _
                    IO.Compression.CompressionMode.Compress)
                        Using writer As New IO.StreamWriter(gzip, Enco)
                              writer.Write(str)
                        End Using
                  End Using
                  Erg = Enco.GetString(output.ToArray)
            End Using
            Return Erg
      End Function
      Function MyDecompress(ByVal input As String) As String
            Dim Erg As String = ""
            Using inputStream As New IO.MemoryStream(Enco.GetBytes(input))
                  Using gzip As New IO.Compression.DeflateStream(inputStream, _
                    IO.Compression.CompressionMode.Decompress)
                        Using reader As New IO.StreamReader(gzip, Enco)
                              Erg = reader.ReadToEnd
                        End Using
                  End Using
            End Using
            Return Erg
      End Function
End Class

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

Using writer As New StreamWriter(gzip)
   writer.Write(str)
End Using
 
'Eingabe: 
' "ABCÄÖÜß∑√⌀≠≈⦝↯↑↓"
'Ausgabe: 
' "ABCÄÖÜß∑√⌀≠≈⦝↯↑↓"

--
while (!asleep()) sheep++;

  Private Sub CreateFileToCompress()
    File.WriteAllText(OriginalFileName, Message, System.Text.Encoding.UTF8)
  End Sub

--
while (!asleep()) sheep++;

Zitat:

Kein Encoding angeben? Ich dachte, dann nimmt er er sowieso "Default".

Zitat:

Jetzt kommt die Meldung: Das Unicode-Zeichen \uD800 im Index 7 kann nicht in die angegebene Codepage übersetzt werden.

Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(850)

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

Beitrag wurde zuletzt am 07.04.22 um 09:52:39 editiert.

--
while (!asleep()) sheep++;

Imports System.IO
Imports System.IO.Compression
Imports System.Text
 
Module Module2
 
  Sub MeinTest()
    Dim sb As New StringBuilder
    For x = -32768 To 65535
      sb.Append(ChrW(x))
    Next
    Dim Eingabe As String = sb.ToString
 
    Dim OrigBytes As Byte() = Encoding.UTF8.GetBytes(Eingabe)
    Dim ComprBytes As Byte() = Compress(OrigBytes)
    Dim DecomprBytes As Byte() = Decompress(ComprBytes)
    Dim Ausgabe As String = Encoding.UTF8.GetString(DecomprBytes)
 
    Console.WriteLine("Länge Eingabe: {0}", Eingabe.Length)
    Console.WriteLine("Länge Ausgabe: {0}", Ausgabe.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)
  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

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

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

--
while (!asleep()) sheep++;

Dim Eingabe As String = "Test:  "
For x As Int32 = -32768 To 65535  ' 0 To 127 geht!  
Eingabe &= (ChrW(x)) & " "
Next

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

  'angenommen dies seien Deine komischen Stringvariablen
  Dim a As String = "asdasdfdfße5045ß6945"
  Dim b As String = "2@²&//0---.... wewerw"
  Dim c As String = "éüä'''##+*+~~à"
 
  '.... zusammengefasst in einer Liste 
  Dim mydata As New List(Of String)
  mydata.Add(a) : mydata.Add(b) : mydata.Add(c)
 
  'Erstellung der Code-Tabelle aus den String-Zeichen
  Dim codetable As New List(Of Char)
  For Each serie As String In mydata
     For i = 0 To serie.Length - 1
         If Not codetable.Contains(serie(i)) Then codetable.Add(serie(i))
     Next i
  Next serie
 
  'Umwandlung der Strings jeweils in eine Liste von Bytefolgen
  Dim myCodeSeries As New List(Of List(Of Byte))
  Dim bytes() As Byte
  Dim cnt As Integer = -1
 
  For Each serie As String In mydata
      myCodeSeries.Add(New List(Of Byte))
      cnt += 1
      For i As Integer = 0 To serie.Length - 1
          'Die Codetabelle liefert den Ushort-Wert des Zeichens, 
          'der Bitconverter die beiden entsprechenden Bytes
          bytes = BitConverter.GetBytes(CUShort(codetable.IndexOf(serie(i))))
          myCodeSeries(cnt).Add(bytes(0))
          myCodeSeries(cnt).Add(bytes(1))
      Next i
  Next serie
 
 
  'Diese Bytefolgen können jetzt komprimiert werden
  '------------------------------------------------
 
  'Zurückverwandlung der dekomprimierten Byteserien in das Ausgangsmaterial
 
  Dim mydata2 As New List(Of String)
  cnt = -1
 
  For Each codeserie As List(Of Byte) In myCodeSeries
      cnt += 1
      mydata2.Add("")
      For i As Integer = 0 To codeserie.Count - 1 Step 2
         'Bitconvertert liefert Ushort-Wert zu den 2 Bytes, die Codetable das 
         ' Zeichen
         mydata2(cnt) &= 
         codetable(BitConverter.ToUInt16(New Byte() {codeserie(i), codeserie(i _
           + 1)}))
      Next i
  Next codeserie
 
 
  'Kontrolle  
  For i As Integer = 0 To mydata.Count - 1
      For k As Integer = 0 To mydata(i).Length - 1
          If mydata(i)(k) <> mydata2(i)(k) Then Stop
      Next k
  Next i

            Dim Eingabe As String = "Test:  "
            For x As Int32 = -32768 To 65535
                  Eingabe &= (ChrW(x)) & " "
            Next
 
            'Erstellung der Code-Tabelle
            Dim codetable As New List(Of Char)
            For i As Int32 = 0 To Eingabe.Length - 1
                  If Not codetable.Contains(Eingabe(i)) Then codetable.Add( _
                    Eingabe(i))
            Next i
 
            'Umwandlung in eine List von Bytefolgen
            Dim myCodeSeries As New List(Of Byte)
            Dim bytes() As Byte
            For i As Integer = 0 To Eingabe.Length - 1
                  bytes = BitConverter.GetBytes(CUShort(codetable.IndexOf( _
                    Eingabe(i))))
                  myCodeSeries.Add(bytes(0))
                  myCodeSeries.Add(bytes(1))
            Next i
 
            'Zurückwandeln der Bytefolgen in String
            Dim Zurück As String = ""
            For i As Integer = 0 To myCodeSeries.Count - 1 Step 2
                  Zurück &= codetable(BitConverter.ToUInt16(New Byte() _
                    {myCodeSeries(i), myCodeSeries(i + 1)}, 0))
            Next i
 
            'Kontrolle  
            If Eingabe <> Zurück Then Stop Else MsgBox("OK")

--
while (!asleep()) sheep++;

            Dim Eingabe As String = "Test:  "
            For x As Int32 = -32768 To 65535
                  Eingabe &= (ChrW(x)) & " "
            Next
 
            'Umwandlung in eine List von Bytefolgen
            Dim myCodeSeries As New List(Of Byte)
            Dim bytes() As Byte
            For i As Integer = 0 To Eingabe.Length - 1
                  bytes = BitConverter.GetBytes(AscW(Eingabe(i)))
                  myCodeSeries.Add(bytes(0))
                  myCodeSeries.Add(bytes(1))
            Next i
 
            'Zurückwandeln der Bytefolgen in String
            Dim Zurück As String = ""
            For i As Integer = 0 To myCodeSeries.Count - 1 Step 2
                  Zurück &= ChrW(BitConverter.ToUInt16(New Byte() {myCodeSeries( _
                    i), myCodeSeries(i + 1)}, 0))
            Next i
 
            'Kontrolle  
            If Eingabe <> Zurück Then Stop Else MsgBox("OK")

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

System.Text.Encoding.Unicode.GetBytes(str)

--
while (!asleep()) sheep++;

   Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode
   Dim bytes1() As Byte
   Dim bytes2() As Byte
   Dim index As Integer = -1
 
   Do
       index += 1
 
       bytes1 = enc.GetBytes(index.ToString)  'Encoder
       bytes2 = BitConverter.GetBytes(AscW(index.ToString)) 'AscW
 
       If bytes1(0) <> bytes2(0) Then Stop
       If bytes1(1) <> bytes2(1) Then Stop
   Loop While Index < UShort.maxvalue

        Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode
        Dim bytes1() As Byte
        Dim bytes2() As Byte
        Dim index As Integer = -1
 
        Do
            index += 1
 
            bytes1 = enc.GetBytes(ChrW(index))
            bytes2 = BitConverter.GetBytes(AscW(ChrW(index)))
 
            If bytes1(0) <> bytes2(0) Then Stop
            If bytes2(1) <> bytes2(1) Then Stop
        Loop While index < 55295

--
while (!asleep()) sheep++;

 Dim enc1 As New System.Text.UnicodeEncoding(False, True, True)
 Dim bytes as Byte() = enc1.GetBytes("......")

Dim Eingabe As String = "Test:  "
For x As Int32 = 0 To 65535
Eingabe &= (ChrW(x)) & " "
Next

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;

Dim Eingabe As String = "Test:  "
For x As Int32 = 0 To 65535
Eingabe &= (ChrW(x)) & " "
Next

--
while (!asleep()) sheep++;

For i As int32= 0 To Eingabe.Length - 1
   bytes = BitConverter.GetBytes(AscW(Eingabe(i)))
   myCodeSeries.Add(bytes(0))
   myCodeSeries.Add(bytes(1))
Next

--
while (!asleep()) sheep++;

 
 Private Function StringToBytearray(ByVal str As String) As Byte()
 
        Dim buffersize As Integer = str.Length * 2
        Dim bytearray(buffersize - 1) As Byte
        Dim Handle As IntPtr
        Try
            Handle = Marshal.StringToBSTR(str)
            Marshal.Copy(Handle, bytearray, 0, buffersize)
        Finally
            Marshal.FreeBSTR(Handle)
        End Try
 
        Return bytearray
    End Function

  Dim test As String = ""
  For i As Integer = 0 To UShort.MaxValue
      test &= ChrW(i)   
  Next i
 
 
  Dim byt As Byte() = StringToBytearray(test)
 
  'Check
  For i As Integer = 0 To byt.Length - 1 Step 2
      Dim bt() As Byte = BitConverter.GetBytes(AscW(test(i \ 2)))
      If byt(i) <> bt(0) Then Stop
      If byt(i + 1) <> bt(1) Then Stop
  Next i

--
while (!asleep()) sheep++;

Private Declare Function SysAllocStringByteLen Lib "oleaut32" 
       (ByVal Ptr As Integer, ByVal Length As Integer) As IntPtr
 
Private Declare Function SysFreeString Lib "oleaut32.dll" 
       (ByVal bstr As IntPtr) As UInt32
 
 
 
Private Function BytearrayToString(ByVal byt() As Byte) As String
 
     Dim str As String, pBstr As IntPtr
 
     Try
         pBstr = SysAllocStringByteLen(Nothing, byt.Length)
         Marshal.Copy(byt, 0, pBstr, byt.Length)
         str = Marshal.PtrToStringBSTR(pBstr)
     Finally
         SysFreeString(pBstr)
     End Try
 
     Return str
 
End Function

--
while (!asleep()) sheep++;

--
while (!asleep()) sheep++;