КАК сделать программу, выделяющую из введенного текста прилагательные и предлоги - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д