Code - Visual Basic Research Center

~ 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 ~

~ Partenaires ~

Retour à la liste des fonctions

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

Retour à la liste des fonctions