Замена группы пробелов одним - VB

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

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

Помогите пожалуйста, в общем, нужно во введенной строке группы пробелов, ну тоесть >1 заменить одним.

Решение задачи: «Замена группы пробелов одним»

textual
Листинг программы
Function presStr(S As String) As String
   k% = InStr(S, "  ")
   If k% = 0 Then
      presStr = S
   Else
      presStr = presStr(Left$(S, k%) + Mid$(S, k% + 2))
   End If
End Function

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


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

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

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