Подскажите, пожалуйста. мне нужно что бы пользователь ввел ряд чисел от 1 до 30(допустим), и при каждом нажатии кнопки удалялось каждое 3е число. как сделать, ума не приложу. помогите пожалуйста!

(26) Если удалять в первом цикле, то порядок цифр изменится же и мы удалим не то. Не?

ТС! Сам поспорил, сам алгоритм и пиши :-)
А мы ответили, что такое на 1С можно сделать.

(28) в 1с я сперва сам начал делать через оработку, там создал реквизит(строка) и пытался сделать. ничего не вышло

Не смог ввести числа от 1 до 30 ?

Коллеги, зрите в корень,
Друг = злой препод, который не проставляет зачет

(35) не смог сделать, что бы программа удаляла их, и удаленные сразу удаляла в строке

(36) я уже 3 года работаю электриком, 1с хобби)
и сессия в июле не идет)

(37) Значит вы проиграли спор :-)

Сч = ТабличнаяЧасть1.Количество();
    Пока Сч > 0 цикл
        Если Цел(Сч / 3) = Сч/3 тогда
            ТабличнаяЧасть1.Удалить(Сч-1);
        КонецЕсли;
        Сч = Сч - 1;
    КонецЦикла;

В типовой ERP точно должно быть.
Или писать ВК.

(41) рулетка при закрытии месяца?

в ERP точно такая функция есть, сам видел

ОбщегоНазначения.УдалитьКаждыйТретийЭлемент(Строка);

(43) ОбщегоНазначенияКлиентСерверПереопределяемый.УдалитьКаждыйТретийЭлемент(Строка);

(40) легче сч%3=0

причем тянется она - с самых первых дней 1С. Сам БГ однажды пророчески сказал: "Настанет день и придет человек, называемый Константин, и понадобится ему такая функция, чтоб перед другом не оплошать". И вот. Как в воду глядел.

(46) Точно! Сейчас глянул - там код ещё шестёрочный.

(40) это таблица. а мне строку надо...

(40) ну и запусти посмотри, при первом удалении будет сдвиг строк, и дальше удалять будет неправильно. Поэтому надо массив строк для удаления копить.

(49) с конца ж удаляет-то, как сдвиг повлияет на то, что к началу ближе?

(50) Согласен, ступил

Жаль только в ERP есть.

(48) РазложитьСтрокуВМассивПодстрок() и работай в свое удовольствие

(53) Старье ведь :-) Надо СтрРазделить()

а слабо на 1с сделать игру футбол? вот я понимаю спор, а тут...

(48) ну разложи строку в таблицу, делов то, хоть кубиком хоть пирамидкой ее уложи, как тебе надо

"ВЫБРАТЬ
|    ТЗ.ЧСЛ КАК ЧСЛ,
|    АВТОНОМЕРЗАПИСИ() КАК Поле1
|ПОМЕСТИТЬ ТТ
|ИЗ
|    &ТЗ КАК ТЗ
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
|    ТТ.ЧСЛ КАК ЧСЛ
|ИЗ
|    ТТ КАК ТТ
|ГДЕ
|    (ВЫРАЗИТЬ(ТТ.Поле1 / 3 КАК ЧИСЛО(10, 0))) = ТТ.Поле1 / 3"

(48) либо драконь строку напрямую, методика та же, только в глазах рябить будет

(57) что еще за АВТОНОМЕРЗАПИСИ()  ?
Это не 1С.

(54) как ее разделить?

(59) 1с. только что сделал в конструкторе запросов

(59) 8.3.13

(57) если данные из ТЗ тащить, там номер строки изначально есть

Функция ЫшелПышелНахерВышел(Строка,НомерУдаления)
    СтрокаЧисел=СтрЗаменить(СтрокаЧисел," ",Символы.ПС);
    ТДД = Новый ТекстовыйДокумент;
    ТДД.УстановитьТекст(СтрокаЧисел);
    Для Сч =-ТДД.КоличествоСтрок()  По 1 Цикл
        Если -Сч%НомерУдаления=0 Тогда
            ТДД.УдалитьСтроку(-Сч);
        КонецЕсли;
    КонецЦикла;
    СтрокаЧисел= ТДД.получитьТекст();
    СтрокаЧисел=СтрЗаменить(СтрокаЧисел,Символы.ПС," ");
    Возврат СтрокаЧисел;
КонецФункции

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

КоличествоЗпт = 0; Результат = "";
Для Х = 1 По СтрДлина(ИсходнаяСтрока) Цикл
    ТекСимвол = Сред(ИсходнаяСтрока, Х, 1);
    КоличествоЗпт = КоличествоЗпт + ?(ТекСимвол = ",", 1, 0);
    Если КоличествоЗпт % 3 <> 2 Тогда
        Результат = Результат + Символ;
    КонецЕсли;     
КонецЦикла;

народ, да напишите ему уже обработку)

(65) да) Пожалуйста...

Сегодня же вроде не пятница?

(67) вторник

Неправильный студент... Задачей пятницы озадачился уже во вторник...

(69) завтра зачет)) (Шутка)

строка = "1921о2392-02=";
счет= 0;
индекссимвола = 0;
для и = по строка.количествосимволов() цикл
индекссимвола++;
счет++;
Если счет = 3 Тогда
строка.Удалить(индекссимвола);
счет = 0;
КонецЦикла;
КонецЕсли;

идите в .опу

(71) "СТрока = " что за символы после =?

(73) это не кириллические и не латинские символы, тебе не понять уже

Мельчает народ. Раньше забивались, что 1с в шахматы не хуже 2 разряда будет играть, а тут пару чисел из строки не знают как написать. ;(

(74) чт оже вы с таким упреком...

(75) я ж говорю, что надо футбол на 1с запрограммировать, вот это спор, а шахматы я и на калькуляторе сделаю

(77) не работает. ошибки выдает при запуске в отладке

(77) {Обработка.ЧислаВРяду.Форма.Форма.Форма(21,5)}: Ожидается имя переменной
для <<?>>и = по строка.количествосимволов() цикл  (Проверка: Сервер)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(23,5)}: Неопознанный оператор
счет<<?>>++;  (Проверка: Сервер)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(27,1)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
<<?>>КонецЦикла;  (Проверка: Сервер)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(28,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецЕсли; (Проверка: Сервер)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(21,5)}: Ожидается имя переменной
для <<?>>и = по строка.количествосимволов() цикл  (Проверка: Тонкий клиент)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(23,5)}: Неопознанный оператор
счет<<?>>++;  (Проверка: Тонкий клиент)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(27,1)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
<<?>>КонецЦикла;  (Проверка: Тонкий клиент)
{Обработка.ЧислаВРяду.Форма.Форма.Форма(28,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецЕсли; (Проверка: Тонкий клиент)

(78) ещё б оно работало xD

(79) пройди до 10 урока на javarush, до 10 уровня бесплатно, а с 1с завязывай, плохое это хобби

бесполезое

(81) ты не поможешь?

Процедура Сформировать()
    СчетчикЦикла = 0;
    СтрокаНеНаформе = "";
    Для А = 1 По СтрДлина(СтрокаНаФорме) Цикл
        СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
        СтрокаНаФорме = Сред(СтрокаНаФорме,4);
    КонецЦикла;
    СтрокаНаФорме = СтрокаНеНаформе;
КонецПроцедуры

По факту всегда останется первые 2 символа :)
ПыСы код выше клюшек

(85) Спасибо. Вот только пишет, что переменная не определена...

(81) а на сколько вы поспорили?

(87) ой, (83)

(84) В задании просят удалить числа, не просят их сдвигать.

1 2 3 4 5 6 7 8 9
1 2   4 5   7 8
1 2     5   7
1 2         7

(89) совершенно верно!!!

(89) Да не сдвигайте, лепите туда пробел :)

(91) не работает у меня в общем...(((

(91) Числа до 30, иногда придется лепить два пробела

блин, ну вот реально, половина форума знает, что сделать можно, просто не дает рабочий код, потому что задача - шлак. вопрос, на сколько денег спор? готов дать код за 5$, если работать не будет, сделаю кэшбэк

(92) Я же сказал, что это код для 7.7

(94) с чего вы взяли, что спор на деньги? мы спорили на то что, кто проиграет побежит 10км.

(96) и в чем выгода победителя? я каждый день по 10 км бегаю, при этом ни с кем не спорю

(96) ну вот...тогда вопрос другой, сколько ты готов заплатить, чтобы не бежать 10 км?))))

(89) Читаем задание
"и при каждом нажатии кнопки удалялось каждое 3е число"
в моем пониманиее удалить, это удалить

в общем, коллективным голосованием думаю надо решить, что бы оба спорщика бежали по 100 км. и факт пробежки выложили на youtube. я за. Здесь голосуем или на change петицию будем писать?

(98) я изначально хотел выйграть этот спор, и побежать с ним

(101) Это делается не так: программа там - беги, проверяй

Хоть сдвигай, хоть не сдвигай - всё равно получишь х... не подходит, короче - два числа останутся, первых два числа.

(103) это если много раз нажать.
а если один раз, то будет больше 2-х чисел..

(104) на самом деле можно запилить универсальную удалялку каждого третьего числа..
Добавить вторую кнопку которая бы добавляла случайное число в каждое удаленное третье число.
И с этой обработкой потом на собеседование.

(101) Да нету спора. Хватит уже тут всех за идиотов считать. Не дадут тебе готового решения. Точнее его дадут, но не готовое, а с ошибками. Ошибки будут сделаны специально что б понять что ты ничего не умеешь в 1С. Причем ошибки будут примитивные, но ты их исправит не сможешь, т.к. ты вообще в 1С ничего не смыслишь.

(101) Врут только глупые люди (с).

(106) не в 1с, а в программировании ниче не смыслит он, ибо он электрик

1С ТУТ НИ ПРИ ЧЕМ

(108) Согласен.

(110) у меня отец старший электромеханик а мама программист, оба уже на пенсии, мама думаю голову поломает, но решит, а папа почти сразу ответ даст

(108) Программист-электрик? Коллекция пополняется?
Интересно кто следующий?

(112) Ой да ладно. Я тоже программист-электромеханик. :-) Только второе образование как-то связано с информатикой.

(12) Жаль тебя огорчать, но твой друг выиграл спор. В 1С такого нельзя сделать.

После первого нажатия удалится только одно число - 3-е.
Дальше сколько ни нажимай, ничего не изменится, потому что удалять нечего, 3-го числа больше нет.

(84) твой код рабочий строго если строка "123456789"

для двухзначных числе твой алгоритм не подойдет.

Спасибо. Помогли... не знаю как благодарить.

(118) просто не надо обманывать друзей, оно того не стоит...
не можешь сам, даже с подсказками, беги 10 км...

Функция УдалитьКаждыйNэлемент(Строка, разделитель, n)

МассивЭлементов = стрРазделить(Строка, разделитель);

Для каждого индекс = 0 по массивЭлементов.Количество()-1 цикл
Если Индекс%n = 0 тогда
Продолжить;
Конецесли;

Строка = Строка+Разделитель+МассивЭлементов[индекс];

Конеццикла
Возврат строка;
Конецфункции

Я думаю как то так должно работать.Но с тебя 10км

(120) ага...тока ему еще надо реквизит на форме и команду, да еще и вызов твоей функции определить...в общем, готовую обработку...
так что не в коня корм...

(120) ууу, ну это же надо целый мануал в интернете найти!

(116) С какого перепугу?
он рабочий для лубой строки, хоть для"рсмдшывкрдывгаритдлывагритдыыварпдлыюваортиыд"
но результат всегда будет
"рс"
другое дело если в задании проходить с начало - слева на право строку, потом с право налево

(123) Я сегодня заморочился исходя из твоего кода и что цифры в строке будут строго вот так расположены "123456789101112131415161718192021222324252627282930" допилил обход циклов, лев 2 и сред 4 не сработает на двухзначных цифрах, можешь проверить просто при первом проходе твоего кода  1 2 4 5 7 8 10 12 а это уже не правильно

12 должна была исчезнуть так как он взял лев 2  10 и отрезал 4 символа 1011 и начал с 12, дальше думаю ты понимаешь что вся последовательность нарушена будет.

ТС если в падлу бежать скину код)

(125) В таком случае - если число, а не сивол, как таковой, должен быть отделено каким то разделителем, а если его нет, как понять что 12 один и два, а не 12-двенадцать?

Перем Один;
Перем Два;
Перем Три;
Перем Четыре;
Перем ВсеПоследние;

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    СчетчикЦикла = 0;
    СтрокаНеНаформе = "";
    Для А = 1 По СтрДлина(СтрокаНаФорме) Цикл
        Если Один Тогда
            Если А = 4 ИЛИ А = 6 ИЛИ А = 8 ИЛИ А = 10 ИЛИ А = 12 ИЛИ А = 14 ИЛИ А = 16 ИЛИ А = 18 ИЛИ А = 20  Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,3);
            ИначеЕсли А = 5 ИЛИ А = 7 ИЛИ А = 9 ИЛИ А = 11 ИЛИ А = 13 ИЛИ А = 15 ИЛИ А = 17 ИЛИ А = 19  Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,5);
            Иначе
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,4);
            КонецЕсли;
        ИначеЕсли Два тогда
            Если А = 3 ИЛИ А = 5 ИЛИ А = 7 ИЛИ А = 9 ИЛИ А = 11 ИЛИ А = 13 ИЛИ А = 15 ИЛИ А = 17 ИЛИ А = 19  Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,3);
            ИначеЕсли А = 4 ИЛИ А = 6 ИЛИ А = 8 ИЛИ А = 10 ИЛИ А = 12 ИЛИ А = 14 ИЛИ А = 16 ИЛИ А = 18 ИЛИ А = 20  Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,5);
            Иначе
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,4);
            КонецЕсли;
        ИначеЕсли Три Тогда
            Если А = 2 Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,3);
                СтрокаНаФорме = Сред(СтрокаНаФорме,6);
            ИначеЕсли  А >= 3  Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,4);
                СтрокаНаФорме = Сред(СтрокаНаФорме,7);
            Иначе
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,4);
            КонецЕсли;
        ИначеЕсли Четыре Тогда
            Если А >= 2 Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,4);
                СтрокаНаФорме = Сред(СтрокаНаФорме,7);
            Иначе
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,4);
            КонецЕсли;            
        ИначеЕсли ВсеПоследние Тогда
            Если А >= 2 Тогда
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,4);
                СтрокаНаФорме = Сред(СтрокаНаФорме,7);
            Иначе
                СтрокаНеНаформе = СтрокаНеНаформе + Лев(СтрокаНаФорме,2);
                СтрокаНаФорме = Сред(СтрокаНаФорме,5);
            КонецЕсли;            
        КонецЕсли;
    КонецЦикла;
    
    Если Один Тогда
        Один = Ложь;
        Два = Истина;
    ИначеЕсли Два Тогда
        Два = Ложь;
        Три = Истина;
    ИначеЕсли Два Тогда
        Два = Ложь;
        Три = Истина;
    ИначеЕсли Три Тогда
        Три = Ложь;
        Четыре = Истина;
    ИначеЕсли Четыре Тогда
        Четыре = Ложь;
        ВсеПоследние = Истина;
    КонецЕсли;    
    
    СтрокаНаФорме = СтрокаНеНаформе;
    
КонецПроцедуры

Процедура ПриОткрытии()
    
    СтрокаНаФорме = "123456789101112131415161718192021222324252627282930";
    
КонецПроцедуры

Один = Истина;
Два = Ложь;
Три = Ложь;
Четыре = Ложь;
ВсеПоследние = Ложь;;

(127) Вставь код в обработку на 8 и получишь результат

По другому сделать вариков нет.

Один Два Три Четыре ВсеПоследние это нажатие кнопки выполнить