Convertir du texte en binaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 848 fois - Téléchargée 30 fois

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

Ajouter un commentaire Commentaires
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
2
Cette source n'a pas de fichier ZIP mais seulement du code. Je te suggère de faire un nouveau projet Aplication VB.Net puis tu copie la fonction dans une form puis tu écris :

Sub [nom du formulaire]_onload ...

MsgBox TexteBIN("abcd1234")

End sub

Tout simplement !
Messages postés
175
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
28 octobre 2013

Quelqu'un pourait-il me dire comment fonctionne cette source ?
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
2
Peux tu trouver un moyen pour faire l'inverse c à dire passer du binaire au texte ! (En VB.Net si possible ) Je t'ai mis 7/10 ! Cela m'a beaucoup servi !

merci !

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.