cs_lucio57
Messages postés146Date d'inscriptionlundi 10 février 2003StatutMembreDernière intervention25 juillet 2007
-
7 sept. 2004 à 10:30
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 2019
-
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
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201259 7 sept. 2004 à 10:39
Pour retourner le code ascii d une lettre Asc()
Asc("A") te retourne 65
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutModérateurDernière intervention23 décembre 200823 7 sept. 2004 à 10:44
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
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 7 sept. 2004 à 13:41
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