J'ai un caract=E8re Caract$
Je veux savoir si c'est un chiffre, une lettre majuscule, une lettre
minuscule
Quelle est l'instruction la plus efficace ?
Je sais qu'on peut utiliser
IF Instr ("a b c d ... z", Caract$)>0 Then ... c'est une lettre
minuscule
IF Instr ("A B C D ... Z",Caract$)>0 Then ... c'est une lettre
majuscule
IF Instr ("1 2 3 4 ... 9" ,Caract$)>0 Then ... c'est un chiffre
... mais il y a peut =EAtre mieux et plus rapide ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Bonjour, le test ascii pour ma part:
dim octet as string *1 select case asc(octet) case 48 to 57 : msgbox "chiffre" case 65 to 90 : msgbox "minuscule" case 97 to 122 : msgbox "majuscule" case else : "autre" end select - Cordialement ;o) - Logiciels, romans, contacts : http://irolog.free.fr _______________________ . .
a écrit dans le message de news: Bonjour,
Je me suis mal exprimé
J'ai un caractère Caract$ Je veux savoir si c'est un chiffre, une lettre majuscule, une lettre minuscule Quelle est l'instruction la plus efficace ?
Je sais qu'on peut utiliser IF Instr ("a b c d ... z", Caract$)>0 Then ... c'est une lettre minuscule IF Instr ("A B C D ... Z",Caract$)>0 Then ... c'est une lettre majuscule IF Instr ("1 2 3 4 ... 9" ,Caract$)>0 Then ... c'est un chiffre
... mais il y a peut être mieux et plus rapide ?
Merci, bonne journée Michel
Bonjour, le test ascii pour ma part:
dim octet as string *1
select case asc(octet)
case 48 to 57 : msgbox "chiffre"
case 65 to 90 : msgbox "minuscule"
case 97 to 122 : msgbox "majuscule"
case else : "autre"
end select
-
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
<michel.arnoux@gmail.com> a écrit dans le message de
news:ff5f631a-089d-4395-8e63-e80decec1cc4@v5g2000prm.googlegroups.com...
Bonjour,
Je me suis mal exprimé
J'ai un caractère Caract$
Je veux savoir si c'est un chiffre, une lettre majuscule, une lettre
minuscule
Quelle est l'instruction la plus efficace ?
Je sais qu'on peut utiliser
IF Instr ("a b c d ... z", Caract$)>0 Then ... c'est une lettre
minuscule
IF Instr ("A B C D ... Z",Caract$)>0 Then ... c'est une lettre
majuscule
IF Instr ("1 2 3 4 ... 9" ,Caract$)>0 Then ... c'est un chiffre
dim octet as string *1 select case asc(octet) case 48 to 57 : msgbox "chiffre" case 65 to 90 : msgbox "minuscule" case 97 to 122 : msgbox "majuscule" case else : "autre" end select - Cordialement ;o) - Logiciels, romans, contacts : http://irolog.free.fr _______________________ . .
a écrit dans le message de news: Bonjour,
Je me suis mal exprimé
J'ai un caractère Caract$ Je veux savoir si c'est un chiffre, une lettre majuscule, une lettre minuscule Quelle est l'instruction la plus efficace ?
Je sais qu'on peut utiliser IF Instr ("a b c d ... z", Caract$)>0 Then ... c'est une lettre minuscule IF Instr ("A B C D ... Z",Caract$)>0 Then ... c'est une lettre majuscule IF Instr ("1 2 3 4 ... 9" ,Caract$)>0 Then ... c'est un chiffre
... mais il y a peut être mieux et plus rapide ?
Merci, bonne journée Michel
jeanmarcnoury
On 3 fév, 13:05, wrote:
Bonjour,
Je me suis mal exprimé
J'ai un caractère Caract$ Je veux savoir si c'est un chiffre, une lettre majuscule, une lettre minuscule Quelle est l'instruction la plus efficace ?
Hello,
Tu as plusieurs solutions. La plupart sont expliquées ici par exemple:
En gros, tu as le choix entre: - de simples tests: If Car = "A" Then ... - Utiliser INstr: If Instr("abcdef...", Car)>0 Then - Utiliser les fonctions VB comme: IsNumeric(Car) - Utiliser les fonctions de l'API (voir l'article sus-cité) - Utiliser les expressions régulières (idem)
Quand à l'efficacité, le plus simple est de faire des essais. Pour ce faire, tu peux lire: http://faq.vb.free.fr/index.php?question6 et http://faq.vb.free.fr/index.php?question8
En gros, tu as le choix entre:
- de simples tests: If Car = "A" Then ...
- Utiliser INstr: If Instr("abcdef...", Car)>0 Then
- Utiliser les fonctions VB comme: IsNumeric(Car)
- Utiliser les fonctions de l'API (voir l'article sus-cité)
- Utiliser les expressions régulières (idem)
Quand à l'efficacité, le plus simple est de faire des essais.
Pour ce faire, tu peux lire:
http://faq.vb.free.fr/index.php?question=176
et
http://faq.vb.free.fr/index.php?question=118
En gros, tu as le choix entre: - de simples tests: If Car = "A" Then ... - Utiliser INstr: If Instr("abcdef...", Car)>0 Then - Utiliser les fonctions VB comme: IsNumeric(Car) - Utiliser les fonctions de l'API (voir l'article sus-cité) - Utiliser les expressions régulières (idem)
Quand à l'efficacité, le plus simple est de faire des essais. Pour ce faire, tu peux lire: http://faq.vb.free.fr/index.php?question6 et http://faq.vb.free.fr/index.php?question8
tu peux aussi utiliser un select case pour identifier les caractères. (Aucune idée si c'est plus ou moins rapide qu'avec des Instr)
Select Case c$ Case "a" To "z" Debug.Print "Minuscule" Case "A" To "Z" Debug.Print "Majuscule" Case "0" To "9" Debug.Print "Chiffre" Case Else Debug.Print "Autre" End Select
Vincent Guichard
Bonjour,
tu peux aussi utiliser un select case pour identifier les caractères.
(Aucune idée si c'est plus ou moins rapide qu'avec des Instr)
Select Case c$
Case "a" To "z"
Debug.Print "Minuscule"
Case "A" To "Z"
Debug.Print "Majuscule"
Case "0" To "9"
Debug.Print "Chiffre"
Case Else
Debug.Print "Autre"
End Select
tu peux aussi utiliser un select case pour identifier les caractères. (Aucune idée si c'est plus ou moins rapide qu'avec des Instr)
Select Case c$ Case "a" To "z" Debug.Print "Minuscule" Case "A" To "Z" Debug.Print "Majuscule" Case "0" To "9" Debug.Print "Chiffre" Case Else Debug.Print "Autre" End Select
