~ 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 : DoubleCote Public Function DoubleCote(ByVal stTXT As String) As String ' Reçoit une chaîne et double les apostrophes qui se trouvent à l'intérieur... Dim lgPos As Long Dim stTMP As String stTMP = stTXT ' On cherche la position dans la chaîne de la première apostrophe lgPos = InStr(stTMP, "'") ' Tant qu'il y a des apostrophes dans la chaîne... Do While lgPos > 0 ' Chaîne = début de la chaîne (apostrophe comprise) + "'" + fin de la chaîne stTMP = Left$(stTMP, lgPos) & "'" & Right$(stTMP, Len(stTMP) - lgPos) ' On cherche la position de l'apostrophe suivante lgPos = InStr(lgPos + 2, stTMP, "'") Loop ' Renvoie la chaîne modifiée DoubleCote = stTMP End Function |