Domino Code Fragment

Code Name*
ReplaceSubstring		Date*
02/24/1999		Source (or email address if you prefer)*
jpotts@navsystems.com
IP address:.
Description*
Type*
LotusScript		Categories*
String Handling
Implementation:
None (plug and play)		Required Client:
(none)		Server:
(none)
Limitations:
Comments:
Recursive design is compact and efficient.
Files/Graphics attachments (if applicable): Code:
Function ReplaceSubstring(targetString As String, searchString As String, replacementString As String) As String
Dim newString As String
Dim searchPos As Integer
Dim backHalf As Integer

searchPos = Instr(targetString,searchString)
If (searchPos > 0) Then

backHalf = Len(targetString) - Len(searchString) - (searchPos -1)
If backHalf < 0 Then
backHalf = 0
End If

targetString = Left(targetString,searchPos - 1) + replacementString + Mid(targetString,searchPos+Len(searchString),backHalf)
newString = ReplaceSubstring(targetString, searchString, replacementString)
End If

ReplaceSubstring = targetString
End Function