FONCTION REPLACE (VISUAL BASIC 5.0)

Signaler
-
 Warning -
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

Malheureusement la fonction ne peut fonctionner si l'on veut remplacer par exemple le caractère par ' par ''. Ce qui sert en SQL.
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
quand on a une version de Vb qui ne gère pas Replace(Text,find,replace), ça peut servir.