Поиск знаков в строке , не включая нецелочисленные и дробные числа

[novaOct]

Здравствуйте. Помогите с решением задачи, подсчитывает отдельные знаки, но которые в тексте считать не собирается. Как сделать их подсчёт?

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

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