Удаление дублей в таблице значений (у кого есть наработки ?) #266591

Пытаюсь удалить дублирующие строки в ТЗ (у меня дублирующая строка в данных идет следующей после нужной) : Если Билет1=Билет2 Тогда ТЗ.УдалитьСтроку; Если ТЗ.НомерСтроки <> 0 Тогда z=z+1; Перейти ~начало; Не все нужные строки остаются. Может есть другое решение ?

когда мне надо удалить дублерин из ТЗ, я обычно ее тупо сворачиваю и не трачу время на изобретение велосипедов

+1

свернуть не пробывал ?

Сворачивать ТЗ нельзя: 23 поля, пропадет соответствие "Дата вылета-Номер кассы-Пункт Посадки-....-и.т.д"

Сворачивай по всем колонкам :)

это как это пропадет ?

Делай цикл Для по номеру строк с конца таблицы через ПолучитьСтрокуПоНомеру, а не через ПолучитьСтроку. Удаляй тоже по номеру.

2 А при удалении строк оно не пропадает?

+ Хотя Пока будет лучше.

Твоя темя была про удаление строк в документе вчера? Поищи ее - там написал на полстраница текста... для кого интересно?

To <Епрст3>: Как ты себе представляешь, когда сверну все поля ? В поле "Цена Авиабилета" почти через строку идут одинаковые цены: 9600 3400 9600 Не, говорю же, сворачивать нельзя ...

кстати, автор, только дятлы для удаления больше, чем одной строки из ТЗ, запускают цикл в прямом направлении, тогда как нормальный программыст идет по строкам в обратном порядке...

По какому признаку ты тогда удалять собираешься ????

хринеть

а за использование goto ваще карать надо...

To <КонецЦикла> : Читал внимательно все твое, но тем методом часть нужных строк удаляет. Поэтому поднял Новую Тему - может что-то есть проще ?

Так тебе уже все разжевали ...

В общем в поиск... задрали дятлы

Какую часть? Может там и ошибка, думай Заполнить надо колонку "Удалить" единицей везде где надо, потом выгрузить нужный блок... если ТЗ большая - работает особенно эффективно

Если поле TICKETNUMB первой строки =  полю TICKETNUMB второй строки, вторую строку мне надо УДАЛИТЬ

ДатаВылета|НомерКассы|ПунктПосадки|Сумма 01.01.2007    1          Лондон     200   10.01.2007    1          Америка    200   11.01.2007    1          Васюки     200   01.01.2007    1          Лондон     999   01.01.2007    1          Лондон     200   01.01.2007    1          Лондон     200 ТЗ.Свернуть("ДатаВылета,НомерКассы,ПунктПосадки,Сумма","");   01.01.2007    1          Лондон     200   10.01.2007    1          Америка    200   11.01.2007    1          Васюки     200   01.01.2007    1          Лондон     999

а если между ними есть строка с другим TICKETNUMB?

:)))

Спасибо большое ВСЕМ участвующим ! Просто стаж мой в 1С - 2 месяца, а уже за транс-атлантические перелеты взялся :))

ладно хоть с билетов, а не с самолетов взялся

"если между ними есть строка с другим TICKETNUMB?" МЕжду 2-мя дублями нет строк - это две соседние строки !

скажи название авиакомпании, чтобы в случае чего в нее не обратиться?

Самолеты кстати я вожу что-надо !

Авиакомпания "В ПОСЛЕДНИЙ ПУТЬ"

снова +1

Ну так начем отсановимся, В СМЫСЛЕ ДУБЛЕЙ ? Как лучше-то ?

Чем тебе не катит ? ..

В смысле, свернуть сразу все поля ??

Догадливый :)

Ну да, это же и есть дубли ... или тебе нужно удалить по какому то признаку, например, при равенстве значений в одной/нескольких колонке ?

кстати, проблему можно решить не только, удалив ненужные записи, а еще и - перекидав НУЖНЫЕ записи в другую ТЗ. Это будет работать быстрее, если ненужных записей больше, чем нужных

есть еще одно "кстати" - успешно работает такая конструкция:

МНЕ НУЖНО УДАЛИТЬ СЛЕДУЮЩУЮ СТРОКУ, ЕСЛИ ЗНАЧЕНИЕ В ПОЛЕ TICKETNUMB У СЛЕДУЮЩЕЙ СТРОКИ ТО ЖЕ, ЧТО И У ПРЕДЫДУЩЕЙ

СВЕРНИ

Не надо так нервничать ...

НЕ, БОЛЬШИЕ БУКВЫ - ЭТО ЧТОБ ПОНЯТНЕЕ ЗАМЫСЕЛ ...

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

не кричи - соседей разбудишь...

алгоритм заполнения таблицы - получаю данные из *.xls

ну, братец! Вот тут и надо было думать. При помощи ADODBConnection из листика Excel можно вынуть данные SQL запросом. Со всеми вытекающими. Среди всех вытекающих есть такое предложение, как DISTINCT, GROUP BY и еще много разных других

Епрст3, твой код щас вставил - по-моему - как в аптеке !

Мдя... нехватило терпения запустить что вчера писалось? :0

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

Вот дятлы.. Одно действие - Свернуть. Тут уже правда было - но зачем лишнего вагон делать?

To <vpetrov> и другим, в чьем лексиконе либимое слово "Дятел": чем глупее человек, тем более он неприязнен к начинающим. Куда выложить подлинник файла EXCEL, чтобы раз и навсегда заткнуть желающих ТЗ.Свернуть;  ?? Посмотрите содержимое *.xls - и охладитесь ...

0023    01.08.2006    МОВ    СТВ    МИ    1227    02.08.2006    Б    3484201160909    Б    РУБ    7300,00000    ПРОНИНА ЕКАТЕРИНА Г-Н    П    ПС  4507555442    1020,00000    0,00000    8320,00000    Б    Б    ССОД СОФИ 0012    01.08.2006    МОВ    МРВ    МИ    1235    01.08.2006    Э    3484201013189    ЛЬА    РУБ    3200,00000    ОСАДЧИЙ СЕРГЕЙ 25ИЮН64 Г    П    ПСП 513366073    1020,00000    0,00000    4220,00000    Э    Л    ССОД СОФИ 0023    01.08.2006    МОВ    СТВ    МИ    1227    01.08.2006    Э    3484201160906    КЬА    РУБ    4900,00000    ТКАЧЕНКО ЛИЛИЯ Г-Н    П    ПС  0000000000    1020,00000    0,00000    5920,00000    Э    Е    ССОД СОФИ

Не помещается на листе ...