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
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts focused on Lotus Domino, Notes, Workplace and other related technologies.
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