Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : NbInStr
Compte le nombre d'occurence d'une chaîne dans une autre.
(Consulté 18546 fois.)

Public Function NbInStr(stChaine As String, stCar As String, Optional lgDebut As Long = 1) As Long
' Compte le nombre d'occurence d'une chaîne dans une autre
' lgDebut est l'endroit ou débute la recherche de stCar dans stChaine.
' Exemple de fonctionnement : La chaîne "bb" est présente 2 fois dans "abbbc".
Dim lgWhile As Long
Dim
lgLenChaine As Long, lgLenCar As Long
Dim
lgOccur As Long
lgOccur = 0
If (stCar <> vbNullString) Then
   
lgLenChaine = Len(stChaine)
    lgLenCar = Len(stCar)
    lgWhile = InStr(lgDebut, stChaine, stCar)
   
Do While (lgWhile > 0)
        lgOccur = lgOccur + 1
        lgWhile = InStr(lgWhile + 1, stChaine, stCar)
   
Loop
End If
NbInStr = lgOccur
End Function
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr