Все идущие подряд пробелы заменить одним - VB

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

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

Исходная строка представляет собой ФИО,которые разделены некоторым числом пробелов. Все идущие подряд пробелы заменить одним,преобразовать ФИО к нормальному виду,реализовать все в виде одной функции.

Решение задачи: «Все идущие подряд пробелы заменить одним»

textual
Листинг программы
Function Space1$(FIO$)
  Space1$ = Replace(FIO$, "  ", " ")
  If Space1$ <> FIO$ Then Space1$ = Space1$(Space1$)
End Function

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


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

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

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