@Replacesubstring In Lotusscript

LotusScript function to emulate @ReplaceSubstring - Handy for web agents.
Function ReplaceSubstring( sourceStr As String, findStr As String, replaceStr
As String) As String

Dim replaceLen As Integer
Dim nextFound As Integer
Dim startPos As Integer

replaceLen = Len(replaceStr)
startPos = 1
nextFound = Instr( sourceStr, findStr)
If nextFound = 0 Then
'source string does not contain find string so nothing to do - return
source string as is
ReplaceSubstring = sourceStr
Exit Function
End If

While Not nextFound = 0
' Replace all occurrances of find string with replace string
ReplaceSubstring = ReplaceSubstring + Mid$( sourceStr, startPos,
nextFound-startPos) + replaceStr
startPos = nextFound + replaceLen
nextFound = Instr( startPos, sourceStr, findStr)
Wend
If startPos < Len( sourceStr) Then
' don't forget the stuff at the end of source string
ReplaceSubstring = ReplaceSubstring + Right$( sourceStr, Len(
sourceStr) - startPos + 1)
End If
End Function


Example Usage:

Print "[/" + ReplaceSubstring(db.FilePath, "\", "/") + "/LookupView/" +
doc.UniversalID + "?EditDocument]"

Download this free guide

Download: IT certifications that stand out

Are you looking to advance your career? Expand your knowledge? Boost your credibility? Our editors put together this complimentary 19-page guide on everything you need to know about obtaining an IT certification—with special attention given to cloud and desktop certifications.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

• • I agree to TechTarget’s Terms of Use, Privacy Policy, and the transfer of my information to the United States for processing to provide me with relevant information as described in our Privacy Policy.

  Please check the box if you want to proceed.

• • I agree to my information being processed by TechTarget and its Partners to contact me via phone, email, or other means regarding information relevant to my professional interests. I may unsubscribe at any time.

  Please check the box if you want to proceed.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.