Searching for a string in a richtextbox control

The answer is probably posted here someplace but I can't find it. Sounds simple enough.

Here's what I want to do.

1. Enter text in a textbox control
2. Click a button
3. Search a richtextbox control for the text1.text string
4. Highlight matching string in richtextbox control

Any help would be appreciated,
Bernie

very easy indeed

i believe its richtext.upto and string, check msdn for more parameters


mystring=text1.text
richtext.upto(mystring) 'moves insertion point (flashing text thing) UPTO search string
richtext.span mystring 'selects the string


if you want to do something with it - richtext.selRTF not seltext ok??

Actually it's called the .Find method.
Example from MSDN:

Private Sub Command1_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Find the text specified in the TextBox control.
FoundPos = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)

' Show message based on whether the text was found or not.

If FoundPos <> -1 Then
' Returns number of line containing found text.
FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
MsgBox "Word found on line " & CStr(FoundLine)
Else
MsgBox "Word not found."
End If
End Sub

i think the upto/span though is more appropriate for him

Thanks. That worked but how do I get it to highlight the found text instead of reporting the line number?

Actually it's called the .Find method.
Example from MSDN:

Private Sub Command1_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Find the text specified in the TextBox control.
FoundPos = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)

' Show message based on whether the text was found or not.

If FoundPos <> -1 Then
' Returns number of line containing found text.
FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
MsgBox "Word found on line " & CStr(FoundLine)
Else
MsgBox "Word not found."
End If
End Sub

What about instr, selstart and sellength, does that sound prehistorical ?

try the upto and span... i think u get my point right?

selstart=foundpos
sellength=len(text1.text)
if you use flyguy's method

Thanks! Just learning a lot ...

Thanks Flyguy,
That works great to find the first instance of a string, but what if I want to continue searching for every instance of a string?

Thanks,
Bernie


Actually it's called the .Find method.
Example from MSDN:

Private Sub Command1_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Find the text specified in the TextBox control.
FoundPos = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)

' Show message based on whether the text was found or not.

If FoundPos <> -1 Then
' Returns number of line containing found text.
FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
MsgBox "Word found on line " & CStr(FoundLine)
Else
MsgBox "Word not found."
End If
End Sub

Did you take the time to look at the other parameters used for the Find method??

Actually, yes I did. Ialso just looked again to see if I overlooked something. Maybe it's there, but if it is I'm not seeing it.

Did you take the time to look at the other parameters used for the Find method??

The vStart and vEnd parameters let you limit your search to a part of
the text. By using vStart set to begin after the last found occurrence,
you can continue the search.

Wow. I must be dense these days. I'm spending way too much time on this without solving it. I've tried using the vStart parameter as you said but it's still not working. By the way I'm not re-dim(ing) the FoundPos variable so it not being reset. I'm at a loss.


The vStart and vEnd parameters let you limit your search to a part of
the text. By using vStart set to begin after the last found occurrence,
you can continue the search.

Are you incrementing the FoundPos variable like I also recommended?