8.х Как в эти строки добавить поиск номера не меньше 11 цифр чтоб искал

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем ipkarpov, 3 апр 2013.

0/5, Голосов: 0
  1. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    Код:
    // Получаем список телефонов
СЗ = Новый СписокЗначений;
Номер = "";
Для Индекс = 1 По СтрДлина(Телефоны) Цикл
Если Найти("+- 0123456789", Сред(Телефоны, Индекс, 1)) > 0 Тогда
Номер = Номер + Сред(Телефоны, Индекс, 1);
Иначе
Если ПустаяСтрока(Номер) = 0 Тогда
СЗ.Добавить(СокрЛП(Номер));
Номер = "";
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если ПустаяСтрока(Номер) = 0 Тогда
СЗ.Добавить(СокрЛП(Номер));
КонецЕсли;
    ipkarpov, 3 апр 2013
    #1
  2. Неназываемый
    Offline

    Неназываемый Опытный в 1С Команда форума

    Регистрация:
    2 фев 2007
    Сообщения:
    507
    Симпатии:
    7
    Баллы:
    29
    [​IMG]
    Неназываемый, 3 апр 2013
    #2
  3. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    то есть чтоб только мобильные искал
    ipkarpov, 3 апр 2013
    #3
  4. Неназываемый
    Offline

    Неназываемый Опытный в 1С Команда форума

    Регистрация:
    2 фев 2007
    Сообщения:
    507
    Симпатии:
    7
    Баллы:
    29
    Хочу пример значения переменной "Телефоны"
    Неназываемый, 3 апр 2013
    #4
  5. vartanet
    Offline

    vartanet Опытный в 1С Команда форума

    Регистрация:
    16 ноя 2010
    Сообщения:
    2.701
    Симпатии:
    15
    Баллы:
    29
    +1

    Maxim1905: День добрый! У меня вопрос можно Легенду подключить в ноутбуку через блютус и писать инет через нее через GPRS? Кто нибудь пробовать, есть такая возможность?
    ska_romash: Пока читать сообщение твоё, моя обрезать орган мозг и топтать и топтать его, пока читать ваша сообщение ещё раз.
    vartanet, 3 апр 2013
    #5
  6. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    весь код

    Код:
    Процедура Заполнить(Кнопка)
Запрос = Новый Запрос(
"ВЫБРАТЬ
| КонтактнаяИнформация.Объект КАК Объект,
| ПОДСТРОКА(КонтактнаяИнформация.Представление, 1, 1000) КАК Телефон,
| ТИПЗНАЧЕНИЯ(КонтактнаяИнформация.Объект) КАК ТипЗначенияОбъекта
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон)
|
|УПОРЯДОЧИТЬ ПО
| Объект,
| Телефон
|АВТОУПОРЯДОЧИВАНИЕ"
);

Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл

Объект = Выборка.Объект;
Телефоны = СокрЛП(Выборка.Телефон);

Если НЕ ПустаяСтрока(Телефоны) Тогда

// Получаем список телефонов
СЗ = Новый СписокЗначений;
Номер = "";
Для Индекс = 1 По СтрДлина(Телефоны) Цикл
Если Найти("+- 0123456789", Сред(Телефоны, Индекс, 1)) > 0 Тогда
Номер = Номер + Сред(Телефоны, Индекс, 1);
Иначе
Если ПустаяСтрока(Номер) = 0 Тогда
СЗ.Добавить(СокрЛП(Номер));
Номер = "";
КонецЕсли;
КонецЕсли;
КонецЦикла;

Если ПустаяСтрока(Номер) = 0 Тогда
СЗ.Добавить(СокрЛП(Номер));
КонецЕсли;

Для Индекс = 0 По СЗ.Количество() - 1 Цикл
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Флаг  = Истина;
НоваяСтрока.ТипЗначенияОбъекта = Выборка.ТипЗначенияОбъекта;
НоваяСтрока.Объект  = Объект;
НоваяСтрока.Телефон  = СЗ.Получить(Индекс);
НоваяСтрока.Статус  = "Не отправлено";  
КонецЦикла;
КонецЕсли;

КонецЦикла;
КонецПроцедуры
    ipkarpov, 3 апр 2013
    #6
  7. Неназываемый
    Offline

    Неназываемый Опытный в 1С Команда форума

    Регистрация:
    2 фев 2007
    Сообщения:
    507
    Симпатии:
    7
    Баллы:
    29
    А ничего что длина любого телефонного номера в РФ, с полной нумерацией будет равна 11 символам?
    +7 (921) 123-45-67 (Сотовый)
    +7 (495) 123-45-67 (Городской Москва)
    +7 (84442) 1-23-45 (Городской Урюпинск)

    Ну да ладно. Это на вашей совести.
    Хотите получить только телефоны длинной более 11 символов?
    Я заметил вы умеете пользоваться функцией СтрДлина(). Что мешает написать условие:
    Код:
    Для Индекс = 0 По СЗ.Количество() - 1 Цикл
Если СтрДлина(СЗ.Получить(Индекс)) < 11 Тогда
Продолжить;
КонецЕсли;
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Флаг  = Истина;
НоваяСтрока.ТипЗначенияОбъекта = Выборка.ТипЗначенияОбъекта;
НоваяСтрока.Объект  = Объект;
НоваяСтрока.Телефон  = СЗ.Получить(Индекс);
НоваяСтрока.Статус  = "Не отправлено";
КонецЦикла;
КонецЕсли;
    Неназываемый, 3 апр 2013
    #7
  8. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    у нас городские пишут номера в виде 7 цифр без кодов города и страны. и мобильные так же пишут 11 цифр сразу без кодов
    ipkarpov, 3 апр 2013
    #8
  9. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    спасибо за помощь
    ipkarpov, 3 апр 2013
    #9
  10. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    последний вопрос, все работает, а чтоб искало только вида 8-9 или +79, короче те номера где 9 третий символ
    ipkarpov, 3 апр 2013
    #10
  11. Неназываемый
    Offline

    Неназываемый Опытный в 1С Команда форума

    Регистрация:
    2 фев 2007
    Сообщения:
    507
    Симпатии:
    7
    Баллы:
    29
    Первые 3 символа:
    Код:
    Лев(СЗ.Получить(Индекс), 3) = "+79"
    Третий символ 9:
    Код:
    Сред(СЗ.Получить(Индекс), 3, 1) = "9"
    Неназываемый, 3 апр 2013
    #11
  12. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    Спасибо огромное
    ipkarpov, 3 апр 2013
    #12
  13. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    Извиняюсь, а куда именно вставить этот кусок?
    ipkarpov, 3 апр 2013
    #13
  14. Неназываемый
    Offline

    Неназываемый Опытный в 1С Команда форума

    Регистрация:
    2 фев 2007
    Сообщения:
    507
    Симпатии:
    7
    Баллы:
    29
    Код:
    Для Индекс = 0 По СЗ.Количество() - 1 Цикл

//Только строки длинной 11 символов и более
Если СтрДлина(СЗ.Получить(Индекс)) < 11 Тогда
Продолжить;
КонецЕсли;

//Только строки где третий символ 9 
Если Сред(СЗ.Получить(Индекс), 3, 1) <> "9" Тогда
Продолжить;
Продолжить;

НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Флаг  = Истина;
НоваяСтрока.ТипЗначенияОбъекта = Выборка.ТипЗначенияОбъекта;
НоваяСтрока.Объект  = Объект;
НоваяСтрока.Телефон  = СЗ.Получить(Индекс);
НоваяСтрока.Статус  = "Не отправлено";

КонецЦикла;
    Неназываемый, 3 апр 2013
    #14
  15. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    Код:
       Для Индекс = 0 По СЗ.Количество() - 1 Цикл

//Только строки длинной 11 символов и более
Если СтрДлина(СЗ.Получить(Индекс)) < 11 Тогда
Продолжить;
КонецЕсли;

//Только строки где третий символ 9
Если Сред(СЗ.Получить(Индекс), 3, 1) <> "9" Тогда
Продолжить;
Продолжить;

НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Флаг  = Истина;
НоваяСтрока.ТипЗначенияОбъекта = Выборка.ТипЗначенияОбъекта;
НоваяСтрока.Объект  = Объект;
НоваяСтрока.Телефон  = СЗ.Получить(Индекс);
НоваяСтрока.Статус  = "Не отправлено";

КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
    Не происходит ничего что то
    ipkarpov, 3 апр 2013
    #15
  16. TopicStarter Overlay
    ipkarpov
    Offline

    ipkarpov Опытный в 1С

    Регистрация:
    1 ноя 2011
    Сообщения:
    53
    Симпатии:
    0
    Баллы:
    26
    все, разобрался
    ipkarpov, 3 апр 2013
    #16
Похожие темы
  1. Sepegka

    8.х Ограничение вводимых цифр номера телефона

    Sepegka, 3 окт 2008, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    1
    Просмотров:
    861
    BabySG
    3 окт 2008
  2. alp

    8.х Поиск по части номера запросом

    alp, 18 фев 2011, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    2
    Просмотров:
    1.521
    alp
    18 фев 2011
  3. Euronymous

    8.х Убрать из строки все символы кроме букв и цифр

    Euronymous, 16 дек 2014, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    24
    Просмотров:
    15.734
    antares
    18 дек 2014
Загрузка...