Интересные варианты есть?

Пока побеждает

СтрЗаменить(СН,"1","");
СтрЗаменить(СН,"2","");
СтрЗаменить(СН,"3","");
СтрЗаменить(СН,"4","");
СтрЗаменить(СН,"5","");
СтрЗаменить(СН,"6","");
СтрЗаменить(СН,"7","");
СтрЗаменить(СН,"8","");
СтрЗаменить(СН,"9","");
СтрЗаменить(СН,"0","");
Возврат СН = "";

КодСимвола() не ?

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


Функция ЭтоЦифра(Символ)
    КодСимвола = КодСимвола(Символ);
    Возврат (КодСимвола >= 48 И КодСимвола <= 57)
КонецФункции

(0) Регулярные выражения

(0) не цифры из строки, а только цифры. в общем, пробегание по строке с проверкой каждого символа, понятно
(3) на линукс-сервере не работает

Цель какую преследуешь ?
Попытка
  А=Сн*1;
Сообщить("Это число");
Исключение
Сообщить("Это не число");
КонецПопытки;

опередили...

попытка
   времЧисло = Число(исхСтрока);
   толькоЧисла = истина;
исключение
   толькоЧисла = Ложь;
КонецПопытки;

(5) Название темы перечитай внимательно.

(5) (6) недавно тут много кричали про попытки и про то, что это омнокод

(5)(6) не правильно работает для А = "1.1"


(8) не, норм

(4) СтрЗаменить, лучше проверки всей строки?

(9) А в строке "1.1" разве только цифры?

(0) Из типовой

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

(12) Опередил )) СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке (в УПП)

(11) ну так он и пишет, что не правильно (5) и (6) отработает

(11) вот именно. а (5) и (6) думает, что да, только цифры. вообще неплохая задача на собеседование для отсеивания 1сников, которые не могут понять задачу

(0)
Возврат Вопрос("В строке """ + СН + """ только цифры?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да;

(16) )))))))

Возврат Найти(Стр,"1")+Найти("Стр","2")+...+Найти("Стр","0")=0

(16) это победа)))

В линуксе какие ни будь компоненты вообще возможно запускать?
Хоть самонаписанные.

2(20) это что, похоже на аниме-форум?

(21) Я имею ввиду внутри сервера приложений.

(20) можно

(23) а примерчики есть?

http://users.v8.1c.ru/getdist.jsp?path=Platform/8_2_18_102/addin.zip&id=Platform82&ver=8.2.18.102

(0) Если заведомо известно, что строка конечной длины то можно так
Дли=СтрДлина(Стр);
Возврат Стр>=Прав("00000000000000000000000000000000000000000000000",Дли) и Стр<=Прав("9999999999999999999999999999999999999999999",Дли);

(26) а нет, пардон

/******************************************************************************
// ВСтрокеОставитьТолькоЦифры(СтрокаИзСимволовИЦифр)
//
// Параметры:
//  СтрокаИзСимволовИЦифр (строка) - из которой будут удалены символы, которые не являются десятичными цифрами
//
// Описание:
//  Возвращает строку, которая является результатом удаления из строки
//СтрокаИзСимволовИЦифр всех символов, не являющих десятичными цифрами
//
Функция ВСтрокеОставитьТолькоЦифры(СтрокаИзСимволовИЦифр)
    Перем Рез;
    //Заменяем все символы не цифры на точку, чтобы при выполнении цикла на изменилась длина строки
    Для i = 1 По СтрДлина(СтрокаИзСимволовИЦифр) Цикл
        СтрокаИзСимволовИЦифр1 = Сред(СтрокаИзСимволовИЦифр, i, 1); //1 символ
        Если Найти("0123456789", СтрокаИзСимволовИЦифр1) = 0 Тогда
            СтрокаИзСимволовИЦифр = СтрЗаменить(СтрокаИзСимволовИЦифр, СтрокаИзСимволовИЦифр1, ".");
        КонецЕсли;
    КонецЦикла;    
    //Удаляем символы, которые являются точкой
    Рез = СтрЗаменить(СтрокаИзСимволовИЦифр,".", "");    
    Возврат Рез;
КонецФункции // ВСтрокеОставитьТолькоЦифры

(28) если бы это было собеседование, ты бы его не прошел

(29) Слишком много "бы"...

Это побеждает???????
"Возврат СН = "";"

Ок, всегда буду использовать!

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

(30) нет, в (0) - пример работающего кода (ну, кроме забытых СН = в строках с СтрЗаменить), выполняющего задачу. Интересно, что даже имея пример многие 1сники не смогли понять, что же требуется.

В (0) нет присвоения. сн=саменить(СН...)

(33) прочитал (32) в скобках? без присвоения оно, кстати, не проходит синтаксический контроль.

(32) Так что же требуется - разжуй.

У меня первым делом пришла мысль про код символа..

(36)А если код а не мысли. Не понял что за идея с код символа?

Можно сравнить еще как то извратнее:
СтрДлина(Число("5ап1а1")) = 1
СтрДлина("5ап1а1") = 6

(7.7)

(36)Эээм.. перебираешь символы в строке, заранее создав список из кодов символов цифр, и проверяешь находится ли КодСимвола() текущего символа, в списке.

Ставлю на перебор через Символ(КодСимвола(...)) и поиск в строке "0123456789."

(39)(40) я не понял зачем код символа? Если проще сразу брать символ? Что это дает?

Возврат СтрДлина(Тест) = СтрДлина(Число(Тест))

хз, привычка из других ЯП ;)

(42)Еще на "0" условие надо

(41)Ну браток.. мы видимо просто не такие крутые как ты ещё.. вот и всё..

+(44) На первый ноль.

+(44) На первые два нуля...

(45)Фух.. славо богу. А то я подумал что я слишком туп:)

Вроде работает и с действительными числами..Дайте пирожок.
    штоТам="";
      ВвестиСтроку(штоТам);
      штоТам2= ВРег(штоТам);
      
       если штоТам=штоТам2 тогда
           сообщить("только цифры");
       иначе
           сообщить("есть и буквы");
           конецесли;

(49) А если введу только большие буквы?

(49)Не катит. Много исключений в виде точек, запятых, знаков доллара и т.п. кракозябр.

(51)Логично..Надо думать.

Часто регулярные выражения используются для тестирования строк, например пользовательского ввода.
Этот пример позволяет узнать, является ли строка целым числом.
Код 1C v 7.x
///////////////////////////////////////////////////////////////////////
//Проверка подстроки
Процедура RegExp_Test()
    RegExp = CreateObject("VBScript.RegExp");
    RegExp.Pattern =  "^\d+$"; //Шаблон, который соответствует целому числу
    стр="12345";//Строка, которую тестируем
    Если RegExp.Test(стр)=0 Тогда
        Сообщить("Это не целое число");
    Иначе
        Сообщить("Это целое число");
    КонецЕсли;
    //Выдаст в окно сообщений:    
    //"Это целое число"
КонецПроцедуры

+(53) http://help1c.com/faq/view/985.html

Вот такое когда-то придумал, помогает. Правда для 7.7

http://1c911.by/stati_1s/statya-poleznye-melochi.htm#4

(35) требуется ровно то, что в сабже: "Проверить, что в строке только цифры". результат проверки - да или нет

Интересный вопрос, а строка "" - это строка, содержащая только цифры или нет ?

(57) +10050
ЗЫ ИМХО удобно, когда нормальный парсер типа Число(Строка) в таких случаях возвращает 0

Возврат СтрДлина(СН) =
(СтрЧислоВхождений(СН, "0") +
СтрЧислоВхождений(СН, "1") +
СтрЧислоВхождений(СН, "2") +
СтрЧислоВхождений(СН, "3") +
СтрЧислоВхождений(СН, "4") +
СтрЧислоВхождений(СН, "5") +
СтрЧислоВхождений(СН, "6") +
СтрЧислоВхождений(СН, "7") +
СтрЧислоВхождений(СН, "9") )

(57) вопрос и правда интересный. будем считать, что да, тем более, что имеющийся в (0) код тоже так считает.

(60) Хм... а с чего бы "" являлось числом? Какие предпосылки? Твоя штука может и ошибаться...

(61) числа и цифры - видишь разницу?

Очередная попытка выпендриться, не выдан полное задание.

зы. VI - число? а FFFF?

(60) Просто тогда метод
Если Строка(Число(ПроверяемаяСтрока))=ПроверяемаяСтрока Тогда ЭтоЧисло=Да;
Но, 001 - это числовая строка, а не число, а 1.1 - число, но не строка из цифр.

(64) сколько раз нужно повторить 1снику, что нужна проверка на то, что строка содержит только цифры, чтобы он это понял?

мне не нравится код в (0) тем что сложность метода = число символов*10;
(65) много, потому что 1с ники обычно решают практические задачи, и не любят теоретические :)

А почему нельзя по-простому: ехать от начала к концу и, как только текущий символ НЕ цифры - сразу возвращать ЛОЖЬ, а, если доехал до конца - ИСТИНУ? Проще-то некуда, вроде.

А можно вообще извратиться и сделать проверку через запрос :)

ТолькоЦифры = Истина;    
    
КС = Новый КвалификаторыСтроки();
Массив = Новый Массив;
Массив.Добавить(Тип("Строка"));
ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);

    
    ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("Наименование",ОписаниеТиповС,"Наименование");
    СтрокаТЗ = Тз.Добавить();
    СтрокаТЗ.Наименование = СН;
    КоличествоСимволов = СтрДлина(СН);
    Подобие = "";
    
    Для Н = 1 По КоличествоСимволов Цикл
        Подобие = Подобие + "[0-9]";
    КонецЦикла;
    
    
        Запрос = Новый Запрос("ВЫБРАТЬ
                              |    ИСТИНА КАК ТолькоЦифры
                              |ПОМЕСТИТЬ времТаб
                              |ИЗ
                              |    &ТЗ КАК ТЗ
                              |ГДЕ
                              |    ТЗ.Наименование ПОДОБНО &Подобие
                              |;
                              |
                              |////////////////////////////////////////////////////////////////////////////////
                              |ВЫБРАТЬ
                              |    Т.ТолькоЦифры
                              |ИЗ
                              |    времТаб КАК Т");
    
    Запрос.УстановитьПараметр("ТЗ", ТЗ);
    Запрос.УстановитьПараметр("Подобие", Подобие);

    Результат = Запрос.Выполнить();
    Если Результат.Пустой() Тогда
        ТолькоЦифры = Ложь;
    КонецЕсли;
    
    Сообщить(ТолькоЦифры);

Вот такой вариант. Для ускорения лучше "Цифры = "0123456789";" вынести из функции

Функция ТолькоЦифры(Стр)
    Цифры = "0123456789";
    СтрКоличество = СтрДлина(Стр);
    Для Счетчик = 1 По СтрКоличество Цикл
        Если Найти(Цифры,Сред(Стр,Счетчик,1)) = 0 Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат Истина;
КонецФункции



(59) а 8?

(58) не нравится - используй Число("0" + СокрЛП()). просто там вообще все, что угодно может оказаться. защиту от дурака еще никто не отменял.

+(69) ну и надо тестировать на реальных данных. Допустим в (69) если нечисло будет в начале строки, то будет быстрее

если в (6) добавить сравнение с округленным результатом, имхо, будет самый быстрый код из стандартных 1С-овых

(62) По сути - не прав.
"Присутствие только цифр" <> "Отсутствие не-цифр" как раз из-за пустой строки.

(69) А есть уверенность, что Найти("0123456789",Символ) будет работать быстрее, чем (Код>=48)И(Код<=57) ?

+ В восьмёрке же КодСимв(Строка,Позиция) позволяет не получать символ из строки, а сразу получить его код.

(76) Проверил. результат примерно одинаковый. на 1000000 расхождения +- 10 %

(77) Видимо, в 1С сравнение чисел выполняется в несколько этапов - сначала сравнение типов, а потом только сравнение данных.

Попытка
Ответ = НЕ (Найти(СтрокаДляПроверки, ".")
         ИЛИ Найти(СтрокаДляПроверки, ",")
         ИЛИ "1" + СтрокаДляПроверки <> Формат(Число("1" + СтрокаДляПроверки), "ЧГ="));
Исключение
Ответ = Ложь;
КонецПопытки;

(0)
ВЫБРАТЬ
    ВЫБОР
        КОГДА &СН ПОДОБНО "%[^0-9]%"
            ТОГДА ЛОЖЬ
        ИНАЧЕ ИСТИНА
    КОНЕЦ КАК ВСтрокеТолькоЦифры

(80) различное поведение в части пустой строки, но в принципе неплохо

Подпишусь, позже почитаю.

(81) да вроде такое же, если СН = "" будет Истина

(83) согласен, протупил