Поиск слов в тексте - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.4 из 5