В начало

Извлечь цифры из строки

            Есть некая строка, содержащая номер телефона или номер вперемешку с другими символами. Необходимо извлечь все цифры из строки.

 

Листинг 1. Функция «ИзвлечьЦифрыИзСтроки»

&НаСервере

Функция ИзвлечьЦифрыИзСтроки(ВхСтр)

            ВыхСтр = "";

           

            //Перебираем посимвольнос входную строку

            Для Поз = 1 По СтрДлина(ВхСтр) Цикл

                        //Берем текущий символ из строки

                        ТекСимвол = Сред(ВхСтр, Поз, 1);      

                        //Проверяем наличие текущего символа в строке,

                        //состоящей из одних цифр «0123456789»

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

                                   ВыхСтр = ВыхСтр + ТекСимвол;

                        КонецЕсли;

            КонецЦикла;

           

            Возврат ВыхСтр;

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

 

            Т.е. если входная строка представляла из себя набор типа «+7 (495) 123-45-67», то результатом выполнения данной функции будет строка вида «74951234567».