La fonction ASC() te retourne le code Ascii d'un caractère C'est ce que fait Asc(Mid(chaine,i,1)) dans la boucle For i = 1 to len(chaine) ... Next i
Si on décompose : Mid(chaine,i,1) extrait le caractère à la position i dans la chaine Asc(Mid(chaine, i,1)) retourne le code ASCII du caractère à la ième position dans la chaine
OK ?
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci bien
Bonsoir,
La fonction ASC() te retourne le code Ascii d'un caractère
C'est ce que fait
Asc(Mid(chaine,i,1))
dans la boucle
For i = 1 to len(chaine) ... Next i
Si on décompose :
Mid(chaine,i,1) extrait le caractère à la position i
dans la chaine
Asc(Mid(chaine, i,1)) retourne le code ASCII du caractère
à la ième position dans la chaine
OK ?
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le
code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour,
Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz()
Dim chaine As String, nb As Integer
Dim i As Byte, total As Integer
'on admet pour le fun que la longueur de la chaine
' n'excède pas 255 caractères !
chaine = "Delamontagne Jean-Michel"
For i = 1 To Len(chaine)
total = total + Asc(Mid(chaine, i, 1))
Next i
MsgBox chaine & " en numérique c'est : " _
& Format(total, " # ##0,00")
End Function
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
La fonction ASC() te retourne le code Ascii d'un caractère C'est ce que fait Asc(Mid(chaine,i,1)) dans la boucle For i = 1 to len(chaine) ... Next i
Si on décompose : Mid(chaine,i,1) extrait le caractère à la position i dans la chaine Asc(Mid(chaine, i,1)) retourne le code ASCII du caractère à la ième position dans la chaine
OK ?
Bonjour,
Merci pour la réponse.
Je me suis peut être mal expliqué. Ce que je cherche, c'est à obtenir le code caractère de chaque une des letres qui composent mon texte.
Est-ce possible ?
Bonjour, Avec la même interrogation qu'Hervé mais sait-on jamais !
Avec ceci peut-être :
Function zz() Dim chaine As String, nb As Integer Dim i As Byte, total As Integer 'on admet pour le fun que la longueur de la chaine ' n'excède pas 255 caractères ! chaine = "Delamontagne Jean-Michel" For i = 1 To Len(chaine) total = total + Asc(Mid(chaine, i, 1)) Next i MsgBox chaine & " en numérique c'est : " _ & Format(total, " # ##0,00") End Function
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
