~ 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 ~
|
Fonction : PosPattern Optional lgStart As Long = 1) As Long ' Recherche la position d'une expression (avec caractères générique) ' dans une chaîne donnée. Dim stTmpMask As String Dim stTmpTexte As String Dim lgLen As Long, lgPos As Long lgLen = Len(stTexte) lgPos = -1 ' Mise en place du masque à rechercher stTmpMask = stMask & "*" ' Réduction de la chaîne suivant le point de départ stTmpTexte = Mid$(stTexte, lgStart) ' Parcours tant que l'expression n'est pas rencontrée Do While (Not (stTmpTexte Like stTmpMask)) And (stTmpTexte <> vbNullString) ' Réduit la chaîne d'un caractère stTmpTexte = Mid$(stTmpTexte, 2) Loop ' Retourne la position courante If (stTmpTexte <> vbNullString) Then lgPos = lgLen - Len(stTmpTexte) + 1 ' Retourne la position, ou bien -1 si l'expression n'est pas présente PosPattern = lgPos End Function |