Binär Daten aus String in Byte umwandel

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Binär Daten aus String in Byte umwandel

    Hallo,
    ich habe ein Problem.
    Ich haben einen String der Binäre Daten enthält (7 Bit)
    z.b 1010001
    Diesen String möchte ich als ASCII Zeichen interpretieren.
    Dazu sollten die einzelenn Daten in ein Byte geschrieben werden um danach mit z.b GetByte umgewandelt zu werden.
    Weis jemand wie man diesen String in ein Byte umwandelt ? (nicht in ein Byte Array) oder einen anderen Lösungsvorschlag ?

    Hi!

    Sag, wenn ich dich nicht richtig verstehe...
    Du hast nen String, ein dem (als ASCII-Zeichen) eine Folge von 0en und 1en drin stehen und willst diese in Bit umwandeln und in 1 Byte schreiben?

    Das erreichst du am Besten mit der Wertigkeit in einem Array und einer Schleife, die jedes Zeichen durchläuft. Beachte auch, dass Bytes in VB unsigned sind und somit brauchst du dich nicht mit nem Vorzeichen "rumstreiten".

    VB.NET-Quellcode

    1. Dim bPow2(7) as Byte
    3. Private Sub Form_Load (...)
    4. For i as Long = 0 to 7
    5. bPow2(i) = cByte(math.Pow(2, i))
    6. Next i
    7. End Sub
    9. Private Sub Button1_Click (...)
    10. Dim b as Byte = 0
    12. Dim s as String = Textbox1.Text
    13. For i as Long = s.Length-1 to 0 Step -1
    14. if s.Substring(i, 1) = "1" then
    15. b += bPow2(s.Length-(i+1))
    16. End if
    18. If i = s.Length-8 then exit for
    19. Next i
    21. Messagebox.Show cStr(b)
    22. End Sub



    mfG Andy

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()

Facebook
Telefonspende