Поиск слов в тексте - VB
Формулировка задачи:
Доброго времени суток! Помогите с таким заданием:
а)
"Найти в тексте слова, которые содержат наименьшее и наибольшее количество символов. Выделить найденные слова красным цветом с подчеркиванием."
б)"Проверить в тексте соответствие закрывающих и открывающих скобок. В случае несоответствия скобок вывести сообщение и текст соответствующей строки с ошибкой"
Текст ввожу в TextBox, например.. Как подобное организовать?Решение задачи: «Поиск слов в тексте»
textual
Листинг программы
Private Sub Command1_Click() myWord = RichTextBox1.Text Do While InStr(myWord, " ") > 0 myWord = Replace(myWord, " ", " ") Loop RichTextBox1.Text = myWord a = Split(myWord, " ") mn = 100: mx = 0 l = 0: lmn0 = 0: lmn1 = 0: lmx0 = 0: lmx1 = 0 For i = LBound(a) To UBound(a) If mx < Len(a(i)) Then mx = Len(a(i)): lmx0 = l: lmx1 = l + Len(a(i)) End If If mn > Len(a(i)) Then mn = Len(a(i)): lmn0 = l: lmn1 = l + Len(a(i)) End If l = l + Len(a(i)) + 1 Next i 'RichTextBox1.SetFocus Call rd(lmx0, lmx1) Call rd(lmn0, lmn1) End Sub Sub rd(l1, l2) RichTextBox1.SelStart = l1 RichTextBox1.SelLength = l2 - l1 RichTextBox1.SelColor = QBColor(12) RichTextBox1.SelUnderline = True End Sub Private Sub RichTextBox1_Click() RichTextBox1.SelColor = QBColor(0) RichTextBox1.SelUnderline = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д