Функция УбратьНечисловые(Стр)

	ОбрСтр = СокрЛП(Стр);

	Результат = ОбрСтр;

	Для н=1 по СтрДлина(ОбрСтр) Цикл

		ТекСимвол = Сред(ОбрСтр,н,1);

		Если Найти("0123456789",ТекСимвол) = 0 Тогда

			Результат = СтрЗаменить(Результат,ТекСимвол,"");		

		КонецЕсли;	

	КонецЦикла;	 

	Возврат Результат;

КонецФункции