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 : MotPos
Retourne le n-ième mot d'une chaîne séparé un caractère.
(Consulté 18578 fois.)

' A noter que depuis VB6, on peut utiliser la fonction Split...
' stXXX = Split( stPhrase , " " )(2) extrait le 3ième mot.
Public Function MotPos(ByVal stString As String, ByVal lgNoMot As Long,
                    
  ByVal stSep As String) As String
' Renvoie le n-ième mot de la chaîne séparé par des caractères
Dim lgOld As Long
Dim
lgPos As Long
Dim
lgNb As Long
' Initialisation des variables
lgOld = 0
lgPos = 0
lgNb = 0
Do
' On incrémente la position du dernier séparateur que l'on a trouvé,
' pour voir ou se trouve le suivant
 
  lgOld = lgPos + 1
' On cherche la position du séparateur
 
  lgPos = InStr(lgOld, stString, stSep)
' On incrémente la position du mot sur laquelle on se trouve
 
  lgNb = lgNb + 1
' On tourne tant que l'on n'est pas positionné sur le mot que l'on cherche
Loop Until (lgNb >= lgNoMot)
If lgPos = 0 Then lgPos = Len(stString) + 1
If lgNoMot = 0 Then
   
MotPos = vbNullString
Else
   
MotPos = Mid$(stString, lgOld, lgPos - lgOld)
End If
End Function

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr