[vb.net] Wie Sonderzeichen zu Bytes konvertieren?

[Int32 (Gast)]

Hallöchen,

ich lese von einem seriellen Port die Daten ein, ein Großteil soll 
einfach in eine RichTextBox geschrieben werden, mit Regex habe ich diese 
Daten entsprechend gruppiert bzw. lasse sie in die Box schreiben.

Ich lese erstmal alles von ReadExisting in einen String.

Jetzt gibt es aber auch noch Daten, die ich als Hex Bytes brauche, und 
die sich als Text nicht darstellen lassen (Sonderzeichen wie ¢ (a2 als 
Hex) oder Þ (DE als Hex). Ich sammle die Daten per Regex auf (matche 
alles Zwischen Begin-of-Line und End-of-line) und speichere sie in eine 
Variable (as Char), ich denke das Problem liegt hier!?

Aussehen soll das am Ende so: AA (Start of text) A2 20 DE FF (End of 
text), da will ich auslesen was als zweites Byte eingelesen wird, in 
diesem Fall a2. Die A2 und DE würden "ungültige Konvertierung in der 
Zeichenfolge" bringen, wenn ich sie in eine "as Byte" Variable einlese.

Ich will sie später als Line haben und auslesen was z.B. das dritte 
Zeichen im Hex Format ist.

die Variable "as byte" funktioniert wie gesagt nicht, da "ungültige 
Konvertierung in der Zeichenfolge".

Daher also as char...wollte ich dann zu Bytes konvertieren:

Dim charvariable As Char 
Dim byteausgabe As Byte = Convert.ToByte(charvariable)

Fehler kommen keine, aber zu funktionieren scheint es nicht:
Ein abschließendes

If byteausgabe > 0 Then MsgBox("123")

als Test bleibt ohne Reaktion.

Das Encoding des SerialPort steht auf ISO-8859-1 weil das für die 
RichTextBox mit den Umlauten funktioniert.

Ist mein Ansatz so umsetzbar, oder müsste ich vom SerialPort erstmal 
alles als Byte einlesen? Dann aber zwischenspeichern und die Daten für 
die RichTextBox wieder in String umwandeln? Oder liegt mein Fehler beim 
konvertieren von Char -> Byte?

Vielen Dank

[Schlaumaier (Gast)]

Einfache Lösung.

Was nicht passt wird passend gemacht. ;)

Also einfach den "Input" in einen String konvertieren.

Danach mit der Replace-Funktion der Reihe nach alle "nicht lesebaren 
Zeichen" in ein Lesbares Zeichen umwandeln.

https://docs.microsoft.com/de-de/dotnet/api/microsoft.visualbasic.strings.replace?view=net-6.0

Bitte beachte aber die Compare-Methode. Ich empfehle dringend Binary. 
Kannst aber auch die andere Methode ausprobieren.


dim tx, eingabe as string
tx = replace (eingabe, chr(32), "/return", Binary) ' dieser Befehl 
ändert ein Return-Code in den Text "/return".

Da ALLE Zeichen vor inkl. Acsii-Code 32 und viele Zeichen hinter ca. 
ascii-Code 200 (je nach gülitgen Zeichensatz) zu nicht erkennbaren 
Zeichen führen, ist das die einzige Methode ein Text "lesbar" zu machen.

Ich setze das sehr oft ein, wenn ich ein Zeichen-Code-Mischmasch 
auflösen muss. Und wenn ich das deutsche Punkt-Komma-Problem lösen musst 
;)


Was dein Besonderen Fall angeht. Ich würde die Routine anwenden bevor 
ich den String an die Rich-Text-Box übergebe.

Und achte auf die Logische Reihenfolge. Notfalls musst du mit einen 
Trick-Zeichen arbeiten. Also ein Zwischen-Replace = umwandeln in "@@@@" 
und dann wieder das Zeichen zurück wenn die restliche Umwandlung 
stattgefunden hat.
Kommt aber sehr selten vor, und ist ein reines Logisches Problem. Da 
Replace ALLES in den String umwandelt.

Grundsätzlich solltest du aber ich mit der CHR-Funktion 
auseinandersetzen.

https://docs.microsoft.com/de-de/dotnet/api/microsoft.visualbasic.strings.chr?view=net-6.0#microsoft-visualbasic-strings-chr(system-int32)

Wenn du das nämlich Zeichenweise machst, und nur bestimmte zeichen 
ändern willst geht auch das.

Dim Eingabe as String = " "  '<- leerzeichen
dim ges_eingabe as string
if Eingabe = chr(13) then eingabe = "leerzeichen"

ges_eingabe = ges_eingabe + eingabe


Viel Glück

ps: Die Links haben zwar visualbasic im Text aber sie zeigen auch den C 
Code an.

Ist nämlich von Feinheiten abgesehen das selbe, da Programmiergrundlagen

[Bartosz B. (bartosz)]

Schlaumaier schrieb:
> Und wenn ich das deutsche Punkt-Komma-Problem lösen muss

Es geht auch sowas (ausführlich geschrieben):

Public Class Form1
    Private ReadOnly Deu As New System.Globalization.CultureInfo("de-DE")
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Number As Double = 3.14
        Dim converted_to_string As String = Number.ToString(Deu)
        TextBox1.Text = converted_to_string
    End Sub
End Class

======================

@Int32 Ich habe mich selbst mal dran versucht. Ich kenne mich mit den 
Encoding-Geschichten nicht soo gut aus. Vielleicht bekommt man die 
For-Schleife, um an das Encoding zu kommen, noch weg!

Public Class Form1
    
    

    Private Sub Button2_Click(sender As Object, a As EventArgs) Handles Button2.Click
        Dim Test As String = "AA A2 20 DE FF"
        Dim split As String() = Test.Split(" "c)

        Dim EI0 As System.Text.EncodingInfo

        For Each ei As System.Text.EncodingInfo In System.Text.Encoding.GetEncodings()
            If ei.Name = "iso-8859-1" Then
                EI0 = ei
                Exit For
            Else
                Continue For
            End If
        Next

        If EI0 Is Nothing Then Return

        Dim enc As System.Text.Encoding = EI0.GetEncoding()
        Dim Ba As Byte() = New Byte(split.Length - 3) {}
        For i As Integer = 1 To split.Length - 2 Step 1
            Ba(i - 1) = hex_to_dec(split(i))
        Next
        Dim decodedString As String = enc.GetString(Ba)
        Debug.WriteLine(decodedString)
    End Sub

    Private Function hex_to_dec(hexnumber As String) As Byte
        Dim Value As Byte = 0
        Dim ca As Char() = hexnumber.ToCharArray()
        Dim value2 As Byte
        For i As Integer = ca.Length - 1 To 0 Step -1
            Select Case ca(i)
                Case "0"c
                    value2 = 0
                Case "1"c
                    value2 = 1
                Case "2"c
                    value2 = 2
                Case "3"c
                    value2 = 3
                Case "4"c
                    value2 = 4
                Case "5"c
                    value2 = 5
                Case "6"c
                    value2 = 6
                Case "7"c
                    value2 = 7
                Case "8"c
                    value2 = 8
                Case "9"c
                    value2 = 9
                Case "A"c
                    value2 = 10
                Case "B"c
                    value2 = 11
                Case "C"c
                    value2 = 12
                Case "D"c
                    value2 = 13
                Case "E"c
                    value2 = 14
                Case "F"c
                    value2 = 15
                Case Else
                    Exit Select
            End Select
            Value += value2 * CByte(Math.Pow(16, ca.Length - 1 - i))
        Next
        Return Value
    End Function
End Class

ergibt ¢ Þ

[Int32 (Gast)]

Tag nochmal ;)

Die Lösung war am Ende ganz einfach:

Dim array As Byte() = Encoding.GetEncoding("ISO-8859-1").GetBytes(hexString)
        txtBytes.Text = BitConverter.ToString(array)