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