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