Нужно найти знаки в строке, не учитывая нецелочисленные числа

Процедура ПоискЗнака()
Строка = " рив%ет d $ мирп Z rep 63556 &^*^* 94,0 л";
ДлинаСтроки = СтрДлина(Строка);
ТекПоз = 1;
КолЗнаков= 0;
РуссСим = 0;
АнгСим = 0;
ЭтоЗнак = Ложь;


Пока ТекПоз<=ДлинаСтроки Цикл

ТекСимвол = Сред(Строка,ТекПоз,1);
Если КодСимвола(ТекСимвол)>=КодСимвола("!") И КодСимвола(ТекСимвол)<=КодСимвола("/") Тогда
Если
КолЗнаков=КолЗнаков+1;
КонецЕсли;
ТекПоз = ТекПоз+1;
КонецЦикла;
Предупреждение("Кол.знаков - " + КолЗнаков);
КонецПроцедуры

Нужно доработать этот код