Является ли строка числом
По теме из базы знаний
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Я только учусь программировать на 1С,но данная задача просто вогнала меня в ступор.Уже и Синтаксис помощника перечитал и на всяких форумах данную тему искал ,но никак не могу понять в каком направлении решить данную задачу.
(3)
СтрДлина()
• СокрЛ(), СокрП(), СокрЛП()
• Лев(), Прав(), Сред()
• Врег(), НРег(), ТРег()
• СтрНайти()
• СтрЗаменить()
• СтрЧислоСтрок()
• СтрПолучитьСтроку()
• ПустаяСтрока()
• СтрРазделить()
• СтрСоединить()
Сам факт того, что сама задачка я так понял для начального уровня где используется максимум условный оператор с циклом.
СтрДлина()
• СокрЛ(), СокрП(), СокрЛП()
• Лев(), Прав(), Сред()
• Врег(), НРег(), ТРег()
• СтрНайти()
• СтрЗаменить()
• СтрЧислоСтрок()
• СтрПолучитьСтроку()
• ПустаяСтрока()
• СтрРазделить()
• СтрСоединить()
Сам факт того, что сама задачка я так понял для начального уровня где используется максимум условный оператор с циклом.
(8)
Как-то так ?
Как-то так ?
ПерваяСтрока = "f634634634";
ДлинаСтроки = СтрДлина(ПерваяСтрока);
Для А=1 по ДлинаСтроки Цикл
Если СтрНайти(ПерваяСтрока,"1234567890.") >= 0 Тогда
Сообщить("Строка является числом");
Иначе
Сообщить("Строка не является числом");
КонецЕсли;
КонецЦикла; Показать
(4)У меня правильное направление?)
ПерваяСтрока = "123а21ф";
Индекс = 1;
Перебор = 0;
ДлинаСтроки = СтрДлина(ПерваяСтрока);
Для А=1 по ДлинаСтроки Цикл
Перебор = Лев(ПерваяСтрока,Индекс);
Если СтрНайти(ПерваяСтрока,"1234567890.",А) >= 0 Тогда
Индекс = Индекс +1;
Сообщить("Строка является числом");
Иначе
Сообщить("Строка не является числом");
КонецЕсли;
КонецЦикла; Показать
с 23 платформы появилась возможность использовать регулярные выражения:
если старая платформа, то:
Функция ЭтоЧисло( ПроверяемаяСтрока)
Шаблон = "\d+\.?\d*";
Результат = СтрПодобнаПоРегулярномуВыражению( ПроверяемаяСтрока, Шаблон);
Возврат Результат;
КонецФункции
Показатьесли старая платформа, то:
Функция ЭтоЧисло( ПроверяемаяСтрока)
Результат = Истина;
Если ПроверяемаяСтрока = "" Тогда
Результат = Ложь;
КонецЕсли;
УжеЕстьТочка = Ложь;
Для Поз = 1 По СтрДлина( ПроверяемаяСтрока) Цикл
ТекСимвол = Сред( ПроверяемаяСтрока, Поз, 1);
Если СтрНайти("1234567890", ТекСимвол) > 0 Тогда
//все ок
ИначеЕсли ТекСимвол = "." Тогда
Если УжеЕстьТочка Тогда
Результат = Ложь;//вторая точка
КонецЕсли;
Если Поз = 1 Тогда
Результат = Ложь;//точка вначале
КонецЕсли;
УжеЕстьТочка = Истина;
Иначе
Результат = Ложь;
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
Показать
// Проверку на то, что Символы.НПП в начале и только они - не делал
Цифры = "0 1 2 3 4 5 6 7 8 9 . " + Символы.НПП;
М = СтрРазделить(Цифры, " ");
_Стр = СокрЛП(Объект.СтрЧисло);
_СтрДлина = СтрДлина(_Стр );
Для каждого ц Из М Цикл
_Стр = СтрЗаменить(_Стр, ц, ц + Символ(7));
КонецЦикла;
Если 2 * _СтрДлина = СтрДлина(_Стр) Тогда
Сообщить("Это Число !");
Иначе
Сообщить("Это НЕ число :(");
КонецЕсли;
Показать
(28)
Цифры = "0 1 2 3 4 5 6 7 8 9 . " + Символы.НПП;
М = СтрРазделить(Цифры, " ");
_Стр = СокрЛП(Объект.СтрЧисло);
_СтрДлина = СтрДлина(_Стр);
Для каждого ц Из М Цикл
_Стр = СтрЗаменить(_Стр, ц, ц + Символ(7));
КонецЦикла;
ЭтоЧисло = Ложь;
Если 2 * _СтрДлина = СтрДлина(_Стр) Тогда
инд1 = М.Найти(Лев(_Стр, 1));
Если инд1 <> Неопределено И инд1 <= 9 Тогда // Начинается с цифры
Если СтрЧислоВхождений(_Стр, М[10]) <= 1 Тогда // Одна .
ЭтоЧисло = Истина;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Сообщить("Это Число ? " + ЭтоЧисло); Показать
(31)
Для каждого ц Из М Цикл
_Стр = СтрЗаменить(_Стр, ц, ц + Символ(7));
КонецЦикла;
Боженьки, какой же бардак у вас в голове....
Для каждого ц Из М Цикл
_Стр = СтрЗаменить(_Стр, ц, ц + Символ(7));
КонецЦикла;
ЧислоСтрокой = СокрЛП(Объект.СтрЧисло);
ЭтоЧисло = СтрРазделить(ЧислоСтрокой, "0123456789.", Ложь).Количество() = 0
И Не СтрНачинаетсяС(ЧислоСтрокой, ".")
И Не СтрЗаканчиваетсяНа(ЧислоСтрокой, ".")
И СтрЧислоВхождений(ЧислоСтрокой, ".") <= 1;
Сообщить("Это Число ? " + ЭтоЧисло);
ПоказатьВО!
ТекОбъект="15422.р";
Строка=".0123456789";
ДлинаСтроки=СтрДлина(ТекОбъект);
Для Счетчик=1 по ДлинаСтроки Цикл
ИзмСтр=Сред(ТекОбъект,Счетчик,1);
ИзмСтр=?(СтрНайти(Строка,ИзмСтр),1,0);
Если ИзмСтр=0 ИЛИ СтрЧислоВхождений(ТекОбъект,".")>1 Тогда
Сообщить(ТекОбъект+" - не является числом");
Прервать;
КонецЕсли;
Если Счетчик=ДлинаСтроки Тогда
Сообщить(ТекОбъект+" - является числом");
КонецЕсли;
КонецЦикла; Показать
А как вам такое решение
ИсходнаяСтрока = "12.руб 345";
НачСтрока = СтрРазделить(ИсходнаяСтрока, ".1234567890");
КонСтрока = СтрСоединить(НачСтрока);
ТекСтрока = СтрСравнить(НачСтрока, КонСтрока) - 1;
Если ТекСтрока = 0 Тогда
Сообщить("Строка вляется числом!");
Иначе
Сообщить("Строка не является числом!");
КонецЕсли;
ИсходнаяСтрока = "12.руб 345";
НачСтрока = СтрРазделить(ИсходнаяСтрока, ".1234567890");
КонСтрока = СтрСоединить(НачСтрока);
ТекСтрока = СтрСравнить(НачСтрока, КонСтрока) - 1;
Если ТекСтрока = 0 Тогда
Сообщить("Строка вляется числом!");
Иначе
Сообщить("Строка не является числом!");
КонецЕсли;
Вакансии
1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день