Вот еще небольшой фрагмент до кучи
//Нормализация пробелов (остаются только одинарные пробелы)
ЗначениеПоля = СокрЛП(ЗначениеПоля);
Пока ЗначениеПоля <> СтрЗаменить(ЗначениеПоля," "," ") Цикл ЗначениеПоля = СтрЗаменить(ЗначениеПоля," "," "); КонецЦикла;