FONCTION REPLACE (VISUAL BASIC 5.0)
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/646-fonction-replace-visual-basic-5-0
https://codes-sources.commentcamarche.net/source/646-fonction-replace-visual-basic-5-0
5 oct. 2001 à 12:51
C'est pourquoi, j'ai modifié le code comme suit:
Function ReplaceString(ByVal sTarget As String, sSearch As String, sNew As String) As String
Dim p As Integer
p = 1
Do
p = InStr(p, sTarget, sSearch)
If p Then
sTarget = Left(sTarget, p - 1) + sNew + Mid(sTarget, p + Len(sSearch))
p = p + Len(sNew)
End If
Loop While p
ReplaceString = sTarget
End Function
18 sept. 2001 à 23:13