Чистим в тексте фразы с прилагательными - Visual Basic .NET
Формулировка задачи:
Имеется текст с фразами через запятую (от 1 и более слов ).
Необходимо удалить фразы где последнее слово прилагательное.
Нужна функция, ниже код рабочий, но он длинный.
В функции типа такого:
В TextBox1.Text фразы, например так:
Должно остаться:
Решение задачи: «Чистим в тексте фразы с прилагательными»
textual
Листинг программы
Dim blockslov As String = ""
Dim Iword As String() = TextBox1.Text.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries)
Dim distracted() = {"ый", "ых", "ые", "ий", "их", "ой", "ая"}
For i As Integer = 0 To Iword.Length - 1
Dim f As Boolean = True
' Игнорируем прилагательные
For j As Integer = 0 To distracted.Length - 1
If Microsoft.VisualBasic.Strings.Right(Iword(i).Trim, 2) = distracted(j) Then f = False : Exit For
Next j
If f Then blockslov &= Iword(i).Trim & ", "
Next i
' Выводим оставшиеся слова
TextBox2.Text = blockslov
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д