Calcul du nombre d'occurence d'un caractère ou chaîne de caractères

Contenu du snippet

Cette fonction permet de calculer le nombre de fois qu'un caractère ou qu'une chaîne de caractères est présent dans un autre chaîne.

Source / Exemple :


Function CalculateOccurenceNumber(strString As String, strCharacter As String) As Integer
    
    Dim intPosition As Integer
    
    intPosition = 1
    
    While intPosition <= Len(strString) And strCharacter <> "" And InStr(intPosition, strString, strCharacter) <> 0
       
        intPosition = InStr(intPosition, strString, strCharacter)+1
        CalculateOccurenceNumber = CalculateOccurenceNumber + 1
    Wend
End Function

Conclusion :


exemple:

CalculateOccurenceNumber("Ceci est un Test", "e") renvoie 3

A voir également

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.