ENCRYPTEUR/DÉCRYPTEUR DE TEXTE
Mopii9
Messages postés
91
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
23 mai 2005
-
24 avril 2005 à 09:49
Tuning Max Messages postés 314 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 31 août 2006 - 28 août 2006 à 14:46
Tuning Max Messages postés 314 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 31 août 2006 - 28 août 2006 à 14:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6887-encrypteur-decrypteur-de-texte
https://codes-sources.commentcamarche.net/source/6887-encrypteur-decrypteur-de-texte
28 août 2006 à 14:46
Perso j'ai juste remplacé tes boucles dans "transcript_final" de façon à optimiser un peut le code. C'est moins long que les boucles
'****************************************
For t = 1 To Len(Table)
TheLettre = Mid(TheTexte, r, 1)
'puis on le trouve dans la table et on note la place
posi = InStr(1, Table, TheLettre, 0)
Next t
'****************************************
24 avril 2005 à 09:49