Insert Sub-String Into A String By Position

These 2 functions allow you to insert a string BEFORE or AFTER a character in a
string. You just need to specify the position at which you want to insert the
new string.

Parmameters:-
(1) strString - the targeted string
(2) strNewString - the new string to insert
(3) iPos - the insertion position

Function InsertBefore (strString As String, strNewString As String, iPos As
Integer) As String
Dim i As Integer
Dim iLen As Integer
Dim array () As String
Dim strFinalSring As String

iLen = Len(strString)
Redim array ( 1 To iLen+1)

For i=1 To iLen
array(i) = Mid$(strString, i, 1)
Next

For i=1 To iLen+Len(strNewString)
If iPos=i Then
strFinalString = strFinalString + strNewString
strFinalString = strFinalString + array(i)
Else
strFinalString = strFinalString + array(i)
End If
Next

InsertBefore = strFinalString
End Function


Function InsertAfter (strString As String, strNewString As String, iPos As
Integer) As String
Dim i As Integer
Dim iLen As Integer
Dim array () As String
Dim strFinalSring As String

iLen = Len(strString)
Redim array ( 1 To iLen+1)

For i=1 To iLen
array(i) = Mid$(strString, i, 1)
Next

For i=1 To iLen+Len(strNewString)
If iPos=i Then
strFinalString = strFinalString + array(i)
strFinalString = strFinalString + strNewString
Else
strFinalString = strFinalString + array(i)
End If
Next

InsertAfter = strFinalString
End Function

This was first published in November 2000

Dig deeper on Lotus Notes Domino Administration Tools

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