Переобразовать строку так, чтобы между словами был ровно один пробел - 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

Похожие ответы