Получить число из строки

Razlomalo 35 2 2

1С

Принимает строку возвращает число которые есть в этой строке

Функция ПолучитьСтрокуТолькоЦифры(ВходнаяСтрока)     
	
	Результат = ВходнаяСтрока;   
	
	ИндексЭлемента = 1;  
	ДоступныеСимволы = "0123456789";
	
	Пока ИндексЭлемента <= СтрДлина(Результат) Цикл
		ПроверяемыйСимвол = Сред(Результат, ИндексЭлемента, 1);
		
		
		Если СтрНайти(ДоступныеСимволы, ПроверяемыйСимвол) = 0 Тогда
			Результат = СтрЗаменить(Результат, ПроверяемыйСимвол, "");
			Продолжить;
		КонецЕсли;
		
		
		ИндексЭлемента = ИндексЭлемента + 1;
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции

Функция ПолучитьСтрокуТолькоЦифры(ВходнаяСтрока)     
	
	Результат = ВходнаяСтрока;   
	
	ИндексЭлемента = 1;  
	ДоступныеСимволы = "0123456789";
	
	Пока ИндексЭлемента <= СтрДлина(Результат) Цикл
		ПроверяемыйСимвол = Сред(Результат, ИндексЭлемента, 1);
		
		
		Если СтрНайти(ДоступныеСимволы, ПроверяемыйСимвол) = 0 Тогда
			Результат = СтрЗаменить(Результат, ПроверяемыйСимвол, "");
			Продолжить;
		КонецЕсли;
		
		
		ИндексЭлемента = ИндексЭлемента + 1;
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции