Convertir du texte en binaire

Commenter

Contenu du snippet

Avec ce code, on obtient l'équivalent d'une chaine de caractères (string) en binaire naturelle (aussi sous forme de string).

Source / Exemple : 


Option Explicit

Sub Main()
MsgBox TexteBIN("abcd1234")
End Sub

Function TexteBIN(TEXTE As String) As String
Dim i As Long, j As Byte
Dim LettreASC As Byte, LettreBIN As String

For i = 1 To Len(TEXTE)
    DoEvents
    LettreBIN = Empty
    LettreASC = Asc(Mid(TEXTE, i, 1))
    For j = 1 To 8
        Select Case LettreASC
            Case Is < 1
                LettreBIN = CStr(0) & LettreBIN
            Case Else
                LettreBIN = LettreASC Mod 2 & LettreBIN
                LettreASC = LettreASC \ 2
        End Select
    Next j
    TexteBIN = TexteBIN & LettreBIN
Next i
End Function

Conclusion :


Pour les novis : ajouter un module à votre projet, puis coller ce code dedans, éxécuter et le tour et joué.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Maxilie)