cs_lucio57146
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 : Gobillot3140
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
jrivet7401
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
-------------------------------------------------
econs4066
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
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
a aidé 93 internautes ce mois-ci