En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1145117 visiteurs

 3 visiteurs en ligne

Nous contacter

Contact

Remplacer une caractère

Remplacer un ou plusieurs caractères

Alternative à la fonction 'Replace" apparue avec Access 2000
 

Function fReplace(ByVal strValue As String, _
                  ByVal strToReplace As String, _
                  ByVal strReplaceValue As String) As String
    Dim Position As Integer

    Position = InStr(strValue, strToReplace)

    Do While Position > 0
        strValue = Left(strValue, Position - 1) & strReplaceValue _
                   & Mid(strValue, Position + Len(strToReplace))
        Position = InStr(Position + Len(strReplaceValue), _
                         strValue, strToReplace, vbTextCompare)
    Loop

    fReplace = strValue

End Function

Catégorie : Les mémos - String
Page lue 7905 fois
Vous êtes ici :   Accueil » Remplacer une caractère