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

Категория: Basic
2011-10-24 13:58:51

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

code: #basic
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$

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, работа со строками, строки, qbasic, пробел