HelpF.pro

Удаление из строки всех нечисловых символов

Иногда необходимо избавиться от нечисловых символов в строке. Например если сканер штрихкода или ридер магнитных карт добавляют в считываемую строку свои служебные символы.

Вот нехитрая функция для решения этой задачи

Код 1C v 7.x
 
Функция УбратьНечисловые(Стр)
ОбрСтр = СокрЛП(Стр);
Результат = ОбрСтр;
Для н=1 по СтрДлина(ОбрСтр) Цикл
ТекСимвол = Сред(ОбрСтр,н,1);
Если Найти("0123456789",ТекСимвол) = 0 Тогда
Результат = СтрЗаменить(Результат,ТекСимвол,"");
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/1220.html