請問高手，關於一個文本文件搜索的問題

Question

在一個文本文件中，搜索指定字符串。找到之後，最好能知道有幾個地方包含這個字符串。並把文本文件的內容，顯示到旁邊的文本框裏，重要的文本框要定位到出現你剛才搜索的字符串的所在行。最好能使這個字符串處於選定狀態。或者使用其他的方法，讓人一下就能看出來。當有多處時，能通過一個按鈕來向下找。謝謝了，不知諸位能不能看明白哈。----------------------------------
給個編程原理和重要函數就行。受累了。 

Answer 1

用RichTextBox控件.用Find方法.以下是个示例:
'有一个RichTextBox控件.一个Text控件,一个按扭Option ExplicitPrivate BeginIndex As Long
Private FindText As StringPrivate Sub Command1_Click()
  If FindText <> Text1.Text Then
      FindText = Text1.Text
      BeginIndex = 0
      BeginIndex = RichTextBox1.Find(FindText, BeginIndex) + 1
  Else
      BeginIndex = RichTextBox1.Find(FindText, BeginIndex) + 1
  End If
  
 If BeginIndex > 0 Then
    RichTextBox1.SetFocus
    RichTextBox1.SelStart = BeginIndex - 1
    RichTextBox1.SelLength = Len(FindText)
 Else
    MsgBox "查找结束"
  
 End If
 
End SubPrivate Sub Form_Load()
 ' RichTextBox1.FileName ="C:\Test.txt"   '你可以将此处改一下文件名
End Sub