Все идущие подряд пробелы заменить одним - VB
Формулировка задачи:
Исходная строка представляет собой ФИО,которые разделены некоторым числом пробелов. Все идущие подряд пробелы заменить одним,преобразовать ФИО к нормальному виду,реализовать все в виде одной функции.
Решение задачи: «Все идущие подряд пробелы заменить одним»
textual
Листинг программы
Function Space1$(FIO$) Space1$ = Replace(FIO$, " ", " ") If Space1$ <> FIO$ Then Space1$ = Space1$(Space1$) End Function