|
|
Is there a @Replace equivalent function in LotusScript?
Unfortunately, LotusScript doesn't have this function that can be found in MS VBScript (the Replace function). Andy Armstrong (andy@tagish.com) coded this up:
' Return strArg with instances of strSrc replaced by strDst. After each
' replace searching recommences after
' the last character of the replacement
'
' History:
'
' 23-12-1998 AA Initial release
Function StringStuffReplaceString(Byval strArg As String,
Byval strSrc As String,
Byval strDst As String) As String
Dim iPos As Integer
iPos = Instr(strArg, strSrc)
While iPos > 0
strArg = Left$(strArg, iPos - 1) + strDst + Mid$(strArg, iPos +
Len(strSrc))
iPos = Instr(iPos + Len(strDst), strArg, strSrc)
Wend
StringStuffReplaceString = strArg
End Function