1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Convertir du texte en binaire

Convertir du texte en binaire

0/5 (3 avis)

Snippet vu 8 292 fois - Téléchargée 31 fois

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

Ajouter un commentaire Commentaires
OneHacker Messages postés 1447 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 23 septembre 2007 2
6 août 2005 à 15:06
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 !
lunnatick Messages postés 175 Date d'inscription lundi 9 mai 2005 Statut Membre Dernière intervention 28 octobre 2013
5 août 2005 à 22:38
Quelqu'un pourait-il me dire comment fonctionne cette source ?
OneHacker Messages postés 1447 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 23 septembre 2007 2
9 avril 2005 à 22:13
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 !
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)