Locked sReplace [VB6 Src] By Scorpio

[F.I.G.H.T.E.R]

sReplace [VB6 Src] By Scorpio

 

[HIDE-THANKS]

Function sReplace(sText As String, sSearch As String, sFirstString As String, sLastString As String) As String
Dim sString As String, sMidString As String
Dim sSemaphore As Boolean
Dim i As Integer

sSemaphore = False

For i = 1 To Len(sText)
sMidString = Mid(sText, i, Len(sSearch))
If sMidString = sSearch Then
If sSemaphore = False Then
sString = sFirstString & sMidString
sSemaphore = True
Else
sString = sString & sMidString & sLastString
sReplace = sReplace & sString
sSemaphore = False
End If
Else
If sSemaphore = True Then
sString = sString & sMidString
Else
sReplace = sReplace & sMidString
End If
End If
Next i
End Function

This is the hidden content, please

• Sign In
• or
• Sign Up

[/HIDE-THANKS]