Fonction asp pour comptabiliser le nombre d'occurence d'une chaîne de caractères

Techniques

Cette section permet de regrouper un ensemble de techniques ou de scripts qui ont l'originalité d'arriver à résoudre une difficulté avec le moindre effort ou qui sont particulièrement efficaces...

•  Script: comptabiliser le nombre d'occurence d'une chaîne dans une autre :

        
<%
Function NbOccurence(strChaineInit, strChaineRecherche)
 NbOccurence = UBound(Split(strChaineInit, strChaineRecherche))
End Function


'Exemple d'appel de la fonction
chaine_initiale = "Ici la chaine de recherche"
chaine_recherche = "i"
Response.Write "La chaîne :  " & _
  chaine_recherche & " a été trouvée : " & _
  NbOccurence(chaine_initiale, chaine_recherche) & _
   " fois dans " & chaine_initiale 
   
%>