Работа с текстом - VB (58943)
Формулировка задачи:
Дан текст. Если в нем нет малых латинских букв, то оставить его без изменения, иначе каждый из символов, которые следуют за первой группой малых латинских букв, заменить точкой.
Помогите, пожалуйста, составить программу.
Решение задачи: «Работа с текстом»
textual
Листинг программы
Private Sub Command1_Click() Text2 = "" If Len(Text1) <= 1 Then Text2 = Text1 Exit Sub End If i = 1 priznak = 0 Do While i <= Len(Text1) If priznak = 0 Then Text2 = Text2 & Mid(Text1, i, 1) If Asc(Mid(Text1, i, 1)) >= 97 And Asc(Mid(Text1, i, 1)) <= 122 Then priznak = 1 End If Else If priznak = 1 Then If Asc(Mid(Text1, i, 1)) >= 97 And Asc(Mid(Text1, i, 1)) <= 122 Then Text2 = Text2 & Mid(Text1, i, 1) Else priznak = 2 Text2 = Text2 & "." End If Else Text2 = Text2 & "." End If End If i = i + 1 Loop End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д