Compter les voyelles et les consomnes d'un texte

Commenter

Contenu du snippet

Tout est dans le titre en fait.
Code très simple, juste parceque l'ont me l'a déjà demandé.

Source / Exemple : 


Public Function CountVoyCons(ByVal Prm_strBuffer As String) As Boolean

' Commence par déclarer 2 tableaux qui vont contenir les résultats
' T'aura plus qu'a faire un Ubound(tblCons) + 1 ou Ubound(tblVoy) + 1 pour avoir le nombre
' +1 parceque les tableaux commence à 0 !
Dim tblCons() As String
Dim tblVoy() As String

' On les redim dynamiquement
ReDim tblCons(0)
ReDim tblVoy(0)

' Maintenant la constante string contenant les consonnes
Const strCons As String = "bcdfghjklmnpqrstvwxz"
Const strVoy As String = "aeiouy"

' Autres variables diverses
Dim lngBcl As Long

For lngBcl = 1 To Len(Prm_strBuffer)
    If (InStr(1, strCons, Mid$(Prm_strBuffer, lngBcl, 1), vbTextCompare)) Then
        ReDim Preserve tblCons(UBound(tblCons) + 1)
        tblCons(UBound(tblCons)) = Mid$(Prm_strBuffer, lngBcl, 1)
    ElseIf (InStr(1, strVoy, Mid$(Prm_strBuffer, lngBcl, 1), vbTextCompare)) Then
        ReDim Preserve tblVoy(UBound(tblVoy) + 1)
        tblVoy(UBound(tblVoy)) = Mid$(Prm_strBuffer, lngBcl, 1)
    End If
Next lngBcl

Stop
' Voila, les tableaux contiennent maintenant les voyelles / consonnes
' Pour compter les consonnes : Ubound(tblCons)
'              les voyelles  : Ubound(tblVoy)

End Function

Conclusion :


En +, il stocke les ettres trouvée, donc c bon.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_processus)