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


Commenter

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

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 (PCPT)