Удаление лишних пробелов в предложении

07.11.2009, 11:33. **Показов** 1637. **Ответов** 1

Подскажите,как удалить в предложении лишние пробелы,оставив между словами по одному пробелу?

PS:В принципе идея решения созрела-нужно сформировать новое предложение,поочередно отправляя в него слова исходного предложения и пробелы,перед которыми идет слово,но как быть с пробелами,перед которыми стоит пробел?Заранее БЛАГОДАРНА!

@кот Бегемот · 07.11.2009, 13:09

PureBasic

INPUT a$
a$ = " " + a$
FOR i = 2 TO LEN(a$)
IF MID$(a$, i, 1) <> " " OR MID$(a$, i, 1) = " " AND MID$(a$, i - 1, 1) <> " " THEN b$ = b$ + MID$(a$, i, 1)
NEXT
PRINT b$

Tarketta
		1
	Удаление лишних пробелов в предложении 07.11.2009, 11:33. Показов 1637. Ответов 1 Метки нет (Все метки) Подскажите,как удалить в предложении лишние пробелы,оставив между словами по одному пробелу? PS:В принципе идея решения созрела-нужно сформировать новое предложение,поочередно отправляя в него слова исходного предложения и пробелы,перед которыми идет слово,но как быть с пробелами,перед которыми стоит пробел?Заранее БЛАГОДАРНА!

Опции темы

Удаление лишних пробелов в предложении

Решение