1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic

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

Signaler
Messages postés
146
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
25 juillet 2007
 -
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
 -
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
A voir également:

5 réponses

Réponse 1 / 5
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
 19 
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
Merci
2
Merci

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

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

Réponse 2 / 5
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 46
Pour retourner le code ascii d une lettre Asc()

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

:big)
Réponse 3 / 5
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
 23
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
Réponse 4 / 5
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
 8
Si c'est pour un traitement en boucle prefere AscB()

@+ 

E.B.
Réponse 5 / 5
Messages postés
146
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
25 juillet 2007
 1
Merci a vous 2
Posez votre question