HelpF.pro

Функция, определяющая наличие числа в строке

Код 1C v 8.х
 Функция ЭтоЧисло(Строка) // Экспорт

РезультатЭтоЧисло = 1; // Истина

ДлинаСтроки = СтрДлина(Строка);

Для i = 1 По ДлинаСтроки Цикл

Символ = Лев(Строка, 1);
Строка = Сред(Строка, 2);

Если Не (Символ = "1" Или Символ = "2" Или Символ = "3" Или Символ = "4" Или Символ = "5" Или Символ = "6" Или Символ = "7" Или Символ = "8" Или Символ = "9" Или Символ = "0") Тогда
РезультатЭтоЧисло = 0; // Ложь
Прервать;
КонецЕсли;

КонецЦикла;

Возврат РезультатЭтоЧисло;

КонецФункции // ЭтоЧисло

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/586.html