Дана строка, найти наибольшее количество цифр, идущих в ней подряд

@wade-2008 · Регистрация: 27.12.2014

Author24 — интернет-сервис помощи студентам

Не могу решить простую задачку на 1c:
Дана строка, найти найбольше количество цифр, идущих в нем пдряд

@latviano · 27.12.2014, 14:18

Бежим по всей строке (Сред()/СтрДлина()), проверяем число ли наш символ(по хардкору Попытка/Число()), если число увеличиваем наш счётчик, если не число, счетчик/начало/конец скидываем в таблицу.
Потом пробегаемся по таблице и ищим максимум.

@wade-2008 · 27.12.2014, 15:53 **[ТС]**

можно по подробней, не совсем все понятно.

@latviano · 27.12.2014, 21:19

В чём именно проблема?

@wade-2008 · 28.12.2014, 00:09 **[ТС]**

Сообщение от latviano

число ли наш символ(по хардкору Попытка/Число())

это что имелось ввиду? и

Сообщение от latviano

счетчик/начало/конец скидываем в таблицу.

это тоже не особо понятно

@Dethmontt · 28.12.2014, 01:33

Функция которая вернет максимальное число из строки

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Функция ПолучитьМаксимальноеЧислоИзСтроки(Строка)
    
    этоЧисло = Ложь;
    Числа = "0123456789";
    СЗ = Новый СписокЗначений;
    ЭлементСз = "";
    Для сч=1 По СтрДлина(Строка) Цикл
        Сим = Сред(Строка, сч,1);
        Если Найти(Числа, Сим) > 0 Тогда
            ЭлементСз = ЭлементСз + Сим;
            этоЧисло = Истина;
        Иначе
            этоЧисло = Ложь;
        КонецЕсли;
        Если Не этоЧисло и НЕ ПустаяСтрока(ЭлементСз) Тогда
            СЗ.Добавить(Число(ЭлементСз));
            ЭлементСз = "";
        КонецЕсли; 
    КонецЦикла;
    
    Если Сз.Количество() > 0 Тогда
        Сз.СортироватьПоЗначению(НаправлениеСортировки.Убыв);
        Возврат СЗ[0].Значение;
    Иначе
        Возврат "";
    КонецЕсли; 
    
КонецФункции

Пример вызова

1C
1
2
3
4
5
Процедура ПолучитьМаксимальноеЧисло(Команда)
    
    Сообщить("Максимальное число в строке = "+ПолучитьМаксимальноеЧислоИзСтроки("текст текст 456 текст345 44 текст 666 текст 12 4 текст 5 текст 777 текст"));  
    
КонецПроцедуры

@wwall · 05.01.2015, 03:10

Сообщение от Dethmontt

Найти(Числа, Сим)

медленно. быстро так
Если "0" >= сим и сим <="9" тогда

1С и так не умеет толком со строками работать. Так еще напрягать ее лишний раз

@duk337 · 08.01.2015, 12:13

магистры всё перепутали: не максимальное значение числового символа, а максимальное количество числовых символов подряд.

Не по теме:

Масса смешных алгоритмов для парсера, например, заменить все буквы на Символы.ПС, далее по вкусу :D

@Dethmontt · 09.01.2015, 00:32

Сообщение от duk337

магистры всё перепутали: не максимальное значение числового символа, а максимальное количество числовых символов подряд.

Точно=)))

Сообщение от Dethmontt

СЗ.Добавить(Число(ЭлементСз));

Нуно заменить на
СЗ.Добавить(ЭлементСз);

Добавлено через 1 минуту

Сообщение от wwall

1С и так не умеет толком со строками работать

Блин, с чем она работать умеет?

@duk337 · 09.01.2015, 09:42

Сообщение от Dethmontt

Блин, с чем она работать умеет?

с бухгалтерами и экономистами

.

Не по теме:

В Чехии, как недавно узнал, пошёл "Sage" (в простонародье "сажа", французское произведение). Пока единственная в мире бух.система, соизмеримая по управляемости "1с". Вот как с ней живётся прогерам - не знаю.

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@wade-2008 0 / 0 / 0 Регистрация: 27.12.2014 Сообщений: 3

	1C 8.x Дана строка, найти наибольшее количество цифр, идущих в ней подряд 27.12.2014, 12:50. Показов 4916. Ответов 9 Метки нет (Все метки) Не могу решить простую задачку на 1c: Дана строка, найти найбольше количество цифр, идущих в нем пдряд 0

@latviano 3 / 3 / 1 Регистрация: 14.12.2014 Сообщений: 20
	27.12.2014, 14:18
	Бежим по всей строке (Сред()/СтрДлина()), проверяем число ли наш символ(по хардкору Попытка/Число()), если число увеличиваем наш счётчик, если не число, счетчик/начало/конец скидываем в таблицу. Потом пробегаемся по таблице и ищим максимум. 0

@wade-2008 0 / 0 / 0 Регистрация: 27.12.2014 Сообщений: 3
	27.12.2014, 15:53 [ТС]
	можно по подробней, не совсем все понятно. 0

@latviano 3 / 3 / 1 Регистрация: 14.12.2014 Сообщений: 20
	27.12.2014, 21:19
	В чём именно проблема? 0

@wade-2008 0 / 0 / 0 Регистрация: 27.12.2014 Сообщений: 3
	28.12.2014, 00:09 [ТС]
	Сообщение от latviano число ли наш символ(по хардкору Попытка/Число()) это что имелось ввиду? и Сообщение от latviano счетчик/начало/конец скидываем в таблицу. это тоже не особо понятно 0

@wwall 213 / 206 / 15 Регистрация: 29.05.2014 Сообщений: 1,061
	05.01.2015, 03:10
	Сообщение от Dethmontt Найти(Числа, Сим) медленно. быстро так Если "0" >= сим и сим <="9" тогда 1С и так не умеет толком со строками работать. Так еще напрягать ее лишний раз 0

@duk337 2956 / 1768 / 83 Регистрация: 03.11.2011 Сообщений: 8,280
	08.01.2015, 12:13
	магистры всё перепутали: не максимальное значение числового символа, а максимальное количество числовых символов подряд. Не по теме: Масса смешных алгоритмов для парсера, например, заменить все буквы на Символы.ПС, далее по вкусу :D 0

@Dethmontt Модератор 4030 / 2975 / 591 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	09.01.2015, 00:32
	Сообщение от duk337 магистры всё перепутали: не максимальное значение числового символа, а максимальное количество числовых символов подряд. Точно=))) Сообщение от Dethmontt СЗ.Добавить(Число(ЭлементСз)); Нуно заменить на СЗ.Добавить(ЭлементСз); Добавлено через 1 минуту Сообщение от wwall 1С и так не умеет толком со строками работать Блин, с чем она работать умеет? 0

@duk337 2956 / 1768 / 83 Регистрация: 03.11.2011 Сообщений: 8,280
	09.01.2015, 09:42
	Сообщение от Dethmontt Блин, с чем она работать умеет? с бухгалтерами и экономистами . Не по теме: В Чехии, как недавно узнал, пошёл "Sage" (в простонародье "сажа", французское произведение). Пока единственная в мире бух.система, соизмеримая по управляемости "1с". Вот как с ней живётся прогерам - не знаю. 0

Опции темы