Search Text in a TextBox using IndexOf

Question

Rather than using Regular Expression I want to know how I can use LastIndexOf and IndexOf to search for the Next and Previous match of a word typed. I want to use a TextBox and not a RichTextBox. Can someone provide me with a way to do this using loop so
it gets all the matches. I've got this so far:
Public Function FindAndSelect(TextToFind As String, MatchCase As Boolean) As Boolean
Dim mode = If(MatchCase, StringComparison.CurrentCulture, StringComparison.CurrentCultureIgnoreCase)
Dim position As Integer = textBox1.Text.IndexOf(TextToFind, mode)
If position = -1 Then
Return False
End If
textBox1.SelectionStart = position
textBox1.SelectionLength = TextToFind.Length
TextBox1.Select()
Return True
End Function
MessageBox.Show("Hey You!")

Answer 1

Rather than using Regular Expression I want to know how I can use LastIndexOf and IndexOf to search for the Next and Previous match of a word typed. I want to use a TextBox and not a RichTextBox. Can someone provide me with a way to do this using loop so
it gets all the matches. I've got this so far:
Public Function FindAndSelect(TextToFind As String, MatchCase As Boolean) As Boolean
Dim mode = If(MatchCase, StringComparison.CurrentCulture, StringComparison.CurrentCultureIgnoreCase)
Dim position As Integer = textBox1.Text.IndexOf(TextToFind, mode)
If position = -1 Then
Return False
End If
textBox1.SelectionStart = position
textBox1.SelectionLength = TextToFind.Length
TextBox1.Select()
Return True
End Function
MessageBox.Show("Hey You!")
Hello,
For Next, we could get that done with following way since we could select start index, you could refer to
String.IndexOf Method (String, Int32, StringComparison).
Dim startPostion As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String = "1"
' Dim mode = If(StringComparison.CurrentCulture, StringComparison.CurrentCultureIgnoreCase)
If startPostion + str.Length > TextBox1.Text.Count Then
Return
End If
Dim position As Integer = TextBox1.Text.IndexOf("1", startPostion, StringComparison.CurrentCultureIgnoreCase)
If position = -1 Then
Return
End If
TextBox1.SelectionStart = position
TextBox1.SelectionLength = str.Length
startPostion = position + str.Length
TextBox1.Select()
End Sub
The part about previous is quite similar, you could edit it to suit your scenario.
Regards,
Carl
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.