Форум программистов [Powered by Invision Power Board]

Код

 'Этот метод демонстрирует получение номера строк, что 
        'Указывают на место того или иного слова
        'Содержащееся в RichTextBox  Номера строк начинается с нуля.
        'Сбросить результаты поле.
        TextBox1.Text = ""
        'Получить слово для поиска оот TextBox2.
        Dim searchWord As String = TextBox2.Text
        Dim index As Integer = 0
        'Объявление ArrayList для хранения номера строк.
        Dim lineList As New System.Collections.ArrayList
        Do
            ' Найти вхождения искомого слова, увеличивая  
            'Начала индекса.  
            index = RichTextBox1.Find(searchWord, index + 1, _
                RichTextBoxFinds.MatchCase)
            'Совпадений:
            Dim a = lineList.Count
            TextBox3.Text = LCase(a)
СЮДА ХОЧУ ВСТАВИТЬ ФУНКЦИЮ последней строки с совпадением
            If (index <> -1) Then
                ' Найти номер строки, слова и добавить строку  
                'Номер в ArrayList. . 
                lineList.Add(RichTextBox1.GetLineFromCharIndex(index))
            End If
        Loop While (index <> -1)
        ' Перебор по списку и отображение номеров строк в TextBox1.
        Dim myEnumerator As System.Collections.IEnumerator = _
     lineList.GetEnumerator()
        If lineList.Count <= 0 Then
            TextBox1.Text = searchWord & " не был найден"
        Else
            Console.WriteLine("Index = " & index)
            TextBox1.SelectedText = searchWord & " был обнаружен на                линии :"
            While (myEnumerator.MoveNext)
                TextBox1.SelectedText = myEnumerator.Current & " "
            End While
        End If