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

cs_lucio57 146 Messages postés lundi 10 février 2003Date d'inscription 25 juillet 2007 Dernière intervention - 7 sept. 2004 à 10:30 - Dernière réponse : Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention
- 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
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 7 sept. 2004 à 10:39
1
Merci
Pour retourner le code ascii d une lettre Asc()

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

:big)

Merci jrivet 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Meilleure réponse
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 7 sept. 2004 à 10:44
1
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

Merci econs 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

cs_EBArtSoft 4530 Messages postés dimanche 29 septembre 2002Date d'inscription 23 décembre 2014 Dernière intervention - 7 sept. 2004 à 10:57
0
Merci
Si c'est pour un traitement en boucle prefere AscB()

@+

E.B.
cs_lucio57 146 Messages postés lundi 10 février 2003Date d'inscription 25 juillet 2007 Dernière intervention - 7 sept. 2004 à 10:58
0
Merci
Merci a vous 2
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 7 sept. 2004 à 13:41
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

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.