Удаление из строки всех нечисловых символов

Иногда необходимо избавиться от нечисловых символов в строке. Например если сканер штрихкода или ридер магнитных карт добавляют в считываемую строку свои служебные символы.

Вот нехитрая функция для решения этой задачи

Код 1C v 7.x

 

Функция УбратьНечисловые(Стр)

	ОбрСтр = СокрЛП(Стр);

	Результат = ОбрСтр;

	Для н=1 по СтрДлина(ОбрСтр) Цикл

		ТекСимвол = Сред(ОбрСтр,н,1);

		Если Найти("0123456789",ТекСимвол) = 0 Тогда

			Результат = СтрЗаменить(Результат,ТекСимвол,"");		

		КонецЕсли;	

	КонецЦикла;	 

	Возврат Результат;

КонецФункции

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/1220.html