3
kible
30.09.11
✎
09:34
|
Пользуйся.
Функция ТолькоЦифрыИзСтроки(Знач СтрокаПроверки, УчитыватьЛидирующиеНули = Истина, УчитыватьПробелы = Истина) Экспорт
Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда
Возврат 0;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(СтрокаПроверки) Тогда
Возврат 0;
КонецЕсли;
Если НЕ УчитыватьПробелы Тогда
СтрокаПроверки = СтрЗаменить(СтрокаПроверки, " ", "");
КонецЕсли;
Стр = "";
Для а = 1 По СтрДлина(СтрокаПроверки) Цикл
КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));
Цифра = Сред(СтрокаПроверки, а, 1);
Если (КодСимвола >= 48 И КодСимвола <= 57) Тогда
Стр = Стр + Цифра;
КонецЕсли;
КонецЦикла;
Если НЕ УчитыватьЛидирующиеНули Тогда
Стр = Число(Стр);
КонецЕсли;
Возврат Стр;
КонецФункции
|
|