Manage Learn to apply best practices and optimize your operations.

@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)
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]"

This was last published in November 2000

Dig Deeper on Domino Resources - Part 2

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...