This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
First of all, never use Evaluate when you have native functions in Lotusscript. Also remember that Evaluate returns a variant/array, not a string value, so your code would not work.
Second, you should indicate what it is that does not work. What error do you get, on what line of code?
The code below shows two different ways to achieve what you are asking for.
Dim originalText As String
Dim newText As String
originalText = "This product was made in japan and exported"
newText = Replace(originalText, "made in japan","Manufactured & Assembled in Japan")
MsgBox newText,,"Using Replace()"
newtext = StrLeft(originalText,"made in japan")
newtext = newtext + "Manufactured & Assembled in Japan"
newtext = newtext + StrRight(originalText,"made in japan")
MsgBox newText,,"Using StrLeft() and StrRight()"
Feedback response number WEBB9CZJCW created by ~Dan Kikiterobu on 10/31/2013
This works...
Return to top
. . This works... (~Dan Kikiterobu... 31.Oct.13) 
