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

This was first published in November 2000

Dig deeper on Domino Resources - Part 2

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close