Compter le nombre de fois qu'une lettre se trouve dans un string

Commenter

Contenu du snippet

Ce module indique dans la variable nbre le nombre de fois que le caractère lettre$ a été retrouvé dans la chaîne buffer$.

Source / Exemple : 


' ********************************************************
' Comptes le nombre de caractères lettre$ dans un buffer
' ********************************************************
Public Function CompteCaract(buffer As String, lettre As String, nbre As Integer)
    ' Variables locales
    Dim pos As Integer
    Dim old_pos As Integer
    
    ' Début de la boucle
    old_pos = 1
    nbre = 0
    pos = InStr(old_pos, buffer, lettre, vbBinaryCompare)
    
    ' Boucle
    While pos <> 0
        nbre = nbre + 1
        old_pos = pos
        pos = InStr(old_pos + 1, buffer, lettre, vbBinaryCompare)
    Wend
End Function

Conclusion :


Le fonctionnement se fait par une boucle par décompte des positions avec un InStr()

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_ols)