Need line of found text in RichTextBox

[ImanMan]

Hi,

if anyone can help me . i am displaying a textfile in a richTextBox. then i am implementing the search functionality. i need a code that would return for me the number of the line the search was found / or the index of the line( where in my file what i want to search for wasfound )

[Killer42]

I think you'll get what you want by combining GetLineFromChar method with the SelStart property.

[debasisdas]

Try this following sample code. It directly reads from the file not through a rich textbox, you may modify as required.

Private Sub Command1_Click()
Dim n As String
Dim ctr As Integer
Dim CTR1 As Integer
Dim STR As String
Dim i As Integer
Dim LNCOUNT As Integer
Dim LNWORDCOUNT As Integer
List1.Clear
Label1.Caption = ""
On Error GoTo err1
cd.DialogTitle = "Open File"
cd.InitDir = "d:\"
cd.CancelError = True
cd.ShowOpen
T2 = Trim(Text1.Text)
Open cd.FileName For Input As #1
Do Until EOF(1)
  Line Input #1, n
  LNWORDCOUNT = 0
  LNCOUNT = LNCOUNT + 1
  T1 = n
  CT = 1
  Do While CT <= Len(T1)
    ctr = InStr(CT, T1, T2)
    If ctr <> 0 Then
      CT = ctr + 1
      CTR1 = CTR1 + 1
      LNWORDCOUNT = LNWORDCOUNT + 1
    Else
      Exit Do
    End If
  Loop
  'Print LNCOUNT & "    " & LNWORDCOUNT
  If LNWORDCOUNT <> 0 Then
    List1.AddItem "Line No :" & LNCOUNT & "    " & "Occurrence :" & LNWORDCOUNT
  End If
Loop
Label1.Caption = "Total Occurrences In File : " & CTR1
Close #1
Exit Sub
err1:
MsgBox Err.Description
End Sub

Hope that solves your problem.