Vérification dans une chaine de caractêre
morefaya
cs_KifKif
- Messages postés
- 4
- Date d'inscription
- lundi 15 décembre 2003
- Statut
- Membre
- Dernière intervention
- 11 mars 2006
cs_KifKif
- Messages postés
- 88
- Date d'inscription
- jeudi 7 mars 2002
- Statut
- Membre
- Dernière intervention
- 4 avril 2008
A voir également:
- Vérification dans une chaine de caractêre
- Vérification de chaînes de caractères - Codes sources - Javascript (Trucs & Astuces)
- Parcourir une chaine de caractère en python ✓ - Forum - Python
- Remplir un tableau de chaîne de caractère en c ✓ - Forum - C / C++ / C++.NET
- Extraire une partie d'une chaine de caractère python - Forum - Python
- Parcourir une chaine de caractère java - Forum - Java
2 réponses
asecher
11 mars 2006 à 13:40
- Messages postés
- 262
- Date d'inscription
- lundi 20 octobre 2003
- Statut
- Membre
- Dernière intervention
- 27 avril 2007
11 mars 2006 à 13:40
La fonction Asc() ne gère qu'un seul caractère;
J'utilise une fonction du genre (ici en VBS mais applicable facilement en VB)
Dim strInput
strInput=InputBox("entrer la chaîne à vérifier")
if GoodString(strInput) then
wscript.echo "Bonne saisie"
else
Wscript.echo "Mauvaise saisie"
end if
Wscript.quit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GoodString(TheString)
'Renvoie False si la chaine fournie a un caractère qui
'n'est pas dans la constante strGoogCars ou est vide
'sinon, renvoie True
Const strGoodCars=" -ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim iCar '*** N° du caractère de la chaine
GoodString=True '*** la chaine est réputée bonne
For iCar=1 to len(TheString)
if not(InStr(1,strGoodCars,UCase(Mid(TheString,iCar,1))))>0 then
GoodString=False '*** la chaîne contient un mauvais car.
Exit For '*** on sort de la boucle
end if
Next
if len(TheString)=0 then
GoodString=False '*** la chaîne contient un mauvais car.
end if
End Function
Alain 31
J'utilise une fonction du genre (ici en VBS mais applicable facilement en VB)
Dim strInput
strInput=InputBox("entrer la chaîne à vérifier")
if GoodString(strInput) then
wscript.echo "Bonne saisie"
else
Wscript.echo "Mauvaise saisie"
end if
Wscript.quit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GoodString(TheString)
'Renvoie False si la chaine fournie a un caractère qui
'n'est pas dans la constante strGoogCars ou est vide
'sinon, renvoie True
Const strGoodCars=" -ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim iCar '*** N° du caractère de la chaine
GoodString=True '*** la chaine est réputée bonne
For iCar=1 to len(TheString)
if not(InStr(1,strGoodCars,UCase(Mid(TheString,iCar,1))))>0 then
GoodString=False '*** la chaîne contient un mauvais car.
Exit For '*** on sort de la boucle
end if
Next
if len(TheString)=0 then
GoodString=False '*** la chaîne contient un mauvais car.
end if
End Function
Alain 31
cs_KifKif
11 mars 2006 à 16:09
- Messages postés
- 88
- Date d'inscription
- jeudi 7 mars 2002
- Statut
- Membre
- Dernière intervention
- 4 avril 2008
11 mars 2006 à 16:09
Solution plus simple
Dim i, j, a$, c$
'tous les caractères interdits dans a$
a$ = "[mailto:1234567890&|@#'(§^!{})_%´`£,?;.:/ 1234567890&|@#'(§^!{})_%´`£,?;.:/]=+~"
For i = 1 To Len(TextSaisie)If InStr(a$, Mid$(TextSaisie, i, 1)) 0 Then c$ c$ + Mid$(TextSaisie, i, 1)
Next
ListMots.AddItem c$
KIfKif
Dim i, j, a$, c$
'tous les caractères interdits dans a$
a$ = "[mailto:1234567890&|@#'(§^!{})_%´`£,?;.:/ 1234567890&|@#'(§^!{})_%´`£,?;.:/]=+~"
For i = 1 To Len(TextSaisie)If InStr(a$, Mid$(TextSaisie, i, 1)) 0 Then c$ c$ + Mid$(TextSaisie, i, 1)
Next
ListMots.AddItem c$
KIfKif