07-25-2022, 03:09 PM
Somebody here gave this function (sorry who was it ???)
Function strReplace$ (s$, replace$, new$) 'case sensitive
strReplace$ = s$
p = InStr(s$, replace$)
While p
strReplace$ = Mid$(strReplace$, 1, p - 1) + new$ + Mid$(strReplace$, p + Len(replace$))
p = InStr(p + Len(new$), strReplace$, replace$)
Wend
End Function
Function strReplace$ (s$, replace$, new$) 'case sensitive
strReplace$ = s$
p = InStr(s$, replace$)
While p
strReplace$ = Mid$(strReplace$, 1, p - 1) + new$ + Mid$(strReplace$, p + Len(replace$))
p = InStr(p + Len(new$), strReplace$, replace$)
Wend
End Function
Why not yes ?