Ascii <=> texte codage & decodage

Commenter

Contenu du snippet

Bon voici mon 2eme code sur Vbfrance:
Il code le Texte en ASCII
Et decode l'ASCII en Texte

Vous allez peut être me dire qu'il existe déja des sources qui ont les mêmes fonctions, mais elle sont quand même différentes

Il vous suffit : 2 TextBox & 2 Command

Je remercie mon père qui m'a un peu aider pour le decodage et je vous laisse maintenant décourvrir mon code avec des commentaires pour bien comprendre :)

Source / Exemple : 


Private Sub Command1_Click()
Text2 = ""
For i = 1 To Len(Text1) 'i = 1 -> Nbre de lettres dans Text1
Text2 = Text2 + Str(Asc(Mid(Text1, i, 1))) 'Transfore une lettre de Text1 en ASCII
Next i 'Passe à la lettre suivante
End Sub

Private Sub Command2_Click()
On Error Resume Next 'En cas d'erreur il passe dessus (les erreurs possibles sont stupides donc pas besoin de developper plus)
Text2 = ""
'ca devient + dur après
Text01 = LTrim(Text1) 'Il enleve les espaces devant le texte
deb = 1 'le debus est 1 (le 1er caractère)
lon = Len(Text01) 'lon = la longeur du Text1
fin = InStr(deb, Text01, " ") 'Cherche la position du premier espace dans Text1
If fin = 0 And deb < lon Then fin = lon + 1 'Si il n'y a pas d'espace à la fin, donne la position vide àpres la fin du Text1

10 Text2 = Text2 + Chr(Mid(Text01, deb, fin - deb)) 'Signet '10' : Text2 = Ce qui est déja dans Text2 + Lettre suivante de Text1
20 deb = fin + 1 'Signet '20' : Va voir le caractère suivant
fin = InStr(deb, Text01, " ") 'Cherche la position du prochain espace dans Text1
If fin = deb Then GoTo 20 'Si il y a plusieurs espaces entre les codes ASCII il va au signet 20 (Va voir le caractère suivant)
If fin = 0 And deb < lon Then fin = lon + 1 'Si il n'y a pas d'espace à la fin, donne la position vide àpres la fin du Text1
If fin <> 0 Then GoTo 10 'Si la prochaine lettre existe il va au signet 10 sinon il s'arrete

End Sub

'C'est Tordu mais c'ets comme ca et s'est bien expliqué :p,
'Merci a mon père qui m'a aider pour changer l'ASCII en Texte

Conclusion :


The End :o)

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 (carabidule)