Замена группы пробелов одним - 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