Убрать все лишние пробелы между словами (оставить только по одному пробелу)

@Фазли · Регистрация: 07.10.2018

Студворк — интернет-сервис помощи студентам

Visual Basic

Dim St As String, Stl As String
Dim P As String * 10, Sym As String * 1
Dim KR As Long, KN As Long, i As Long
P = "аеёиоуыэюя"
KN = 0
KR = 0
St = Selection.Text
If Len(St) = 1 Then ' Если не выделен фрагмент текста
MsgBox "Необходимо выделить фрагмент текста"
Exit Sub
End If
For i = 1 To Len(St)
Sym = Mid(St, i, 1)      ' выделить очередной символ
' Если символ не является латинской буквой
' или воклицательным знаком
If Not (Sym >= "A" And Sym <= "z") And Sym <> "!" Then
If InStr(1, P, Sym) > 0 Then KR = KR + 1
If Sym >= "0" And Sym <= "9" Then KN = KN + 1
Stl = Stl & Sym
End If
Next i
 Selection.Text = St & vbNewLine & "Колличество русских гласных букв равно" & KR & vbNewLine & "Количество цифр равно " & KN & vbNewLine & vbNewLine & _
 "Преобразованный текст:" & vbNewLine & Stl
 End Sub

~~Остап Бонд~~ · 22.11.2018, 13:38

Сообщение от Фазли

Убрать все лишние пробелы между словами (оставить только по одному пробелу)

Visual Basic

st = Selection.Text
While InStr(1, st, "  ")
  st = Replace(st, "  ", " ")
Wend

Опции темы

Убрать все лишние пробелы между словами (оставить только по одному пробелу)

Решение