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