Je te garantie rien, mais normalement ça devrait marcher :
if chr(caractere) > 127 then
msgbox("Le caractère " & caractere & " semble être étendu" )
else
msgbox("Le caractère " & caractere & " semble être simple" )
end if |
En effet, la norme ASCII (127 premier caractères) ne prends que les caractères américains (donc non accentués) plus des caractères à la gomme genre toute la ponctuation, @, &, $, les oppérateur arithmétiques, etc.
Sinon, si tu ne veux que des lettres et des chiffres, alors :
if (caractere >= "a" and caractere <= "z" ) or (caractere >= "A" and caractere <= "Z" ) or (caractere >= "1" and caractere <= "9" )then
msgbox("Le caractère " & caractere & " est alphanum" )
else
msgbox("Le caractère " & caractere & " est pas alphnum" )
end if |
Message édité par MagicBuzz le 13-10-2003 à 17:49:44