Feedback

VB - String in Byte Array und zurück wandeln

Veröffentlicht von am 09.10.2007
(1 Bewertungen)
Hier die VB-Version von Jan Welker`s C# Snippet.
!DANKE! für die Inspiration ;)

Will man ein Bytearray (reine Daten) in einem String Speichern, benötigt man die ersten 2 Funktionen.

Soll es allerdings ein Text sein, benötigt man die zweiten 2 Funktionen
(klingt lustig oder?;)

Das Problem besteht darin, dass z.B. Bei Daten auch eine 0 in einem Bytearray auftauchen kann.
0 ist aber KEIN Druckbares oder sonst welches Zeichen.
Der 2. Abschnitt funktioniert deshalb NICHT zuverlässig mit Daten, sondern nur mit Text.

Zitat Jan Welker:
Zwei Methoden mit denen man einen String in ein Byte Array und ein Bytearray in einen String wandeln kann.
GFU-Schulungen  [Anzeige]

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

'------------------Daten(Bytearray) in String und zurück-------------------
    Public Function StringToByteArray(ByRef str As String) As Byte()
        Return Convert.FromBase64String(str)
    End Function

    Public Function ByteArrayToString(ByRef Barr() As Byte) As String
        Return Convert.ToBase64String(Barr)
    End Function

'------------------Text in Bytearray und zurück-------------------
    Public Function TextStringToByteArray(ByRef str As String) As Byte()
        Dim enc As System.Text.Encoding = System.Text.Encoding.Default

        Return enc.GetBytes(str)
    End Function

    Public Function ByteArrayToTextString(ByRef Barr() As Byte) As String
        Dim enc As System.Text.Encoding = System.Text.Encoding.Default

        Return enc.GetString(Barr)
    End Function

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!