Petite fonction de recherche et de remplacement de chaine dans une grande chaine

Commenter

Contenu du snippet

C'est une toute ch'tite fonction qui va remplacer une chaine dans une autre...

Source / Exemple : 


'----------------------------------------------------------------------------------------
' Nom : RSTR_Remplace
'
' But : Permet de remplacer une partie d'une chaine par une autre
'
' Paramètres : pstrChaineComplete : Chaine complete avant traitement
'              pstrChaineCherchee : Chaine que l'on veut remplacer
'              pstrChaineRemplacement : Chaine de remplacement de la chaine cherchee
' Fonctions appelées : -
'
' Valeur de retour : Chaine de caractères si OK , "ERREUR" si... erreur :)
' Auteur     : Jean-Francis           Date : 14/11/2002
'----------------------------------------------------------------------------------------
Public Function RSTR_Remplace(ByVal pstrChaineComplete As String, ByVal pstrChaineCherchee As String, ByVal pstrChaineRemplacement As String) As String

On Error GoTo err:

Dim lngPosition As Long
Dim lngLongueur As Long

If LenB(pstrChaineRemplacement) = 0 Then
    Exit Function
End If

lngLongueur = Len(pstrChaineCherchee)

lngPosition = InStr(pstrChaineComplete, pstrChaineCherchee)

Do While lngPosition <> 0
    If lngPosition = 1 Then
        pstrChaineComplete = pstrChaineRemplacement & Mid$(pstrChaineComplete, lngLongueur + 1)
    Else
        pstrChaineComplete = Left$(pstrChaineComplete, lngPosition - 1) & pstrChaineRemplacement & Mid$(pstrChaineComplete, lngPosition + lngLongueur)
    End If
    lngPosition = InStr(pstrChaineComplete, pstrChaineCherchee)
Loop

RSTR_Remplace = pstrChaineComplete
    
Exit Function

err:
    RSTR_Remplace = "ERREUR"
    
End Function

Conclusion :


J'espère que ça servira autant qu'à moi car ça m'a été bien utile ces derniers temps :)
Si vous avez mieux par contre, n'hésitez pas à me le communiquer par email...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (JeanFrancis68)