Find Replace

[JHalstead]

Here is a very simple request, or so I thought.

Ho do I code a Find and Replace function into my VB.Net program?

I have a very basic find function

Public Sub Find()
Dim lngPos As Long

m_strSearch = InputBox("Enter the text to find.", "Find Text")
If m_strSearch = "" Then Exit Sub
lngPos = InStr(1, txtEdit.Text, m_strSearch, vbTextCompare)
If lngPos > 0 Then
txtEdit.SelectionStart = lngPos - 1
txtEdit.SelectionLength = Len(m_strSearch)
Else
m_strSearch = ""
MsgBox("Search text was not found.", vbExclamation, "No Found Text")
End If
End Sub

But I have no clue as to a replace function.

Please help.

 

[Bucky]

How about the String classs Replace function? Unlike of all the
finding code that you have above, a Find-Replace situation just
requires one call to the Replace method (in its simplest form; you
may want to write more code for wildcard matching and case
insensitivity):

txtEdit.Text = txtEdit.Text.Replace(m_strSearch, "replace text here")

 

[JHalstead]

thanks, next question. How do I code a input box for said replacement?

 

[mutant]

Originally posted by JHalstead
thanks, next question. How do I code a input box for said replacement?

Do you mean how to use that code Bucky showed you with the InputBox? Could you rephrase your question please.

 

[JHalstead]

I got it working great execpt one thing. There is a message box that askes for the text you are looking for that after you press ok there is another message box that askes for the text that you want to replace with. I would like to combine these to seperate message boxes into one popup.

Hope this is more understandable...

 

[mutant]

Oh, you cant change how InputBoxes work. You would have to create your own form that asks for that input.

 

[JHalstead]

Ok, now were getting somewhere. I know how to create custom forms but how do I get it to link to txtEdit in the origional form? Does it work that out by its self??

 

[Bucky]

You can access the controls on the form and their properties. Just
get the values of the Text properties of the textboxes:

Dim frm As New myForm()

frm.ShowDialog()
whatever = frm.txtEdit.Text
 etc. etc.

 

[JHalstead]

Private Sub Replace()
Dim frm As New TextEditor()

If txtFind.Text = "" Then Exit Sub
If txtReplace.Text = "" Then Exit Sub

frm.txtEdit.Text.Replace("txtFind.Text", "txtReplace.Text")
End Sub


This is what I have right now and it is not working. I am still confused on how to get it to link to my texteditor.txtedit textbox.

Is this code wrong?

 

[mutant]

You cant refer to a textbox on another form just by its name like you are doing:

TxtFind.Text ......

You need to use the Form object you created:

frm.TxtFind.Text....

Also, dont use quotes around the object name like you did with the Replace method, same thing applies as what I said above.
Also I dont see you showing the form in any way. Try what Bucky said above, frm.ShowDialog(), before checking any values.