1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Ascii <=> texte codage & decodage

Ascii <=> texte codage & decodage

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 212 fois - Téléchargée 37 fois

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

Ajouter un commentaire Commentaires
cs_Jyconaisrien Messages postés 15 Date d'inscription vendredi 23 mai 2003 Statut Membre Dernière intervention 13 décembre 2010
14 sept. 2004 à 10:43
Salut je suis assez interessé par ta source et je cherche moyen de différencier les Chr 10 et Chr 13, car si tu as remarquer , lors d un saut de ligne il affiche 10 et 13...
Si QQ1 a un tuyau ...Merci

Example a traduire :"




"
cs_niluje Messages postés 90 Date d'inscription mardi 2 avril 2002 Statut Membre Dernière intervention 2 décembre 2004
6 nov. 2003 à 12:43
merci ca m'a bien aidé :)
cs_gerardlambert Messages postés 12 Date d'inscription mardi 29 juillet 2003 Statut Membre Dernière intervention 6 août 2003
6 août 2003 à 15:09
ouai c'est pas mal , as-tu déja essayé une fois ton texte mis en ASCII de faire une opération sur les chiffres et de les reconvertire en texte pour crypter le tout? moi je n'y arrive pas...si t'as un tuyau merci d'avance!
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)