Добрый день, возник вот такой срочно вопрос, спасибо!

перебором

можно без цикла

(2) регэксп?

(3)

Функция ТолькоЦифры(Строка) Экспорт
    Если СтрДлина(Строка) = 0 Тогда
        Возврат "";
    ИначеЕсли (Строка>="0") И (Строка<="9") Тогда
        Возврат Лев(Строка, 1) + ТолькоЦифры(Сред(Строка, 2));
    Иначе
        Возврат ТолькоЦифры(Сред(Строка, 2));
    КонецЕсли;
КонецФункции

*
//ИначеЕсли (Строка>="0") И (Строка<="9") Тогда
ИначеЕсли (Строка>="0") И (Лев(Строка,1)<="9") Тогда

писал на коленке

(Лев(Строка,1)<="9")
во. чувствую, что-то не сходится ;)

(4) Жесть.
Мож 1 цикл по всем символам, и смотреть на результат функции "КодСимвола()" (точно не помню там какие коды для 0-9), ну и если код попадает в диапазон кодов цифр то добавлять в результат, а в конце результат на "Возврат"

абажаю рекурсию. хотя, она тут нафиг не нужна :)

(8) см (2),(3)

а коды 48 и 57. Это я помню, но так нагляднее

(10) Да лучше уж цикл чем стек вызовов функций.

СтрокаИтог = "";
цикл по символам {
   СтрокаИтог = СтрокаИтог +?(Найти("0123456789",Символ),Символ,"");
}

(13) это ты с сями попутал

Для й=0 По 256 Цикл
Если й<=48 и й>=57
  СтрЗаменить(стр, Символ(й), "");

(14) лень писать валидный 1С, переводи с псевдокода

Функция УбратьВсёКроме(пстрДанные,пстрДопустимые)
лчДл=СтрДлина(пстрДанные);
лстр="";
Для лч=1 По лчДл Цикл
  лстрСимв=Сред(пстрДанные,лч,1);
  Если Найти(пстрДопустимые,лстрСимв)>0 Тогд
   лстр=лстр+лстрСимв;
  КонецЕсли;
КонецЦикла;
Возврат лстр;
КонецФункции

(15) конкурс на самый медленный код считается открытым? :)

(18) ага. 256 - это я недобрал

(19) А у нас символы не Unicode разве ?

(20) вово

Функция ТолькоЦифры(Строка)
    
    Длинна = СтрДлина(Строка);
    Итог = "";
    Для Инд = 1 По Длинна Цикл
        Символ = Сред(Строка,Инд,1);
        КодСимвола = КодСимвола(Символ);
        Если КодСимвола > 47 И КодСимвола < 58 Тогда
            Итог = Итог+Символ;
        КонецЕсли;
    КонецЦикла;
    
    Возврат Итог;
    
КонецФункции


ВвестиТекст = "щш56щш6гшнг5нг5нг5нг54574347547547";
Подсказка = "Введите только цифры";
Если ВвестиСтроку(Текст, Подсказка, 30) Тогда
    
КонецЕсли;



(21) На самом деле, если длина строки более 64Кб, то метод не очень-то и медленным покажется.

(23) не факт, что это - самый медленный вариант. незачёт

Й=СтрДлина(ИсхСтрока);
У=1;
_="";
Для Х = У по Й Цикл
   ъ=ИсхСтрока[Х];
   _=_+?(Найти(ъ,ИсхСтрока)>0,ъ,"");
КонецЦикла;

(23) Надо чтобы пользователю, который вместо цифр ввёл то, чего не должно быть, показывалась картинка с результатом, которого тоже быть не должно - тогда будут думать.

(14) так норм?

Может так?
СтрЗаменить("Строка1234567890", "0", "")
...
СтрЗаменить("Строка1234567890", "9", "")

(26) подогнал под ответ.

Переменная У там в наху? не нужна

(27) 25й кадр? бойцовский клуб вспоминаетяс

а вообще самый правильный способ

re = new Regexp('\D');
re.replace(str,"");

Прав (27).
У нас, если не проставлены коэффициенты у ЕИ товаров, то количество считается как 9999999999999999999 и этому есть логичное объяснение.
Когда Коэф = 0 у одной из позиций, то это не сразу видно в большой портянке документа, при печати, итоговая сумма похожа на правду. Но, когда итоговая сумма = 99999999999999999, то чел сразу понимает, что в документе что-то не так

Если Не СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке(ИсхСтрока) Тогда
    Предупреждение("Ху?!!1");
КонецЕсли;


Функция ТолькоЦифры(Знач СтрокаСЦифрамиИСимволами)
    
    ПервыйСимвол = Лев(СтрокаСЦифрамиИСимволами, 1);
    Если ПервыйСимвол = "" Тогда
        Возврат "";
    ИначеЕсли ЭтоЧисло(ПервыйСимвол) Тогда
        Возврат ПервыйСимвол + ТолькоЦифры(Сред(СтрокаСЦифрамиИСимволами, 2));
    Иначе
        Возврат ТолькоЦифры(Сред(СтрокаСЦифрамиИСимволами, 2));
    КонецЕсли;
    
КонецФункции

Текст = "щш56щш6гшнг5нг5нг5нг54574347547547";
Сообщить(Текс + "->" + ТолькоЦифры(Текст), СтатусСообщения.Информация);


(33) А машина это сама проверить и сказать пользователю не может ?

(36) нельзя

(35) агамс, теперь давай функцию ЭтоЧисло :)

(37) Почему нельзя ?

(39) требование бизнеса.

(40) Лучше один раз объяснить, почему так делать нехорошо, чем реализовывать бредовую идею.

(41) не ты ли в (27) предложил аналогичный вариант?

а по-моему (33) имеет право на жизнь. изящненько так ;)

(43) Ну, можно ещё и минус пририсовать - если в графе минус, то явно что-то в "консерватории исправить надо".