Работа с текстом - 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

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


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

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

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