Breadcrumbs

[GoodGuy17]

Hello,

How can I make my code (below) replace all instances of the given text, instead of just one instance?

Code:

Code: Select all

        'Find and replace
        Try
            Dim strFind As String = InputBox("Enter string you want to replace. Enter 'No' if you don't want to find only whole words.", "Find")
            If strFind = "No" Then
                Dim strFind2 As String = InputBox("Enter string you want to replace.", "Find")
                Dim strReplace As String = InputBox("Enter string you want to replace with.", "Replace with")
                RichTextBox1.Find(strFind2, RichTextBoxFinds.None)
                RichTextBox1.SelectedText = strReplace
            Else
                Dim strReplace2 As String = InputBox("Enter string you want to replace with.", "Replace with")
                RichTextBox1.Find(strFind, RichTextBoxFinds.WholeWord)
                RichTextBox1.SelectedText = strReplace2
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try

Please help!

~GoodGuy17

[Zulf]

Code: Select all

RichTextBox1.Text.Replace(original, new)

[GoodGuy17]

Didn't work. It didn't replace anything.

[Skillful]

Put this under Replace All button click event

Code: Select all

Dim cp As Integer = RichTextBox1.SelectionStart
        Dim cs As Integer = RichTextBox1.SelectionLength

        RichTextBox1.Rtf = Replace(RichTextBox1.Rtf, Trim(TextBox1.Text), Trim(TextBox2.Text))
        RichTextBox1.SelectionStart = cp
        RichTextBox1.SelectionLength = cs

        Me.Focus()

In this code -
TextBox1 - The text which you want to replace
TextBox2 - The text with which you want the TextBox1 text to be replaced.

If you like my posts please give me +rep!! cooll;

[GoodGuy17]

Thanks CoderBoy! You've got it! cooll;