В начало

Форматирование телефона

 

Нужно отформатировать телефон вида «81231234567» к виду «8-123-123-12-12».

 

Листинг. Функция

Функция ФорматированиеТелефона(Знач Тел)

            //81231234567

           

            Если НЕ ЗначениеЗаполнено(Тел) ИЛИ

                        СтрДлина(Тел) <> 11 Тогда

                        Возврат Тел;

            КонецЕсли;

           

            стрТемп = "";

            Для Инд = 1 По СтрДлина(Тел) Цикл

                        Если Инд = 1 ИЛИ

                                   Инд = 4 ИЛИ

                                   Инд = 7 ИЛИ

                                   Инд = 9 Тогда

                                   стрТемп = стрТемп + Сред(Тел, Инд, 1) + "-";

                        Иначе

                                   стрТемп = стрТемп + Сред(Тел, Инд, 1);

                        КонецЕсли;

            КонецЦикла;

           

            Возврат стрТемп;

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