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

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

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

Дана строка-предложение с избыточными пробелами между словами.Переобразовать её так, чтобы между словами был ровно один пробел.

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

textual
Листинг программы
Private Sub Form_Load()
    Dim s As String, p1 As Long, p2 As Long
    s = "Г„Г*Г*Г*             ñòðîêГ*-ïðåäëîæåГ*ГЁГҐ       Г±            ГЁГ§ГЎГ»ГІГ®Г·Г*ûìè      ГЇГ°Г®ГЎГҐГ«Г*ìè                 ìåæäó             ñëîâГ*ìè.          ГЏГҐГ°ГҐГ®ГЎГ°Г*çîâГ*ГІГј         ГҐВё       ГІГ*ГЄ,      Г·ГІГ®ГЎГ» ìåæäó              Г±Г«Г®ГўГ*ìè        ГЎГ»Г«            Г°Г®ГўГ*Г®   îäèГ*          ГЇГ°Г®ГЎГҐГ«."
    p1 = 1: p2 = 1
    Do Until p2 > Len(s)
        Mid$(s, p1, 1) = Mid$(s, p2, 1): p1 = p1 + 1
        Do: p2 = p2 + 1: Loop While Mid$(s, p2, 2) = "  "
    Loop
    If p1 > 1 Then s = Left$(s, p1 - 1)
    Debug.Print s
End Sub

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

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