Автор не ответил на мой вопрос :( Пробуем телепатировать :)
МногоСтрочнаяСтрока = СтрЗаменить(ИсходнаяСтрока, " ", Символы.ПС);
Для К = 1 По СтрЧислоСтрок(МногоСтрочнаяСтрока) Цикл
Слово = СтрПолучитьСтроку(МногоСтрочнаяСтрока, К);
...
Можно обобщить - заменить все последовательности символов (последовательность - когда подряд), которые автор считает разделителями, на ПС, далее по тексту.
Т.е цикл с заменой разделителей на ПС, затем меняем сдвоенные ПС на одинарные до тех пор, пока остаются сдвоенные.
(0) ты программист, или кто? гнал бы ссаным веником таких специалистов.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс