Доброе утро!
Ребята, подскажите, пожалуйста, туплю чего-то
Хочу удалить строки из таблицы значений.
Пишу:

тз.ВыбратьСтроки();
Пока тз.ПолучитьСтроку()=1 Цикл
     тз.УдалитьСтроку();
КонецЦикла;

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

Ты не поверишь.
УдалитьСтроки()

(0) ТвояТЗ.УдалитьСтроки();

Для ы = -ТвояТЗ.КоличествоСтрок() по -1 Цикл
ТвояТЗ.УдалитьСтроку(-ы);
КонецЦикла;

(1) :)

А если мне нужно написать внутри цикла условие для удаления определенных строк? И при этом условие выполняется для последовательных строк

тз.ВыбратьСтроки();
Пока тз.ПолучитьСтроку()=1 Цикл
     Если тз.Значение = 1 Тогда
         тз.УдалитьСтроку();
     КонецЕсли;
КонецЦикла;

Значение = 1 у 1, 2 и 3 -ей строки.
Таки способом удаляться 1 и 3-ья строка. А 2-ая останется.

(4) Правильно. Т.к. после удаления строки нумерация сбивается

+5 выход - в (3)

(5) Поняла, что сбивается. Спрашиваю как можно сделать?

(0)  Ну давай рассмотрим, что делает программа:

тз.ВыбратьСтроки(); - говорим программе, что нужно организовать выборку строк в ТЗ

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

тз.УдалитьСтроку();  - удалить строку из ТЗ. При этом ТЕКУЩЕЙ СТРОКОЙ СТАНОВИТСЯ  СЛЕДУЩАЯ СТРОКА!!!!

Т.е. после тз.УдалитьСтроку() текущей строкой становится следующая. А потом программаа нам еще делает ПолучитьСтроку() - т.е. еще раз "сдвигает" текущую строку.

(7) я тебе ответил "как" - в (6)

Выход: либо удалять с конца, либо контролировать текущую строку самому.

(4) Коротко так :
поз = ТЗ.КоличествоСтрок();
Пока поз > 0 Цикл
    ТЗ.ПолучитьСтрокуПоНомеру(поз);
    Если Условие Тогда
        ТЗ.УдалитьСтроку();
    КонецЕсли;
    поз = поз - 1;
КонецЦикла;

ЗЫ. Это уже конечно триразапорватыйбаян, но искать в гуголе еще дольше.

(11) Вариант :)

(7) воспользоваться поиском... тема обмусолена вдоль и поперек...

(13) Видишь-ли, ей надо сразу код, а не методику решения :)

Да, получилось! Спасибо мальчики
Удачного всем дня!

ЗЫ. ОФФ.. Полезная вещь всё-таки: либо начальные курсы программистов, либо книга-самоучитель по программированию.. там обычно много приёмчиков с хитростями и мелких примеров программирования.. Незнание которых может вызвать крупные потери времени и сил.. и здоровья :)

(16) Зачем? Есть миста, есть "мальчики", девочку все устраивает...

(17) правильнее писать "девочЕК" )))

ТЗ.НоваяКолонка("НадоУдалить","Число",1,0);
Цикл По ТЗ
  Если Условие Тогда
    ТЗ.НадоУдалить = 1;
  КонецЕсли;
КонецЦикла;

глОчисткаТЗ(ТЗ,"ПорядокСортировкиИтога");

будет на порядок быстрее

(19) Ну, тогда и глОчистку пости сюда :)

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

(4) Только через (3) или через (19)
Не делай удаление строк через "Выбрать", ТЗ теряет ссылки на последующие строчки :)

(21) Не комсомолец :)

(21) да, и 1с покупать не нужно. Без нее как-то спокойнее.

А классическое ?
ТЗ.НоваяКолонка("_Уд");
КолСтр=0;
ТЗ.ВыбратьСтроки();
Пока ТЗ.Получитьстроку()=1 Цикл
  Если УсловиеВыполняется(ТЗ.К)=1 Тогда
    ТЗ._Уд=1;
    колстр=колстр+1;
  КонецЕсли;
КонецЦикла;
ТЗ.Сортировать("-_Уд");
ТЗ.УдалитьКолонку("_Уд");
ТЗ.Выгрузить(ТЗ_СЛУЖ,1,1);
ТЗ_СЛУЖ.КоличествоСтрок(колстр);
ТЗ_СЛУЖ.Заполнить(ТЗ);
ТЗ=ТЗ_Служ;

(21) Только не в 7.7 :)
Там проще в цикле, чем через запрос

(26) нормальные запросы лучше циклов.

(27) У 7.7 нет нормальных запросов :)

(25) И что мешало удалить строки в первом цикле?
В чем профит?

(29) да удали, не вопрос :)

Ладно уж напомню в очередной раз ))

Самое быстрое и оптимальное "удаление строк" из ТЗ это создание новой ТЗ. Перенос/копирование в нее только нужных строк и возврат новой ТЗ вместо старой.

ЗЫ И да это можно делать запросом ))

(28) есть - прямые. Из-за них долго тормозился мой переход на снеговик :)

(31) Что я и показал собственно в (25). Перетирали-ж эту тему на мисте кучу раз, вроде и решили, что перенос в новую самое оптимальное

ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитЬСтроку()=1 Цикл
   если ТЗ.Чегото = ЧемутоРавно Тогда
       ТЗ.удалитьСтроку();
       ТЗ.ВыбратьСтроки();
    Конецесли;
Конеццикла;

да на больших объемах долг зато простой и понятный алгоритм
ЛЮБЛЮ ПРОСТЫЕ ВЕЩИ

(34) Если приличных размеров Тз, да такое в цикле раз несколько... Ждать мягко говоря устанешь

НУ ТУТ МОЖНО ОТВЕТИТ ПО ДРУГОМУ БОЛЬШИЕ ТЗ СКОРЕЙ ВСЕГО НЕ ПРАВИЛЬНЫЙ ПОДХОД К ДЕЛУ
А НА МАЛЕНЬКИХ ДО 500 1000 СТРОК ДАННЫЙ АЛГОРИТМ ИДЕАЛЕН

А ДЛЯ БОЛЬШИХ САМЫЙ УДОБНЫЙ ЭТО (31) КОПИРОВАНИЕ В ДРУГУЮ ТЗ

к несчастью в 7.7 нет запросов
но варианты удалиня строк в 8.хх мне не нравятся больше
слишком за мудреный алгоритм обычно

(37) размер ТЗ не причем, причем только % удаляемых строк к размеру ТЗ

(31) Докажи, что это делать можно запросов в 1С  7.7 без ВК в без 1С++ :)

(37) На больших, самый удобный это 1С++ с прямыми запросами.
С написанными функциями на языке SQL.

И в итоге получающий сразу же необходимую ТЗ на выходе.
Без доп удаления и других шаманств :)

с...уко
обсосано 384 миллиона раз.

гугл сломали.

прошу пардона у публики - нервы.

(40) Данные из запроса в новую ТЗ можно, но как засунуть данные из ТЗ в запрос?

ммм

ммм

ммм

Только с одной колонкой придумал как

(42) Ветки по геополитики нет. Спорить об способах в 8.х не интересно.
А 7-ка как велосипед, не катаемся, но помним как :)

(43)+ И нужна служебная объекта специально заполненная в базе, условием на которую (ТЗ параметр) и получаем что нуна

было жеж типа служебного дока для запросов по тз

тока всё это нафейхоа?

1цпп не устраивает?

там, вроде, всё есть

(47) в 1цпп есть все для второй жизни :)

// Алгоритм Эльниньо
тз.ВыбратьСтроки();
Пока тз.ПолучитьСтроку()=1 Цикл
    Пока тз.НадоУдалить = 1 Цикл
         тз.УдалитьСтроку();
         Если тз.НомерСтроки = 0 Тогда
             Прервать;
         КонецЕсли;
    КонецЦикла;
КонецЦикла;