Click here to Skip to main content
Click here to Skip to main content
Search within:



 
Comments & Discussions (4)

Find And Replace Method For RichTextBox

By , 18 Mar 2006
 

Sample Image - findandriplace_rtb.jpg

Introduction

This article describes how to create a find and replace method for the RichTextBox control. It is  easy to understand. If you develop a word processing application this method will be a grate gadget for you. You can create any method for any control like this.

 

How To Create It

1. First, create a new project and name it "FRRichTextBox"

2. Then we need to create a class RichTextBoxFR.vb. to create it, click on Add New Item button on the Standard Toolbar.

3. Select Class from the template and name it RichTextBoxFR.vb and Click on Add button.

4. We use inherits statement and derive our class from RichTextBox Class 

<FONT color=#0000ff size=2>Public Class</FONT><FONT size=2> RichTextBoxFR</FONT>
<FONT color=#0000ff>    Inherits </FONT>RichTextBox

<FONT color=#0000ff>End Class</FONT>

5. We create a FindAndReplace method with two arguments - FindText and ReplaceText. 

<FONT color=#0000ff size=2>Public Class</FONT><FONT size=2> RichTextBoxFR</FONT>
    <FONT color=#0000ff>Inherits</FONT> RichTextBox
    
    <FONT color=#0000ff>Public Sub</FONT> FindAndReplace(<FONT color=#0000ff>ByVal</FONT> FindText <FONT color=#0000ff>As</FONT> <FONT color=#0000ff>String</FONT>, <FONT color=#0000ff>ByVal</FONT> ReplaceText <FONT color=#0000ff>As String</FONT>)
    <FONT color=#0000ff>Me</FONT>.Find(FindText)
            <FONT color=#0000ff>If Not Me</FONT>.SelectionLength = 0 <FONT color=#0000ff>Then</FONT>
            <FONT color=#0000ff>Me</FONT>.SelectedText = ReplaceText
            <FONT color=#0000ff>Else</FONT>
            MsgBox("The following specified text was not found: " & FindText)
            <FONT color=#0000ff>End If</FONT>
    <FONT color=#0000ff>End Sub</FONT>
    
<FONT color=#0000ff>End Class</FONT>

Me here is RichTextBox. We use Me.Find(FindText) to search the text of the RichTextBox control and select the text. If the search text is found, RichTextBox select it and SelectionLength of RichTextBox will be > 0. Then we use if else statement to replace that text as above.

6. Now we create another FindAndReplace method by overloading our previous FindAndReplace method. You can see that method has five arguments - FindText, ReplaceText, ReplaceAll, MatchCase and WholeWord

<FONT color=#0000ff size=2>Public Class</FONT><FONT size=2> RichTextBoxFR</FONT>
    <FONT color=#0000ff>Inherits</FONT> RichTextBox
    
    <FONT color=#0000ff>Public Sub</FONT> FindAndReplace(<FONT color=#0000ff>ByVal</FONT> FindText <FONT color=#0000ff>As</FONT> <FONT color=#0000ff>String</FONT>, <FONT color=#0000ff>ByVal</FONT> ReplaceText <FONT color=#0000ff>As String</FONT>)
    <FONT color=#0000ff>Me</FONT>.Find(FindText)
            <FONT color=#0000ff>If Not Me</FONT>.SelectionLength = 0 <FONT color=#0000ff>Then</FONT>
            <FONT color=#0000ff>Me</FONT>.SelectedText = ReplaceText
            <FONT color=#0000ff>Else</FONT>
            MsgBox("The following specified text was not found: " & FindText)
            <FONT color=#0000ff>End If</FONT>
    <FONT color=#0000ff>End Sub</FONT>
    
    
    <FONT color=#0000ff>Public Sub</FONT> FindAndReplace(<FONT color=#0000ff>ByVal</FONT> FindText <FONT color=#0000ff>As String</FONT>, <FONT color=#0000ff>ByVal</FONT> ReplaceText <FONT color=#0000ff>As String</FONT>, <FONT color=#0000ff>ByVal</FONT> ReplaceAll <FONT color=#0000ff>As Boolean</FONT>, _
         <FONT color=#0000ff>ByVal</FONT> MatchCase <FONT color=#0000ff>As Boolean</FONT>, <FONT color=#0000ff>ByVal</FONT> WholeWord <FONT color=#0000ff>As Boolean</FONT>)

        <FONT color=#0000ff>    Select Case</FONT> ReplaceAll

            <FONT color=#0000ff>Case False</FONT>
                <FONT color=#0000ff>If</FONT> MatchCase = <FONT color=#0000ff>True</FONT> <FONT color=#0000ff>Then</FONT>
                    <FONT color=#0000ff>If</FONT> WholeWord = <FONT color=#0000ff>True</FONT> <FONT color=#0000ff>Then</FONT>
                        <FONT color=#0000ff>Me</FONT>.Find(FindText, RichTextBoxFinds.MatchCase <FONT color=#0000ff>Or</FONT> RichTextBoxFinds.WholeWord)
                    <FONT color=#0000ff>Else</FONT>
                        <FONT color=#0000ff>Me</FONT>.Find(FindText, RichTextBoxFinds.MatchCase)
                    <FONT color=#0000ff>End If</FONT>
                <FONT color=#0000ff>Else</FONT>
                    <FONT color=#0000ff>If</FONT> WholeWord = <FONT color=#0000ff>True</FONT> <FONT color=#0000ff>Then</FONT>
                        <FONT color=#0000ff>Me</FONT>.Find(FindText, RichTextBoxFinds.WholeWord)
                    <FONT color=#0000ff>Else</FONT>
                        <FONT color=#0000ff>Me</FONT>.Find(FindText)
                    <FONT color=#0000ff>End If</FONT>
                <FONT color=#0000ff>End If</FONT>

                <FONT color=#0000ff>If Not</FONT> <FONT color=#0000ff>Me</FONT>.SelectionLength = 0 <FONT color=#0000ff>Then</FONT>
                    <FONT color=#0000ff>Me</FONT>.SelectedText = ReplaceText
                <FONT color=#0000ff>Else</FONT>
                    MsgBox("The following specified text was not found: " & FindText)
                <FONT color=#0000ff>End If
</FONT>

            <FONT color=#0000ff>Case True</FONT>


                <FONT color=#0000ff>Dim</FONT> i <FONT color=#0000ff>As Integer</FONT>
                <FONT color=#0000ff>For</FONT> i = 0 <FONT color=#0000ff>To Me</FONT>.TextLength <FONT color=#008000>'We know that strings we have to replace < TextLength of RichTextBox</FONT>


                    <FONT color=#0000ff>If</FONT> MatchCase = <FONT color=#0000ff>True Then</FONT>
                        <FONT color=#0000ff>If</FONT> WholeWord = <FONT color=#0000ff>True Then</FONT>
                            <FONT color=#0000ff>Me</FONT>.Find(FindText, RichTextBoxFinds.MatchCase <FONT color=#0000ff>Or</FONT> RichTextBoxFinds.WholeWord)
                        <FONT color=#0000ff>Else</FONT>
                            <FONT color=#0000ff>Me</FONT>.Find(FindText, RichTextBoxFinds.MatchCase)
                        <FONT color=#0000ff>End If</FONT>
                    <FONT color=#0000ff>Else</FONT>
                        <FONT color=#0000ff>If</FONT> WholeWord = <FONT color=#0000ff>True</FONT> <FONT color=#0000ff>Then</FONT>
                            <FONT color=#0000ff>Me</FONT>.Find(FindText, RichTextBoxFinds.WholeWord)
                        <FONT color=#0000ff>Else</FONT>
                            <FONT color=#0000ff>Me</FONT>.Find(FindText)
                        <FONT color=#0000ff>End If</FONT>
                    <FONT color=#0000ff>End If</FONT>


                    <FONT color=#0000ff>If</FONT> <FONT color=#0000ff>Not</FONT> Me.SelectionLength = 0 <FONT color=#0000ff>Then</FONT>
                        <FONT color=#0000ff>Me</FONT>.SelectedText = ReplaceText
                    <FONT color=#0000ff>Else</FONT>
                        MsgBox(i & " occurrence(s) replaced")
                        <FONT color=#0000ff>Exit For</FONT>
                    <FONT color=#0000ff>End If</FONT>
                <FONT color=#0000ff>Next</FONT> i

        <FONT color=#0000ff>End Select
    End Sub</FONT>
    
<FONT color=#0000ff>End Class</FONT>

7. We can use RichTextBoxFinds enumerations (which enables us to specify how the search is performed when the Find method is called)such as MatchCase, WholeWord, for advance search by thinking logically.

8. When we use ReplaceAll = True, we do not know how many strings we have to replace, but we know that Strings we have to replace < textlength of the richtextbox. We use For Loop statement to implement it.

 

How To Use It

Now we have created our RichTextBoxFR control.

9. Select Build Menu --> Build Solution

10. Select RichTextBoxFR from the ToolBox  and draw it on the form.

11. Create a new form as above and name it frmFind. This form has

          i. Two TextBoxes :- FindTextBox and ReplaceTextBox

         ii. Three Buttons :- btnReplaceAll, btnReplace and btnCancel

        iii. Two CheckBoxes :- MatchCase, WholeWord

12. Here are the codes for the form

<FONT color=#0000ff>Public Class</FONT> frmFind
 
      <FONT color=#0000ff>Private Sub</FONT> btnReplaceAll_Click(<FONT color=#0000ff>ByVal</FONT> sender <FONT color=#0000ff>As System.Object</FONT>, <FONT color=#0000ff>ByVal</FONT> e <FONT color=#0000ff>As System.EventArgs</FONT>) <FONT color=#0000ff>Handles</FONT> btnReplaceAll.Click
        <FONT color=#0000ff>If</FONT> MatchCase.Checked <FONT color=#0000ff>Then</FONT>

            <FONT color=#0000ff>If</FONT> WholeWord.Checked <FONT color=#0000ff>Then</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>True</FONT>)
            <FONT color=#0000ff>Else</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>False</FONT>)
            <FONT color=#0000ff>End If</FONT>

        <FONT color=#0000ff>Else</FONT> <FONT color=#008000>' If FindMe.MatchCase.Checked = False</FONT>

            <FONT color=#0000ff>If</FONT> WholeWord.Checked <FONT color=#0000ff>Then</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>True</FONT>)
            <FONT color=#0000ff>Else</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>False</FONT>)
            <FONT color=#0000ff>End If</FONT>

        <FONT color=#0000ff>End If</FONT> <FONT color=#008000>'End FindMe.MatchCase.Checked </FONT>

    <FONT color=#0000ff>End Sub</FONT>

    <FONT color=#0000ff>Private Sub</FONT> btnReplace_Click(<FONT color=#0000ff>ByVal</FONT> sender <FONT color=#0000ff>As System.Object</FONT>, <FONT color=#0000ff>ByVal</FONT> e <FONT color=#0000ff>As</FONT> <FONT color=#0000ff>System.EventArgs</FONT>) <FONT color=#0000ff>Handles</FONT> btnReplace.Click
        <FONT color=#0000ff>If</FONT> MatchCase.Checked <FONT color=#0000ff>Then</FONT>

            <FONT color=#0000ff>If</FONT> WholeWord.Checked <FONT color=#0000ff>Then</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>True</FONT>)
            <FONT color=#0000ff>Else</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>True</FONT>, <FONT color=#0000ff>False</FONT>)
           <FONT color=#0000ff> End If</FONT>

        <FONT color=#0000ff>Else</FONT> <FONT color=#008000>'If FindMe.MatchCase.Checked = False</FONT>

            <FONT color=#0000ff>If</FONT> WholeWord.Checked <FONT color=#0000ff>Then</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>True</FONT>)
            <FONT color=#0000ff>Else</FONT>
                frmMain.RichTextBoxFR1.FindAndReplace(FindTextBox.Text, ReplaceTextBox.Text, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>False</FONT>, <FONT color=#0000ff>False</FONT>)
            <FONT color=#0000ff>End If</FONT>

        <FONT color=#0000ff>End If</FONT> <FONT color=#008000>'End FindMe.MatchCase.Checked </FONT>

    <FONT color=#0000ff>End Sub</FONT>
      
<FONT color=#0000ff>End Class</FONT>

 

History

 created - 17 March 2006

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

About the Author

 Chatura Dilan
Web Developer
Sri Lanka Sri Lanka
Member
I'm a student of University of Colombo School of Computing
I'm also a
Sun Certified Java Programmer

Article Top
 
Sign Up to vote   Poor Excellent
Add a reason or comment to your vote: x
Votes of 3 or less require a comment

Comments and Discussions

 
You must Sign In to use this message board.
Search this forum  
    Spacing  Noise  Layout  Per page   
First Prev Next
GeneralThere are some bugsmemberJackie-leo9 Mar '09 - 20:26 
for example
when you input some words like the follow
 
this is my book!
this1 is my book!
this2 is my book!
 
search the word this replace with (this)
the result is very strange
Sign In·View Thread·Permalink
Generalbug occurred!!memberKIM HyunJoong18 Mar '07 - 23:10 
Find what : aaa
Replace with : aaaa
 
Click "Replace All"
 
Regards
Kim
Sign In·View Thread·Permalink
GeneralRe: bug occurred!!memberChatura Dilan10 Apr '07 - 20:46 
Hi Kim thanks,
I'll correct the bug
 
Regards,
 

Chatura Dilan
Sign In·View Thread·Permalink
GeneralDemo ProjectmemberChatura Dilan19 Mar '06 - 0:09 
Demo Project - VB.Net 2005 Only
 
Chatura from Pearl of the Indian Ocean
Sign In·View Thread·Permalink
Last Visit: 31 Dec '99 - 18:00     Last Update: 23 May '13 - 18:10Refresh1

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

About Article
An artcal about richtextbox control
Type Article
Licence CPOL
First Posted 18 Mar 2006
Views 59,427
Bookmarked 27 times

, +
Top News

The Next Version of Android - Some of What's Coming

Get the Insider News free each morning.
Related Videos
jQuery - 0508 Insert/Replace HTML
C# .NET Programming - 1608 Exercise 2 - while Loop Replacement
DIY Intellisense
Insert Plain Text and Images into RichTextBox at Runtime
RichTextBoxDocument
A Universal WPF Find / Replace Dialog
C# - Formatting Text in a RichTextBox by Parsing the Rich Text Format (RTF)
Building a Simple Word Processor Around an Extended RichTextBox Control
Line Numbering of RichTextBox in .NET 2.0
A Universal WPF Find / Replace Dialog
Numbering lines of RichTextBox in .NET 2.0
RicherTextBox
Background Highlighting with the RichTextBox the System way.
A Bindable WPF RichTextBox
Word Processor Based Upon an Extended RichTextBox Control
Fast Colored TextBox for Syntax Highlighting
A User-Searchable TextBox, RichTextBox, ListView, and TreeView in C#
An extended RichTextBox to save and load "HTML lite" files
Magic Docking - VS.NET Style
CodeTextBox - another RichTextBox control with syntax highlightning and intellisense
MergedDataGridView Control
TabText
Permalink | Advertise | Privacy | Mobile
Web01 | 2.6.130523.1 | Last Updated 19 Mar 2006
Article Copyright 2006 by Chatura Dilan
Everything else Copyright © CodeProject, 1999-2013
Terms of Use
Layout: fixed | fluid