Имя: Пароль:
1C
1С v8
Привeдeниe в пoрядoк тeлeфoнных нoмeрoв
0 Taugor
 
13.06.20
18:50
Всем привет!

Делаю велосипед для приведение в порядок номеров:

    ИсхСтр = СокрЛП(НомерТелефона);
    РезСтр = "";
    Если ИсхСтр <> "" Тогда
        Для Инд = 1 По СтрДлина(ИсхСтр) Цикл
            Симв = Сред(ИсхСтр, Инд, 1);
            Если Найти("0123456789", Симв) = 0 Тогда
                Продолжить;
            КонецЕсли;
            РезСтр = РезСтр + Симв;
        КонецЦикла;
        
        Если СтрДлина(РезСтр) = 10 Тогда
            РезСтр = "+7" + РезСтр;
        КонецЕсли;
        
        Если СтрДлина(РезСтр) = 11 И Лев(РезСтр, 1) = "8" ИЛИ Лев(РезСтр, 1) = "7" Тогда
            РезСтр = "+7" + Сред(РезСтр,2);
        КонецЕсли;
        
        Возврат РезСтр;
        
    КонецЕсли;

Организация работает по РФ, иногда по СНГ.

Подскажите, международный формат номера у всего СНГ состоит из 12 символов?
1 МихаилМ
 
13.06.20
18:58
Для Инд = 1 По СтрДлина(ИсхСтр) Цикл
            Симв = Сред(ИсхСтр, Инд, 1);
            Если Найти("0123456789", Симв) = 0 Тогда ...

ИЗЫДИ НЕЧИсТЬ
2 Taugor
 
13.06.20
19:10
(1) А что тут не так, поясни?
код брал отсюда http://catalog.mista.ru/public/272923/ у всеми уважаемого Г1С.
3 NorthWind
 
14.06.20
14:51
(2) да ничо. Это уже вторая ветка где он на кого-то напал. Агрессивный какой-то
4 МихаилМ
 
14.06.20
16:02
(0) извините.
5 Tatitutu
 
14.06.20
16:25
(0) приведи к одной длине, а потом через МАСКА приведи к нужному виду.
"у всеми уважаемого" - отлично пошутил!
6 DJ Anthon
 
14.06.20
23:05
8800 нельзя заменять на +7800
AdBlock убивает бесплатный контент. 1Сергей