Проверить, что в строке только цифры #676411

Интересные варианты есть? Пока побеждает СтрЗаменить(СН,"1",""); СтрЗаменить(СН,"2",""); СтрЗаменить(СН,"3",""); СтрЗаменить(СН,"4",""); СтрЗаменить(СН,"5",""); СтрЗаменить(СН,"6",""); СтрЗаменить(СН,"7",""); СтрЗаменить(СН,"8",""); СтрЗаменить(СН,"9",""); СтрЗаменить(СН,"0",""); Возврат СН = "";

КодСимвола не ?

Функция ВернутьЦифрыИзСтроки(СтрокаПроверки, УдалитьЛидирующиеНули = Истина)          Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда         Возврат "";     КонецЕсли;          ЦифрыИзСтроки = "";          Для ё = 1 По СтрДлина(СтрокаПроверки) Цикл         Символ = Сред(СтрокаПроверки, ё, 1);         Если ЭтоЦифра(Символ) Тогда             ЦифрыИзСтроки = ЦифрыИзСтроки + Символ;         КонецЕсли;     КонецЦикла;          Если УдалитьЛидирующиеНули Тогда         ЦифрыИзСтроки = СтроковыеФункцииКлиентСервер.УдалитьПовторяющиесяСимволы(ЦифрыИзСтроки, "0");     КонецЕсли;              Возврат ЦифрыИзСтроки;      КонецФункции Функция ЭтоЦифра(Символ)     КодСимвола = КодСимвола(Символ);     Возврат (КодСимвола >= 48 И КодСимвола <= 57) КонецФункции

Регулярные выражения

не цифры из строки, а только цифры. в общем, пробегание по строке с проверкой каждого символа, понятно на линукс-сервере не работает

Цель какую преследуешь ? Попытка   А=Сн*1; Сообщить("Это число"); Исключение Сообщить("Это не число"); КонецПопытки;

опередили... попытка    времЧисло = Число(исхСтрока);    толькоЧисла = истина; исключение    толькоЧисла = Ложь; КонецПопытки;

Название темы перечитай внимательно.

недавно тут много кричали про попытки и про то, что это омнокод

не правильно работает для А = "1.1" не, норм

СтрЗаменить, лучше проверки всей строки?

А в строке "1.1" разве только цифры?

Из типовой Функция ТолькоЦифрыВСтроке(Знач СтрокаПроверки, Знач УчитыватьЛидирующиеНули = Истина, Знач УчитыватьПробелы = Истина) Экспорт          Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда         Возврат Ложь;     КонецЕсли;          Если НЕ ЗначениеЗаполнено(СтрокаПроверки) Тогда         Возврат Истина;     КонецЕсли;          Если НЕ УчитыватьПробелы Тогда         СтрокаПроверки = СтрЗаменить(СтрокаПроверки, " ", "");     КонецЕсли;          Если НЕ УчитыватьЛидирующиеНули Тогда         НомерПервойЦифры = 0;         Для а = 1 По СтрДлина(СтрокаПроверки) Цикл             НомерПервойЦифры = НомерПервойЦифры + 1;             КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));             Если КодСимвола <> 48 Тогда                 Прервать;             КонецЕсли;         КонецЦикла;         СтрокаПроверки = Сред(СтрокаПроверки, НомерПервойЦифры);     КонецЕсли;          Для а = 1 По СтрДлина(СтрокаПроверки) Цикл         КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));         Если НЕ (КодСимвола >= 48 И КодСимвола <= 57) Тогда             Возврат Ложь;         КонецЕсли;     КонецЦикла;          Возврат Истина;      КонецФункции

Опередил )) СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке (в УПП)

ну так он и пишет, что не правильно и отработает

вот именно. а и думает, что да, только цифры. вообще неплохая задача на собеседование для отсеивания 1сников, которые не могут понять задачу

Возврат Вопрос("В строке """ + СН + """ только цифры?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да;

)))))))

Возврат Найти(Стр,"1")+Найти("Стр","2")+...+Найти("Стр","0")=0

это победа)))

В линуксе какие ни будь компоненты вообще возможно запускать? Хоть самонаписанные.

2 это что, похоже на аниме-форум?

Я имею ввиду внутри сервера приложений.

можно

а примерчики есть?

Если заведомо известно, что строка конечной длины то можно так Дли=СтрДлина(Стр); Возврат Стр>=Прав("00000000000000000000000000000000000000000000000",Дли) и Стр<=Прав("9999999999999999999999999999999999999999999",Дли);

а нет, пардон

/****************************************************************************** // ВСтрокеОставитьТолькоЦифры(СтрокаИзСимволовИЦифр) // // Параметры: //  СтрокаИзСимволовИЦифр (строка) - из которой будут удалены символы, которые не являются десятичными цифрами // // Описание: //  Возвращает строку, которая является результатом удаления из строки //СтрокаИзСимволовИЦифр всех символов, не являющих десятичными цифрами // Функция ВСтрокеОставитьТолькоЦифры(СтрокаИзСимволовИЦифр)     Перем Рез;     //Заменяем все символы не цифры на точку, чтобы при выполнении цикла на изменилась длина строки     Для i = 1 По СтрДлина(СтрокаИзСимволовИЦифр) Цикл         СтрокаИзСимволовИЦифр1 = Сред(СтрокаИзСимволовИЦифр, i, 1); //1 символ         Если Найти("0123456789", СтрокаИзСимволовИЦифр1) = 0 Тогда             СтрокаИзСимволовИЦифр = СтрЗаменить(СтрокаИзСимволовИЦифр, СтрокаИзСимволовИЦифр1, ".");         КонецЕсли;     КонецЦикла;         //Удаляем символы, которые являются точкой     Рез = СтрЗаменить(СтрокаИзСимволовИЦифр,".", "");         Возврат Рез; КонецФункции // ВСтрокеОставитьТолькоЦифры

если бы это было собеседование, ты бы его не прошел

Слишком много "бы"... Это побеждает??????? "Возврат СН = "";" Ок, всегда буду использовать!

Зн=СокрЛП(К2.Наименование);                         ЗнПреобр="";                         ДопустСим="+0123456789";//В номерах телефона другого не надо (синхр. с мобилой)                         Для п3=1 по СтрДлина(Зн) Цикл                             Сим=Сред(Зн,п3,1);                             Если Найти(ДопустСим,Сим)>0 Тогда                                 ЗнПреобр=ЗнПреобр+Сим;                                 КонецЕсли;                                                     КонецЦикла;

нет, в - пример работающего кода (ну, кроме забытых СН = в строках с СтрЗаменить), выполняющего задачу. Интересно, что даже имея пример многие 1сники не смогли понять, что же требуется.

В нет присвоения. сн=саменить(СН...)

прочитал в скобках? без присвоения оно, кстати, не проходит синтаксический контроль.

Так что же требуется - разжуй.

У меня первым делом пришла мысль про код символа..

А если код а не мысли. Не понял что за идея с код символа?

Можно сравнить еще как то извратнее: СтрДлина(Число("5ап1а1")) = 1 СтрДлина("5ап1а1") = 6 (7.7)

Эээм.. перебираешь символы в строке, заранее создав список из кодов символов цифр, и проверяешь находится ли КодСимвола текущего символа, в списке.

Ставлю на перебор через Символ(КодСимвола(...)) и поиск в строке "0123456789."

я не понял зачем код символа? Если проще сразу брать символ? Что это дает?

Возврат СтрДлина(Тест) = СтрДлина(Число(Тест))

хз, привычка из других ЯП ;)

Еще на "0" условие надо

Ну браток.. мы видимо просто не такие крутые как ты ещё.. вот и всё..

+ На первый ноль.

+ На первые два нуля...

Фух.. славо богу. А то я подумал что я слишком туп:)

Вроде работает и с действительными числами..Дайте пирожок.     штоТам="";       ВвестиСтроку(штоТам);       штоТам2= ВРег(штоТам);               если штоТам=штоТам2 тогда            сообщить("только цифры");        иначе            сообщить("есть и буквы");            конецесли;

А если введу только большие буквы?

Не катит. Много исключений в виде точек, запятых, знаков доллара и т.п. кракозябр.

Логично..Надо думать.

Часто регулярные выражения используются для тестирования строк, например пользовательского ввода. Этот пример позволяет узнать, является ли строка целым числом. Код 1C v 7.x /////////////////////////////////////////////////////////////////////// //Проверка подстроки Процедура RegExp_Test     RegExp = CreateObject("VBScript.RegExp");     RegExp.Pattern =  "^d+$"; //Шаблон, который соответствует целому числу     стр="12345";//Строка, которую тестируем     Если RegExp.Test(стр)=0 Тогда         Сообщить("Это не целое число");     Иначе         Сообщить("Это целое число");     КонецЕсли;     //Выдаст в окно сообщений:         //"Это целое число" КонецПроцедуры

+

Вот такое когда-то придумал, помогает. Правда для 7.7

требуется ровно то, что в сабже: "Проверить, что в строке только цифры". результат проверки - да или нет

Интересный вопрос, а строка "" - это строка, содержащая только цифры или нет ?

+10050 ЗЫ ИМХО удобно, когда нормальный парсер типа Число(Строка) в таких случаях возвращает 0

Возврат СтрДлина(СН) = (СтрЧислоВхождений(СН, "0") + СтрЧислоВхождений(СН, "1") + СтрЧислоВхождений(СН, "2") + СтрЧислоВхождений(СН, "3") + СтрЧислоВхождений(СН, "4") + СтрЧислоВхождений(СН, "5") + СтрЧислоВхождений(СН, "6") + СтрЧислоВхождений(СН, "7") + СтрЧислоВхождений(СН, "9") )

вопрос и правда интересный. будем считать, что да, тем более, что имеющийся в код тоже так считает.

Хм... а с чего бы "" являлось числом? Какие предпосылки? Твоя штука может и ошибаться...

числа и цифры - видишь разницу?

Очередная попытка выпендриться, не выдан полное задание. зы. VI - число? а FFFF?

Просто тогда метод Если Строка(Число(ПроверяемаяСтрока))=ПроверяемаяСтрока Тогда ЭтоЧисло=Да; Но, 001 - это числовая строка, а не число, а 1.1 - число, но не строка из цифр.

сколько раз нужно повторить 1снику, что нужна проверка на то, что строка содержит только цифры, чтобы он это понял?

мне не нравится код в тем что сложность метода = число символов*10; много, потому что 1с ники обычно решают практические задачи, и не любят теоретические :)

А почему нельзя по-простому: ехать от начала к концу и, как только текущий символ НЕ цифры - сразу возвращать ЛОЖЬ, а, если доехал до конца - ИСТИНУ? Проще-то некуда, вроде.

А можно вообще извратиться и сделать проверку через запрос :) ТолькоЦифры = Истина;          КС = Новый КвалификаторыСтроки; Массив = Новый Массив; Массив.Добавить(Тип("Строка")); ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);          ТЗ = Новый ТаблицаЗначений;     ТЗ.Колонки.Добавить("Наименование",ОписаниеТиповС,"Наименование");     СтрокаТЗ = Тз.Добавить;     СтрокаТЗ.Наименование = СН;     КоличествоСимволов = СтрДлина(СН);     Подобие = "";          Для Н = 1 По КоличествоСимволов Цикл         Подобие = Подобие + "[0-9]";     КонецЦикла;                   Запрос = Новый Запрос("ВЫБРАТЬ                               |    ИСТИНА КАК ТолькоЦифры                               |ПОМЕСТИТЬ времТаб                               |ИЗ                               |    &ТЗ КАК ТЗ                               |ГДЕ                               |    ТЗ.Наименование ПОДОБНО &Подобие                               |;                               |                               |////////////////////////////////////////////////////////////////////////////////                               |ВЫБРАТЬ                               |    Т.ТолькоЦифры                               |ИЗ                               |    времТаб КАК Т");          Запрос.УстановитьПараметр("ТЗ", ТЗ);     Запрос.УстановитьПараметр("Подобие", Подобие);     Результат = Запрос.Выполнить;     Если Результат.Пустой Тогда         ТолькоЦифры = Ложь;     КонецЕсли;          Сообщить(ТолькоЦифры);

Вот такой вариант. Для ускорения лучше "Цифры = "0123456789";" вынести из функции

а 8?

не нравится - используй Число("0" + СокрЛП). просто там вообще все, что угодно может оказаться. защиту от дурака еще никто не отменял.

+ ну и надо тестировать на реальных данных. Допустим в если нечисло будет в начале строки, то будет быстрее

если в добавить сравнение с округленным результатом, имхо, будет самый быстрый код из стандартных 1С-овых

По сути - не прав. "Присутствие только цифр" <> "Отсутствие не-цифр" как раз из-за пустой строки.

А есть уверенность, что Найти("0123456789",Символ) будет работать быстрее, чем (Код>=48)И(Код<=57) ?

+ В восьмёрке же КодСимв(Строка,Позиция) позволяет не получать символ из строки, а сразу получить его код.

Проверил. результат примерно одинаковый. на 1000000 расхождения +- 10 %

Видимо, в 1С сравнение чисел выполняется в несколько этапов - сначала сравнение типов, а потом только сравнение данных.

Попытка Ответ = НЕ (Найти(СтрокаДляПроверки, ".")          ИЛИ Найти(СтрокаДляПроверки, ",")          ИЛИ "1" + СтрокаДляПроверки <> Формат(Число("1" + СтрокаДляПроверки), "ЧГ=")); Исключение Ответ = Ложь; КонецПопытки;

ВЫБРАТЬ     ВЫБОР         КОГДА &СН ПОДОБНО "%[^0-9]%"             ТОГДА ЛОЖЬ         ИНАЧЕ ИСТИНА     КОНЕЦ КАК ВСтрокеТолькоЦифры

различное поведение в части пустой строки, но в принципе неплохо

Подпишусь, позже почитаю.

да вроде такое же, если СН = "" будет Истина

согласен, протупил