1С 8.3 Проверка на наличие числа в строке
Данные > Примеры кода 1С > 1С 8.3 Строка, текст, буквы
Перейти в раздел примеры кода 1С 8.3:
Проверка на наличие числа в строке в 1С 8.3:
&НаКлиенте
Функция ПроверкаНаНаличиеЧислаВСтроке(пСтрока)
ЭтоЧисло = Истина;
ДлинаСтроки = СтрДлина(пСтрока);
Для А = 1 По ДлинаСтроки Цикл
стрСимвол = Лев(пСтрока, 1);
пСтрока = Сред(пСтрока, 2);
Если Не (стрСимвол = "1" или стрСимвол = "2" или стрСимвол = "3" или стрСимвол = "4" или стрСимвол = "5"
или стрСимвол = "6" или стрСимвол = "7" или стрСимвол = "8" или стрСимвол = "9" или стрСимвол = "0") Тогда
ЭтоЧисло = Ложь;
Прервать;
КонецЕсли;
КонецЦикла;
Возврат ЭтоЧисло;//Истина - есть число в строке, Ложь - число в строке отсутствует
КонецФункции // ЭтоЧисло
Функция ПроверкаНаНаличиеЧислаВСтроке(пСтрока)
ЭтоЧисло = Истина;
ДлинаСтроки = СтрДлина(пСтрока);
Для А = 1 По ДлинаСтроки Цикл
стрСимвол = Лев(пСтрока, 1);
пСтрока = Сред(пСтрока, 2);
Если Не (стрСимвол = "1" или стрСимвол = "2" или стрСимвол = "3" или стрСимвол = "4" или стрСимвол = "5"
или стрСимвол = "6" или стрСимвол = "7" или стрСимвол = "8" или стрСимвол = "9" или стрСимвол = "0") Тогда
ЭтоЧисло = Ложь;
Прервать;
КонецЕсли;
КонецЦикла;
Возврат ЭтоЧисло;//Истина - есть число в строке, Ложь - число в строке отсутствует
КонецФункции // ЭтоЧисло
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник