При нажатии на кнопку текст, введённый в первое окно, выводился во втором окне, разделенный на кусочки - VB

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

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

Помогите пожалуйста написать код или понять, как это сделать. Задание мне дали такое: На форме два текстовых окна и одна кнопка. Для кнопки написать такой код, чтоб при нажатии на неё текст, введённый в первое окно, выводился во втором окне, разделенный на кусочки от гласной до гласной через гласную. Например: Вводим: "Роняет лес багряный свой убор" Выводит: "рон, ня, етл, тлесб, сбагр, грян, ный св, йсвой, йуб, бор".

Решение задачи: «При нажатии на кнопку текст, введённый в первое окно, выводился во втором окне, разделенный на кусочки»

textual
Листинг программы
Option Explicit
 
Dim Glas()
 
Private Sub Form_Load()
    Glas() = Array("Г*", "ГҐ", "ГЁ", "Г®", "Гі", "Г»", "ГЅ", "Гѕ", "Гї")
End Sub
 
Private Sub Command1_Click()
    Text2.Text = GetNewText(Text1.Text)
End Sub
 
Private Function GetNewText(ByVal Txt As String) As String
    Dim A() As Integer
    Dim T As String
    Dim I As Integer
    Txt = Replace(Txt, " ", "")
    T = LCase(Txt)
    For I = 0 To 8
        T = Replace(T, Glas(I), "*")
    Next I
    ReDim A(0)
    For I = 1 To Len(T)
        If Mid(T, I, 1) = "*" Then
            ReDim Preserve A(UBound(A) + 1)
            A(UBound(A)) = I
        End If
    Next I
    For I = 1 To UBound(A)
        Select Case True
        Case I = 1
            T = Left(Txt, A(I) + 1)
        Case I = UBound(A)
            T = T & " " & Mid(Txt, A(I - 1) + 1)
        Case Else
            T = T & " " & Mid(Txt, A(I - 1) + 1, A(I + 1) - 1 - A(I - 1))
        End Select
    Next I
    GetNewText = T
End Function

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


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

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

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