Нужно найти знаки в строке, не учитывая нецелочисленные числа
27 сентября 2022 в 14:19:55
(2 года 12 недель 3 дня 22 часа назад)
Процедура ПоискЗнака()
Строка = " рив%ет d $ мирп Z rep 63556 &^*^* 94,0 л";
ДлинаСтроки = СтрДлина(Строка);
ТекПоз = 1;
КолЗнаков= 0;
РуссСим = 0;
АнгСим = 0;
ЭтоЗнак = Ложь;
Пока ТекПоз<=ДлинаСтроки Цикл
ТекСимвол = Сред(Строка,ТекПоз,1);
Если КодСимвола(ТекСимвол)>=КодСимвола("!") И КодСимвола(ТекСимвол)<=КодСимвола("/") Тогда
Если
КолЗнаков=КолЗнаков+1;
КонецЕсли;
ТекПоз = ТекПоз+1;
КонецЦикла;
Предупреждение("Кол.знаков - " + КолЗнаков);
КонецПроцедуры
Нужно доработать этот код