КАК сделать программу, выделяющую из введенного текста прилагательные и предлоги - VB

Узнай цену своей работы

Формулировка задачи:

Очень нужна помощь в создании программ: 1. Создать программу, выделяющую из введенного текста прилагательные. 2. Создать программу, выделяющую из введенного текста предлоги. У кого какие мысли с советы подскажите помогите))))

Решение задачи: «КАК сделать программу, выделяющую из введенного текста прилагательные и предлоги»

textual
Листинг программы
Private Sub Form_Load()
Dim Pril, Pred
Dim txt As String, txtPril As String, txtPred As String
Pril = Array("синий", "синего", "синему", "красный", "красного", "красному", "большой", "большого", "большим", "солнечный")
Pred = Array("в", "без", "до", "из", "к", "на", "по", "о", "от", "перед", "при", "через", "с", "у", "и", "нет", "за", "над", "для", "об", "под", "про")
txt = "Солнечный шар поднимался из синего моря по красному песку"
arr = Split(txt, " ")
txtPril = "": txtPred = ""
For i = 0 To UBound(arr)
arr(i) = Replace(arr(i), " ", "")
arr(i) = Replace(arr(i), ".", "")
arr(i) = Replace(arr(i), ",", "")
arr(i) = LCase(arr(i))
    For j = 0 To UBound(Pril)
        If arr(i) = Pril(j) Then txtPril = txtPril & arr(i) & " "
    Next j
    For j = 0 To UBound(Pred)
        If arr(i) = Pred(j) Then txtPred = txtPred & arr(i) & " "
    Next j
Next i
MsgBox txtPril & Chr(13) & txtPred
End Sub

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


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

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

6   голосов , оценка 4.5 из 5
Похожие ответы