~ 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 : DecoupeChaine ' Cette fonction permet simplement d'extraire un morceau de chaine. On donne le nombre d'élement ' à enlever en début de chaîne et le nombre d'élément à enlever en fin de chaîne. ' Cette procédure n'offre rien d'exceptionnelle mais évite de refaire la recherche à ' chaque fois que l'on veut faire une manip de ce genre. ' Exemple : DecoupeChaine(3, "<b>Gras</b>", 4) retourne "Gras" Dim lgLen As Long lgLen = Len(stChaine) If (lgLen - lgCoupeDebut - lgCoupeFin) > 0 Then DecoupeChaine = Mid$(stChaine, lgCoupeDebut + 1, lgLen - lgCoupeDebut - lgCoupeFin) Else DecoupeChaine = vbNullString End If End Function |