1С 8.x : Функция проверяет наличие в строке только цифр

Код 1C v 8.х

 

// Функция проверяет наличие в строке только цифр

//

// Параметры

//  СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

//   Булево

//

Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт

	

	СписокКодовЧисел = Новый СписокЗначений;

	Для а = 48 По 57 Цикл

		СписокКодовЧисел.Добавить(а);

	КонецЦикла; 

	

	СтрокаПроверки = СокрЛП(СтрокаПроверки);

	

	Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

		

		Возврат Истина;

		

	Иначе

		

		Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

			Если СписокКодовЧисел.НайтиПоЗначению(КодСимвола(Сред(СтрокаПроверки, а, 1))) = Неопределено Тогда

				Возврат Истина;

			КонецЕсли; 

		КонецЦикла; 

		

	КонецЕсли; 

	

	Возврат Ложь;

	

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

Разместил: E_Migachev Версии: | 8.x | Дата: 13.03.2009 Прочитано: 11503

Возможно, вас также заинтересует

Похожие FAQ

17 правил для составления оптимального ЗАПРОСа к данным базы 1С 52
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ

Google maps : вывод точек на карту и режим панорамы 9
В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают! Для клиента нужно было сделать вывод объектов на карту С возможностью просмотра панора

ZIP-архив Создание 0
Для того чтобы записать файлы в ZIP-архив необходимо выполнить несколько простых действий: * Создать архив с необходимыми параметрами, в который будут помещаться файлы. * Поместить в архив необходимые файлы. * Записать архив. Создание объекта За

ZIP-архив Чтение 1
Для того чтобы прочитать файлы из ZIP-архива необходимо выполнить несколько простых действий: - Открыть необходимый архив - Распаковать файлы Создание объекта ЧтениеZIPФайла можно осуществить двумя путями - создать инициализированный объект или

Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате XML" 11
Автоматизация обмена между базами используя обработку " Универсальный обмен данными в формате XML" В основу данной публикации положены найденные мною материалы по cозданию обмена между двумя базами с использованием обработки " Универсальный обме

Посмотреть все результаты поиска похожих

Еще в этой же категории

Ключевые слова и Изображения

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.