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 : DecoupeChaine
Extraction d'une chaîne (à l'intérieur d'une autre) entre deux bornes données.
(Consulté 19173 fois.)

Public Function DecoupeChaine(lgCoupeDebut As Long, stChaine, lgCoupeFin As Long) As String
' 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
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr