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

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

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

Код к задаче: «Замена группы пробелов одним - VB»

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.000 из 5


СОХРАНИТЬ ССЫЛКУ