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

jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 7 sept. 2004 à 10:39
+1
Utile
Pour retourner le code ascii d une lettre Asc()

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

:big)
Cette réponse vous a-t-elle aidé ?  
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 7 sept. 2004 à 10:44
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
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
Utile
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
Utile
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
Utile
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.