Добрый день!

Такая задача:  нужно перебрать всех контрагентов и преобразовать номера телефона согласно шаблону, записать их в отдельную таблицу, потом в этой таблице найти двойников и пометить на удаление контрагентов в справочнике. Шаблон такой: нужно убрать из поля все кроме цифр и , если номер начинается на "8" или "80" , то эти цифры тоже убрать. Например если такой номер: 8-(044)) 34--543,,,-23 , то нужно записать в таблицу 443454323.

Далее сравнивать каждый элемент со всеми остальными если находятся одинаковые номера, то помечать их все на удаление.
-----------
Подскажите пожалуйста как это описать в коде.

Что, опять?

v8: Удаление двойников в справочнике

Задачка та же, но нужно уже другое сделать, мне в ту тему перейти ?

(0) какие мысли?

цыфири= "0123456789";
ДлинаТелефона= СтрДлина(ТелефонныйНомер);
ТелефонИзЦыфирей= "";
Пока й = 1 по ДлинаТелефона Цикл
   Если Найти(цыфири, ТелефонныйНомер[й]) Тогда
      ТелефонИзЦыфирей= ТелефонИзЦыфирей + ТелефонныйНомер[й];

Если Лев(ТелефонИзЦыфирей, 2) = "80" Тогда
   ТелефонИзЦыфирей= Сред(ТелефонИзЦыфирей, 3);
ИначеЕсли Лев(ТелефонИзЦыфирей, 1) = "8" Тогда
   ТелефонИзЦыфирей= Сред(ТелефонИзЦыфирей, 2);

Сортировать по ТелефонИзЦыфирей;
каждый повторяющийся с предыдущим - удалить;

вышел такой код, скажите, сейчас он обойдет всех контрагентов и запишет их телефоны в форме цифр в массив ?


спр = справочники.ОбщиеКонтрагенты.Выбрать();
    
цыфры = "0123456789";
ДлинаТелефона = СтрДлина(спр.Телефон);

    
а = 1;
Пока спр.Следующий() Цикл
    Пока а <= ДлинаТелефона И а <= 10 Цикл
    Если Найти(цыфры, спр.Телефон[а]) Тогда
    ТелефонИзЦыфр = "";
    ТелефонИзЦыфр = ТелефонИзЦыфр + спр.Телефон[а];        
    КонецЕсли;
    КонецЦикла;
        
    Если Лев(ТелефонИзЦыфр, 2) = "80" Тогда
        ТелефонИзЦыфр = Сред(ТелефонИзЦыфр, 3);    
    ИначеЕсли Лев(ТелефонИзЦыфр, 1) = "8" Тогда
        ТелефонИзЦыфр = Сред(ТелефонИзЦыфр, 2);
    КонецЕсли;    
    КонецЦикла;

отлаживаю по фотографии. дорого

(8) Главное, цЫфер через Ы писать.
Иначе работать не будет.

(0) а если два номера через запятую захерачили? Или еще хитрее - два номера, а после первого еще добавочный записали?

(11) ТС получит перегрев мозгового цента и выпадет в осадок.

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

никто не заметил, что выхода из цикла нет?

первые 10, говоришь.. "звонить сюды, спросить ПётрИваныча: +71234567890"
ну=ну

(11)
МассНомеров = Новый Массив;
СтрокиЦыферНомера = СтрЗаменить(ЦыферыНомера, ",", Символы.ПС);
Для Каждого СтрокаЦыферНомера ИЗ СтрокиЦыферНомера Цикл
   Если СтрДлина(УдалитьВсеСимволыКромеЦыферИВсёТакое(СтрокаЦыферНомера)) > 3 Тогда
      МассНомеров.Добавить(УдалитьВсеСимволыКромеЦыферИВсёТакое(СтрокаЦыферНомера));
   КонецЕсли;
КонецЦикла;

И сравнивать массивы, полученные для каждой из строк.

пока что спасибо, уже голова не варит, отдохну, переварю все что Вы написали, может сделаю наконец :)