Эти две функции 1с которые позволяют проверить, что в строке только цифры.
Первая методом перебора, вторая методом замены. Какую использовать выбирать вам.
Функция ПроверитьЕстьЛиНеЦыфрыВариант1(Стр)
Цифры = "0123456789";
СтрКоличество = СтрДлина(Стр);
Для Счетчик = 1 По СтрКоличество Цикл
Если Найти(Цифры,Сред(Стр,Счетчик,1)) = 0 Тогда
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
Функция ПроверитьЕстьЛиНеЦыфрыВариант2(Стр)
Стр = СтрЗаменить(Стр,"1","");
Стр = СтрЗаменить(Стр,"2","");
Стр = СтрЗаменить(Стр,"3","");
Стр = СтрЗаменить(Стр,"4","");
Стр = СтрЗаменить(Стр,"5","");
Стр = СтрЗаменить(Стр,"6","");
Стр = СтрЗаменить(Стр,"7","");
Стр = СтрЗаменить(Стр,"8","");
Стр = СтрЗаменить(Стр,"9","");
Стр = СтрЗаменить(Стр,"0","");
Возврат Стр = "";
КонецФункции
2023-03-26
