СтрЗаменить телефонный номер.

1С v8

, ,

24.02.16

✎

12:22

У меня есть телефонный номер (012) 34-56-78. Чтобы остались одни цифры.Как удалить все лишние знаки.
Например знаки ":) (* -! "№;%:? *" ...
Это будет так? Создать массив с этими знаками и потом как-то через СтрЗаменить?

1 АдинС

24.02.16

✎

12:24

(0) Да,меняй каждый знак на ""

2 aka AMIGO

24.02.16

✎

12:26

(0) насчет массива - правильно, а далее - не "как-то", а в цикле читай элементы массива и к каждому применяй СтрЗаменить

3 ObjectRelation Model

24.02.16

✎

12:27

пройтись по строке и в новую строку добавлять символ, если он цифра

4 Живой Ископаемый

24.02.16

✎

12:29

скормить регекспу.

5 SFilchakov

24.02.16

✎

12:36

Вариантов куча:
Например
Можно сделать соответствие чисел
Соответствие = Новый Соответствие;
Соответствие.Вставить("1",1)
...
Соответствие.Вставить("1",1)

Затем перебрать каждый символ строки проверить по соответствию число это или нет.
//
Если число, то кидать в отдельную переменную строку;
//тогда не придется фантазировать на тему, какие символы могут быть в строке телефона лишними.

6 forforumandspam

24.02.16

✎

12:37

(4)(5) извращенцы!! :)

7 DDwe

24.02.16

✎

12:37

(4) +100

8 DDwe

24.02.16

✎

12:37

(6) -500

9 Fragster

гуру

24.02.16

✎

12:41

СтроковыеФункцииКлиентСервер.ЗаменитьОдниСимволыДругими(":) ( -! "№;%:? ", НомерТелефона, "");

10 forforumandspam

24.02.16

✎

12:43

Стр = "ывыва0123456789!№;%:?*()_+/";
    Макс = СтрДлина(Стр);
    НовСтр = "";
    Для Сч = 1 По Макс Цикл

        Код = КодСимвола(Стр, Сч);
        Если Код >= 48 И Код <= 57 Тогда
            НовСтр = НовСтр + Символ(Код);
        КонецЕсли;

    КонецЦикла;
    Сообщить(НовСтр);

11 vvp91

24.02.16

✎

12:43



Телефон = "(499) 223-322-3"



ТелефонЦифрами = "";

НомерСимвола = 1;

СтрДлина = СтрДлина(Телефон);

Пока НомерСимвола <= СтрДлина Цикл

    Символ = Сред(Телефон, НомерСимвола, 1);

    Если Символ >= "0" И Символ <= "9" Тогда

        ТелефонЦифрами = ТелефонЦифрами + Символ;

    КонецЕсли;



    НомерСимвола = НомерСимвола + 1;

КонецЦикла;