Всех с прошедшими и предстоящими!
Есть задачка.
Имеем строку с номером телефона, плюс куча всяких примечаний и знаков препинания. Необходимо оставить только цифры. Делаю так:

    НомерСимвола = 1;
    ИтоговаяСтрока = "";
    ИсходнаяСтрока = "Офис 50-14-18";
    Пока НомерСимвола <= СтрДлина(ИсходнаяСтрока) Цикл
         Попытка
              Цифра = Число(Сред(ИсходнаяСтрока, НомерСимвола, 1));
              ИтоговаяСтрока = ИтоговаяСтрока + Строка(Цифра);
         Исключение
         КонецПопытки;
         НомерСимвола = НомерСимвола + 1;
    КонецЦикла;

Но проблем в том, что функция "Число" преобразуте пробелы, дефисы в 0.
Других идей, кроме как 10 раз сравнить символ с цифрами от 0 до 9 нет?

Книга знаний: Преобразование числа в строку, разделитель групп разрядов

(0) А считать код символа религия не позволяет?

Функция ТолькоЦифрыИзСтроки(Знач СтрокаПроверки, УчитыватьЛидирующиеНули = Истина, УчитыватьПробелы = Истина) Экспорт
   
   Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда
       Возврат 0;
   КонецЕсли;
   
   Если НЕ ЗначениеЗаполнено(СтрокаПроверки) Тогда
       Возврат 0;
   КонецЕсли;
   
   Если НЕ УчитыватьПробелы Тогда
       СтрокаПроверки = СтрЗаменить(СтрокаПроверки, " ", "");
   КонецЕсли;
   
   Стр = "";
   Для а = 1 По СтрДлина(СтрокаПроверки) Цикл
       КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));
       Цифра = Сред(СтрокаПроверки, а, 1);
       Если (КодСимвола >= 48 И КодСимвола <= 57) Тогда
           Стр = Стр + Цифра;
       КонецЕсли;
   КонецЦикла;

   Если НЕ УчитыватьЛидирующиеНули Тогда
       Стр = Число(Стр);
   КонецЕсли;
   
   Возврат Стр;
   
КонецФункции

(2) А зачем?

(4) Чтобы понять - число это или нет :)

чисДлина = СтрДлина(ИсходнаяСтрока);
для х = 1 по чисДлина цикл
 Цифра = Сред(ИсходнаяСтрока, х, 1);
 если ((Цифра > "/") и (Цифра > ":")) тогда
     ИтоговаяСтрока = ИтоговаяСтрока + Цифра;
 конецесли;
КонецЦикла;



как-то так

(2)Спасибо.
Мы, как бычно, легких путей не ищем:)

Можно еще делать "Найти("0123456789", Символ) = 0" :)

может кто знает, типовая функция есть в 8 для этого?

(6) Со знаками в Если не напутал? :)

RegExp = CreateObject("VBScript.RegExp"); // здесь под восьмерку переделай
   
   RegExp.IgnoreCase = Истина; //Игнорировать регистр
   RegExp.Global = Истина; //Поиск всех вхождений шаблона
   RegExp.MultiLine = Истина; //Многострочный режим
   
   
   RegExp.Pattern = "[^0-9]";
   
   стр=RegExp.Replace(стр, "");
   Сообщить(стр);

(10)ага напутал... ну я же сказал... как-то так

(12) "ну я же сказал... как-то так" - слив засчитан :))

(9) Типовой похоже нет. Хотя было бы не плохо..

(11) Новый ComОбъект, чтоли

(4) А в "прогрессивной платформе" сравнение строк не канает?

(8)Элегантно.. Первое место:)

Кстати, аффтар, а если цифры есть в камментах?
Номера телефонов все записаны стандартно? Или как попало?

я бы вообще-то до другого докапался )))

(18)Маловероятно. Но тут уж ничего не поделаешь... Да и ручной труд никто не отменял.

(19)До чего же?

(21)1С своеобразно сравнивает строки ))) ... условие в (6) никогда не выполниться


Цифра = "5";
?(Цифра > "/", "истина", "ложь"); //"истина"
?(Цифра < ":", "истина", "ложь"); //"ложь"

(20) что "маловероятно"?
Я бы делал через Регулярные выражения...

(23) эээ... меня точно никто не видит?

(24) Да заценили уже давно. Или тебе так сильно общественное поощрение необходимо? :)

(25) а то :)

а слабо сделать без оператора ЕСЛИ?


Function СухойОстаток(С)
   СухойОстаток = "";
   for Индекс = 1 to StrLen(С) do
       СухойОстаток = СухойОстаток + Ъ[Asc(Left (С, 1))];
   endDo;
   return  СухойОстаток;
EndFunction

(23)Там бардак тот еще. Телефон может быть записан как угодно. И "52-52-52", и "36- 12,,50 спросить гену3" и т.д. Если расскажите как средствами 1С анализировать сей момент, буду признателен..

(28)Формочка, на которой показывается эта строчка и поле для ввода с надписью: "Гад! Ну-ка быстро вбил нормальный номер телефона!!!".

(29) Элегентно:)
Но задача сейчас обработать то, что уже введено. Текущая работа контролируется жестко.

(28) Маску назначь полю телефона...

(30) "Но задача сейчас обработать то, что уже введено" - обрати внимание, на предлагаемой форме - 2 поля. В первом - уже вбитый в базу тескт, из которого пользователю мягко и вежливо предлагается извлечь нормальный номер телефона :)

(32) И все же задача невыполнима. Элементов в справочнике тысячи. Забивалось реально как попало. Не ожидал, что у людей такая фантазия:) Делать несколько масок? Хм..

не надо никаких масок.
пусть руками все перебивают.
фокусничать в данном случае нецелесообразно, да и себе дороже.

(34)Вот я и хочу оставить одни цифры. Пусть разбираются дальше сами.

(35) Может оказаться, что сделаешь только хуже...
Например из строки "Сергей-2, дом 15, 3-й сотовый телефон украли, новый городской - 02".

как верно подметил (18), ИсходнаяСтрока = "Офис №1 50-14-18";
выдаст тебе 1501418

(37) удалить все слова и все одиночные цифры, а оставшиеся проанализировать на предмет наличия дефисов и "кучности"

(38) Ага. И еще свериться телефонной базой данных...

Реквизит называется "Номер телефона", поэтому другие цифры там маловероятны.
Хотя "удалить одиночные цифры" - идея мне понравилась.

(24) Ну не с таким же паттерном...
----------------
Найдено яндексом за 2 минуты:
шаблон номера телефона.

^(\(\d+\)){0,1}\d{3}-\d{2}-\d{2}$\

^ – Этот символ указывает, что здесь начинается искомая строка.
(– Код города располагается внутри скобок.
\( – Открывающая скобка.
\d+ – После скобки должен располагаться код города – одна или несколько цифр.
\) – Закрывающая скобка.
) – Закрывающая скобка – метасимвол, указывающий, что здесь заканчивается группируемое выражение (в данном случае, код города).
{0,1} – Этот метасимвол указывает, что выражение в скобках (код города) может повторяться от нуля до одного раза, то есть код города можно не указывать.
\d{3}-\d{2}-\d{2} – Три группы цифр – одна группа по три и две по две цифры. Цифры разделены дефисами.
$ – Этот знак показывает, что здесь заканчивается подстрока.
--------------
http://archive.williamspublishing.com/cgi-bin/materials.cgi?isbn=5-8459-0713-6 - программки проверки регулярных выражений...

(41) полная фигня... заставляет писать номер в виде
(хххх) ххх-хх-хх

телефоны же часто пишут в виде, удобном для запоминания
например

333-333-22 или
22-22-565 или
1-345-345

к тому же сейчас много коротких номеров.... непонятной длины

(42) Это просто пример.
Что мешает проверить
^(\(\d+\)){0,1}\d{3}-\d{2}-\d{2}$\
и
^(\d+){0,1}\d{3}-\d{2}-\d{2}$\
и
^\d{3}-\d{2}-\d{2}$\
и
^\d{2}-\d{2}-\d{2}$\
и
^\d{3}-\d{3}$\
?

Строка(Число(Симв))
Если пришли к тому же символу - значит циферка

Например, офис № 1 123 456 - данное выражение системой в любом случае будет понято, как 1123456 и никуда от этого не денешься. С другой стороны 123 456 Гоша 93, можно отсеить номер телефона по наличию букв между цифрами.
Вообще-то, программа делает всё автоматом, а потом те места, которые ей показались странными отображает пользователю, чтобы он понял, что к чему (или печатает на бумаге, чтобы секретарша просто повычёркивала те места, которые программа не поняла).