VB Text in Binär code umwandeln

[Moritz R. (bugsier3)]

Hallo

ich mal ne Frage, wie kann ich mit VB 2008 einen best. Text in Binär 
Code umwandeln? Also von einer Textbox zur anderen Textbox konvertieren.

Grüße

[Peter II (Gast)]

vermutlich versteht niemand was du meinst.

Mach mal bitte ein Beispiel.

[Moritz R. (bugsier3)]

ich schreibe in die erste textbox "Hallo" rein drücke auf einen Knopf 
und es erscheint in der 2. Textbox 
"01001000011000010110110001101100011011110000110100001010000011010000101 
000001101000010100000110100001010000011010000101000001101000010100000110 
100001010000011010000101000001101000010100000110100001010000011010000101 
000101110"
versteht ihr?

[Peter II (Gast)]

und welche Codepage soll zu grunde gelegt werden und wie sieht es mit 
Unicode aus?

[Moritz R. (bugsier3)]

was ist des?

[Rolf M. (rmagnus)]

Es legt fest, welchem Binärcode ein bestimmtes Zeichen entspricht.

[Sharping (Gast)]

http://msdn.microsoft.com/en-us/library/14kwkz77.aspx

[horstfh (Gast)]

Versuchs doch mal hiermit:

Du brauchst eine Form mit der TextBox1, einem Button und für die 
Ausgabe, einem Label sowie eine CheckBox..

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Tx As String = TextBox1.Text
    Dim Ou As String = ""
    Dim Cd As Long = 0
    For m As Integer = 0 To Tx.Length - 1
      ' UniCode-Wert ermitteln
      Cd = AscW(TextBox1.Text.Substring(m, 1))  'Asc ohne W ergibt Ascii
      Select Case CheckBox1.Checked
        Case True
          ' Willst Du Binärcode in Folge dann:
          Ou &= Convert.ToString(Cd, 2)
        Case Else
          ' Ausgabe Cd und dann den Binärcode
          Ou &= Cd & " = " & Convert.ToString(Cd, 2) & vbCrLf
      End Select
    Next
    Label1.Text = Ou
  End Sub

[horstfh (Gast)]

horstfh schrieb:
> Cd = AscW(TextBox1.Text.Substring(m, 1))  'Asc ohne W ergibt Ascii

Die Zeile kann gekürzt werden auf:

Cd = AscW(Tx.Substring(m, 1))  'Asc ohne W ergibt Ascii

[Ellen R. (ellenr)]

Hallo zusammen,
das in NET gaht das in einer Zeile

        Dim myText As String = "Dieser Text soll in ein byte array 
konvertiert werden"
        Dim array() As Byte = 
System.Text.Encoding.ASCII.GetBytes(myText)


Gruss Ellen