Remplacer une chaîne (inconnue) placée entre deux chaînes (connues)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 009 fois - Téléchargée 8 fois


Contenu du snippet

Private Sub ReplaceString(ByRef Expression As String, sLeft As String, sRight As String, sRep As String)
    Dim lPosL As Long, lPosR As Long
    lPosL = InStr(1, Expression, sLeft): lPosR = InStr(lPosL + 1, Expression,  sRight)
    If lPosL > 0 And lPosR > 0 Then Expression = Left$(Expression, lPosL + Len(sLeft) - 1)  & sRep & Mid$(Expression, lPosR)
End Sub
'EXEMPLE  D'UTILISATION
Private Sub Form_Load()
    Dim sStr As String
    sStr = "<div  align='center'>machin</div>"
    Call ReplaceString(sStr, "'>", "</", "budule")
    MsgBox sStr
    Unload Me
End Sub


Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

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.