Recherche de voyelles

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 121 fois - Téléchargée 40 fois

Contenu du snippet

ce petit code recherche le nombre de voyelles dans une chaine

Source / Exemple :


Dim i, j, compt As Integer
Dim chaine As String
Dim t1(5) As String
compt = 0
t1(0) = "a"
t1(1) = "e"
t1(2) = "h"
t1(3) = "i"
t1(4) = "o"
t1(5) = "u"
chaine = InputBox("taper votre chaine ici")
For i = 1 To Len(chaine)
For j = 0 To 5
If LCase((Mid(chaine, i, 1)) = t1(j)) Then compt = compt + 1
Next
Next
MsgBox ("le nombre de voyelles est:") & compt

Conclusion :


c mon premier code

A voir également

Ajouter un commentaire Commentaires
Messages postés
764
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
6 septembre 2010
18
Une indentation du code sera appréciée..
Messages postés
60
Date d'inscription
mardi 4 septembre 2001
Statut
Membre
Dernière intervention
19 janvier 2009

Tsss, y a beaucoup + court et rapide :
Une seule boucle suffit :

LchaineTotal=len(chaine)

for j=0 to 5
chaine=replace(chaine,t(j),"")
next

msgbox "le nombre de voyelle est :" & LchaineTotal-len(chaine)
Messages postés
439
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
1
Il préfère le h... (sourire)
Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004

h, hum...
et y, nan ? t'es raciste, tu veux pas de grecs ? lol ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.