Как в таблице значений найти записи с одинаковыми колонками? Есть таблица значений из 11 колонок, из них две РасчетныйСчет и КодБанка. Надо оставить строки с повторяющимися значениями колонок РасчетныйСчет и КодБанка, те оставить строки с неуникальными значениями этих колонок. Подскажите какие нибудь идеи к алгоритму.

Самая простая идея: Свернуть()...

+ (1) На всякий случай Свернуть, Свернуть, Свернуть...

Перед КонецЦикла запоминаешь значение.
После начала цикла сравниваешь новое значение с запомненным. Если равно - дубль

(3) Афигеть...

(3) + ест-но перед циклом сортировка по искомому полю

(3) по двум искомым полям? )

+ (4) А первое значение с чем сравнивать с "пустышкой" ?

(4) Афигевай

(0) Может проще на этапе формирования?
Для к=1 по ТЗ.КоличествоСтрок Цикл
ТЗ.ПолучитьСтроку(к);
Если ТЗ.РасчетныйСчет<>ТЗ.КодБанка Тогда
ТЗ.УдалитьСтроку(к)
КонецЕсли;
КонецЦикла;

(9) Ты этт счас придумал
(8) А Свернуть нафиха тогда есть?

уж сотка ближется, а автора все нет...

(6) - по двум полям - два прогона ТЗ.
(10) И что ты узнаешь в результате сворачивания ? Разве что в доп.поле единицу прописать перед сворачиванием в каждую строку. Потом проверять на Если >=2

Я подожду (цы)

Метод удаления строк из конкурса с проклаба (не помню кто автор):


       Перем ТЗ_СЛУЖ;
       тз = СоздатьОбъект("ТаблицаЗначений");
       //тз - исходная табличка значений
       //Заполнение тз:
        ..................
       // Удалим не дубли
     КонСтрока=Мин(тз.НоваяКолонка("СЛУЖ_КОЛ"), 0);
   тз.ВыбратьСтроки();
   Пока тз.ПолучитьСтроку()=1 Цикл
      Если ТЗ.РасчетныйСчет=ТЗ.КодБанка     Тогда
       КонСтрока=КонСтрока+1;
       тз.СЛУЖ_КОЛ=1;
      КонецЕсли;
   КонецЦикла;                      
   Если (КонСтрока=0) ИЛИ (КонСтрока=тз.КоличествоСтрок()) Тогда
       тз.КоличествоСтрок(КонСтрока);
       тз.УдалитьКолонку("СЛУЖ_КОЛ");
   Иначе
       тз.Сортировать("-СЛУЖ_КОЛ");
       тз.УдалитьКолонку("СЛУЖ_КОЛ");
       тз.Выгрузить(ТЗ_СЛУЖ,,КонСтрока);
       тз=ТЗ_СЛУЖ;
   КонецЕсли;

(11) Тута я. Читаю и думаю что применять...

(10) Ваш код в студию
ТЗ.Свернуть(1,2,3,4,5,6,7,8,9,10,11) Вы так предлагаете?

(12)
Вы не знаете кто такой Паниковский?
Нет, Вы не знаете кто такой Паниковский...
Тогда поезжайте в Киев и спросите.
Спросите...
Нет, Вы поезжайте и спросите... (с)

(15) Ну а если что б оставить только уникальные - то см.(9) тока, как говорится сзаду надо это делать. Ну и два прогона - по любому.

(16) Не пристало мне код тута писать на такой "тривиал" :)


тз=СоздатьОбъект("ТаблицаЗначений");
тз.НоваяКолонка("РассчетныйСчет");
тз.НоваяКолонка("КодБанка");
тз.НоваяКолонка("Количество");


//Заполняем единицами Количество

тз.Заполнить(1,,,"Количество");

...

тз.Свернуть("РассчетныйСчет,КодБанка","Количество");


Теперь в графе количество будет 2 и более если задвоены строки.

(18) По любому ?

(22) По любому - для простоты. Из принципа - ест-но и гланды можно снизу выдрать

:-)
Пусть скажет аффтар в (0)

согласна с (19)

(25) В чем согласна?

(24) Вот (20) точно можно использовать, в (14) еще не врубилась

(27) Да, только не забудь, что нужно узнать не сам факт существования строк, а еще ведь и удалить их :)

(26) в том что "Не пристало мне код тута писать на такой "тривиал"

(27) так все в другую таблицу и там удалить строки у которых Количество>1

(28) Смотри (30)

(30) Их там еще нужно найти... а однозначно это сделать не получится
Короче перебирай строки таблицы и попутно найденные значения заноси в список, например
Если нет в списке - добавить, если есть - удалить тек. строку
Проще, конечно, при формировании ТЗ это сделать
Долго, но верно

ЗЫ. имхо

(28) Два вложенных цикла. По свернутой таблице и по искомой.
Не забывать делать ВыбратьСтроки(); после каждого удаления строки.
Тупой надежный алгоритм. Но при больших таблицах может выполняться долго.

(32) Однозначно получиться - пронумеровать строки то я могу (Добавить еще одну колонку в ТаблицуЗначений). Но мой метод через две таблицы
(33) Вот так и попробую сделать. спасибо

Уж тогда уж Сортировать()... и далее...

Всеж непонял, а чем Свернуть неглянется ?
Поясните для тупых и алкоголиков...(правдо)
Млж чего и посоветую, и вопряки (19) код койнибудь напишу...

(33) Мдя... зачем два, когда можно ОДНИМ?
(34) Угумс... пронумеровать и благополучно свернуть :)

(0) А в колонках значения повторяются?

Мулька в (3)+(5) самую правильную наводку дал ...
А всё остальное, что здесь сказали - чушь собачья!

(39) эт точно :)

+(3) + (5) + (39) Свертка ни при чем.
Можно такой алгоритм.

1. Таб2 с колонками "ОбщийСчет","Ссылка"
2. Данные из ТЗ в Таб2 построчно:

    Таб2.ОбщийСчет=ТЗ.РасчетныйСчет;
    Таб2.Ссылка=ТЗ.НомерСтроки;

3. Данные из ТЗ в Таб2 повторно:

    Таб2.ОбщийСчет=ТЗ.КодБанка;
    Таб2.Ссылка=ТЗ.НомерСтроки;

4. Сортировка

    Таб2.Сортировать("ОбщийСчет");

5. Удаление строк из Таб2 для которых "ОбщийСчет" не повторяется.

6. Сортировка Таб2 по "Ссылка" - итог: номера строк в ТЗ, которые надо оставить.

(39) А это полная лажо ?
Процедура Сформировать()
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("КодБанка");
   ТЗ.НоваяКолонка("РасчетныйСчет");
   ТЗ.НоваяКолонка("названиеБанка");
   ТЗ.НоваяКолонка("Остаток");
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 1;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "Пупкинский";
   ТЗ.Остаток = 256;
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 1;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "ЗаПупкинский";
   ТЗ.Остаток = 256;
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 2;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "ОччПупкинский";
   ТЗ.Остаток = 253;
   ТЗ.Свернуть("КодБанка,РасчетныйСчет","НазваниеБанка,Остаток");
   ТЗ.ВыбратьСтроку();
КонецПроцедуры

(42) Не буянь, лажевинько...

(43) Но ведь (0) решает, кто не верит (не о тебе) может проверить...(дублито сказано тока по 2 колонкам зырить, знчит значения остальных пох какое выйдет, хотя могу кинуть чтоб и все значения было видно, при чем будет "приляпано" к тем двум калонкам)

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

(44)Так вот и надо, получается, эти дубляные строки совсем не трогать... Я сам (0) по диагонали прочитал... Криво здесь Свёртывать()...
Из принципа можно и её прикрутить, но это будет "пятая нога"...

(45) Так к чему не преобразовывай, а данные из других колонок потеряешь...

(46)(47) Тогда решения для (0) нету кроме (44) в скобочках после второй запятой...

(44) не решает.

+(48) "...после первой запятой"

(49) Почитай (0) сказано по двум колонкам? - сказано, тогда остальные как уж получатся, суммы будут верны, а строки/субконтывсякие будут по первой, хотя в (44) в скобочках есть вариант чтоб и все другие колонки остались целы....

+(51) а вот как сделать чтоб было по 2 колонкам, но остальные видны - думайте, я "в танке", нескажу...

(51) смотря что ты будешь делать после (42) Но в любом случае, свертка по 2 полям лишняя.

(53) Ты пробовал ? все что в (0) описано сделано, остальное в (44) и (52)...

КодБанка РасчетныйСчет
2        4
4        2

После свертки останется в первозданном виде.

(55) Да ну на... ты в точности повторил ?
КодБанка РасчетныйСчет НазваниеБанка        Остаток
1        2                Пупкинский        512
2        2                ОччПупкинский2    253

Или такая лажо
Процедура Сформировать()
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("КодБанка");
   ТЗ.НоваяКолонка("РасчетныйСчет");
   ТЗ.НоваяКолонка("названиеБанка");
   ТЗ.НоваяКолонка("Остаток");
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 1;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "Пупкинский";
   ТЗ.Остаток = 256;
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 2;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "ОччПупкинский";
   ТЗ.Остаток = 253;
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 1;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "ЗаПупкинский";
   ТЗ.Остаток = 256;
   ТЗ.НоваяСтрока();
   ТЗ.КодБанка = 2;
   ТЗ.РасчетныйСчет = 2;
   ТЗ.названиеБанка = "ччПупкинский";
   ТЗ.Остаток = 253;
   ТЗ.Свернуть("КодБанка,РасчетныйСчет","НазваниеБанка,Остаток");
   ТЗ.ВыбратьСтроку();
КонецПроцедуры

(57) крылья крылья... Хвост! на.. тебе свертка? Сортировка + прогон для повторов которые идут подряд! Сначала для "КодБанка" потом для "Расчетного счета". Как и говорил Мулька.

(58) А на сортировать и прогонять если и так все решается, если конечно условия сложнее тогда мож и сортировать...