tekst omzetten naar binair.

[dejongetje]

De volgende uitdaging (voor mij althans).
Ik wil gewone tekst omzetten naar binair.

Dus ABC moet worden :
100000100100001011000010

Mijn gedachte was om eerst de gewone tekst naar ASCII om te zetten
Dat is al gelukt, maar daarna kan ik werkelijk niets vinden wat mij verder helpt.

Iemand suggesties ?

 

[Spiderman]

Hoi dejongetje,

Ik vondt deze code op http://www.daniweb.com/techtalkforums/thread33678.html

Hij werkt in VB6 en zal waarschijnlijk ook wel in VBA werken.

Private Sub Form_Load()
    MsgBox (char2bin("a"))
    MsgBox (txt2bin("Hello World"))
End Sub

Function txt2bin(str2bin As String) As String
    Dim result As String
    For i = 1 To Len(str2bin)
        result = result & char2bin(Mid(str2bin, i, 1))
    Next i
    txt2bin = result
End Function

Function char2bin(chr2bin As String) As String
    Dim result As String
    Dim char2asc As Integer, total As Integer
    char2asc = Asc(chr2bin)
    For i = 7 To 0 Step -1
        If char2asc >= (total + (2 ^ i)) Then
            total = total + (2 ^ i)
            result = result & "1"
        Else
            result = result & "0"
        End If
    Next i
    char2bin = result
End Function

suc6