Recuperer le code ASCII d'une lettre [Résolu]

Messages postés
146
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
25 juillet 2007
- - Dernière réponse : Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
31 mars 2015
- 7 sept. 2004 à 13:41
Bonjour je cherche à recuperer le code ascii d'une lettre
Exemple si j'ai un A qu'il me retourne 65

cela ne se passe pas lors de la saisie dans un textbox mais en fait je recupere un mot complet et je voudrais decaler toutes les lettres d'un ou deux cran

en gros ca donnerais
if mot = A then
mot = B
end if

mais je me sens pas de me faire tous les caracteres

D'avance merci
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18
2
Merci
Function Decalage(chaine as String, indice As Long) As String
Dim i As Long
Dim retour As String
 retour=""
 For i=1 to Len(chaine)
  retour=retour & chr(asc(mid$(chaine,i,1))+indice)
 Next i
Decalage=retour
End Function

Manu

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 189 internautes nous ont dit merci ce mois-ci

Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
45
1
Merci
Pour retourner le code ascii d une lettre Asc()

Asc("A") te retourne 65
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

:big)
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
5
0
Merci
Si c'est pour un traitement en boucle prefere AscB()

@+

E.B.
Messages postés
146
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
25 juillet 2007
1
0
Merci
Merci a vous 2
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
31 mars 2015
17
0
Merci
Unicode function is faster.
The wide functions AscW and ChrW/ChrW$ are faster than the Asc/Chr/Chr$ alternatives. VB works internally in Unicode, so the unicode versions run faster. They are not the same functions though. If you're handling ASCII characters from 0 to 127, you're safe to replace Asc with AscW and Chr with ChrW/ChrW$. - This rule applies to VB4 and later. ASC, CHR