Всем привет ! В теме вопрос уже озвучен. Нужно проверить текст. Есть ли в тексте числа(цифра) ? Знаю можно прогнать текст по циклу и проверить каждую букву на каждое число от 0 до 9. По проще нельзя ?

Если Найти(Текст, "0")>0
    ИЛИ Найти(Текст, "1")>0
    ИЛИ Найти(Текст, "2")>0
    ...
    Тогда

(0) регулярки

ЦифраЕсть = Ложь;
Для й=0 по 9 цикл
  Если Найти(Текст,Строка(й))>0 Тогда
    ЦифраЕсть = Истина;
    Прервать;
  КонецЦикла;
КонецЦикла;

(1)(3) И где здесь вхождение сразу нескольких символов?

(4) Цитата из текста автора поста: "Нужно проверить текст. Есть ли в тексте числа(цифра) ?"

СимволыДляПроверки = "0123456789"
Для и = 0 по СтрДлина(СтрокаКандидат) Цикл
Если Найти(СимволыДляПроверки, СтрокаКандидат[и]) Тогда...

Регулярки не приемлю, так как не хочу зависит от внешних компонентов.

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

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

    Возврат Истина;
    
КонецФункции

Для а = 1 По СтрДлина(СтрокаПроверки) Цикл
        КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));
        Если (КодСимвола >= 48 И КодСимвола <= 57) Тогда
            ЕстьЦифра = Истина;
        КонецЕсли;
    КонецЦикла;

Можно через запрос:
ВЫБРАТЬ
    &Текст ПОДОБНО "%[0123456789]%" КАК ЕстьЦифры

(10) как вариант, кстати. правда по скорости хз как оно.

Тоже думал.  Но запрос работает на сервере. Будет лишинй раз грузить сервер.

http://catalog.mista.ru/public/464971/

и у скд есть лайк.

(7) Так и скажи, что не осилил ))))

(0) Если КодСимвола(Проверяемый, Номер)>47 И КодСимвола(Проверяемый, Номер)<59 Тогда
    Это Число = Истина;
КонецЕсли;

(7) зачем внешние компоненты для регулярок? Пользуюсь вот таким и бед не знаю: http://catalog.mista.ru/public/464971/

+16 ой, опоздал, уже было в (13) )

(7) RegExp во всех осях есть

+(18)

+(18)http://catalog.mista.ru/public/183084/