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 : NbMot
Renvoie le nombre d'éléments d'une chaîne séparés par un caractère.
(Consulté 19183 fois.)

' Depuis VB6, on obtient en gros le même résultat avec :
' UBound(Split(stString, stStep))
Public Function NbMot(ByVal stString As String, ByVal stSep As String) As Long
' Renvoie le nombre de mots d'une chaîne séparé par un caractère
Dim lgNBMot As Long
Dim
lgPos As Long
' Initialise le nombre de mot à 0
lgNBMot = 0
stString = Trim$(stString)
lgPos = 0
Do
' Cherche la position du premier séparateur
 
  lgPos = InStr(lgPos + 1, stString, stSep)
' Incrémente le nombre de mots présents dans la chaîne
  lgNBMot = lgNBMot + 1
' On répète l'opération tant qu'on trouve un séparateur
Loop Until lgPos = 0
' Si la chaîne n'est pas vide on renvoie le résultat trouvé, sinon zéro
If stString <> vbNullString Then
   
NbMot = lgNBMot
Else
   
NbMot = 0
End If
End Function
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr