This function will search for a specific character in a text string and remove the specified character when it is found.
How It Works
A text string and search string are passed to the function. The function loops through each character in the text string and compares each character with the specified search string. If the two values do not match, the current character is added to a temporary string. The loop is then incremented, and the next character is checked. If the values match, the current character is not added to the temporary array. After all characters are checked, the temporary string is returned to the calling code with all instances of the search string removed.
This function requires two parametersa text string and the target character to be removed by the text search string.
Function RemoveString ( TextString As String, SearchString As String ) Dim tempString As String Dim currChar As String Dim x As Integer tempString = "" For x = 1 To Len( TextString ) currChar = Mid$( textString, x, 1 ) If currChar <> SearchString Then tempString = tempString + currChar End If Next RemoveString = tempString End Function
The following illustrates how this function could be called from an action button. In this example, the character "B" is removed from the text string "ABCD" (see Figure 13.2). The revised text string, "ACD", is subsequently stored in the MyOutput string.
Sub Click(Source As Button) Dim MyOutput As String Msgbox "ABCD", , "Original String" MyOutput = RemoveString ( "ABCD", "B" ) Msgbox MyOutput, , "Replaced String" End Sub
Figure 13.2. Remove a character from a string
An Introduction to the Lotus Domino Tool Suite
Getting Started with Designer
Navigating the Domino Designer Workspace
Domino Design Elements
An Introduction to Formula Language
An Introduction to LotusScript
Fundamentals of a Notes Application
Reference Library Applications
Design Enhancements Using LotusScript
Design Enhancements Using Formula Language
Miscellaneous Enhancements and Tips for Domino Databases
Application Deployment and Maintenance
Appendix A. Online Project Files and Sample Applications
Appendix B. IBM® Lotus® Notes® and Domino®Whats Next?