.NODE

Remove a Character from a String

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.

Implementation

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

Calendar Applications

Collaborative Applications

Reference Library Applications

Workflow Applications

Web Applications

Design Enhancements Using LotusScript

Design Enhancements Using Formula Language

View Enhancements

Sample Agents

Miscellaneous Enhancements and Tips for Domino Databases

Data Management

Security

Application Deployment and Maintenance

Troubleshooting

Appendix A. Online Project Files and Sample Applications

Appendix B. IBM® Lotus® Notes® and Domino®Whats Next?

show all menu





Lotus Notes Developer's Toolbox(c) Tips for Rapid and Successful Deployment
Lotus Notes Developers Toolbox: Tips for Rapid and Successful Deployment
ISBN: 0132214482
EAN: 2147483647
Year: N/A
Pages: 293
Authors: Mark Elliott
Similar book on Amazon

Flylib.com © 2008-2017.
If you may any questions please contact us: flylib@qtcs.net