поиск одинаковых строк в ТаблицеЗначений

@shiro93 · Регистрация: 09.11.2011

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

Подскажите пожалуйста как можно сравнивать строки по определенной колонке ТЗ..
Мне нужно найти одинаковые строки в ТЗ(только по определенной колонке), кто что может сказать?

@shiro93 · 14.11.2013, 18:21 **[ТС]**

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

Я так и не понял задачу. Чего с чем сравнивать и что делать по условию?

нужно найти в ТЗРешили одниковые строки, и далее при выводе на печатную форму, выводим все содержимое ТЗРешили, ну по колонкам, только из тех 2-х строк(которые одинаковы)Выводим одну, а из второй(повторяющейся) берем Ответственного и дописывааем в в ту строку

@Xomych · 14.11.2013, 18:29

СДелай скрин таблицы, что у тебя там одинаковое?
ТЗРешили.ВыбратьСтроку() перед циклом и заскринь, а то так не понятно.

@BVladimir2 · 14.11.2013, 20:49

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

а разве такая функция есть в 7 версии?!?

Прошу прощения, запрос увидел и решил что 8-ка...

@Xomych · 14.11.2013, 20:56

Вообще, если с одинаковыми значениями в строках нужно делать какие-то особые действия, то желательно осортировать таблицу по этой колонке, а потом сравнивать с предыдущим значением каждое следующее. Если значения равны, то делать особое действие, если нет, то дуть дальше

@Volexovich · 15.11.2013, 09:14

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

Кликните здесь для просмотра всего текста

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
    
    ТабЗнач.НоваяКолонка("Номер");
    ТабЗнач.НоваяКолонка("Сотрудник");
    ТабЗнач.НоваяКолонка("Должность");
    ТабЗнач.НоваяКолонка("Оклад"); 
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 1;
    ТабЗнач.Сотрудник = "Иванов Иван Иванович";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 20000;      
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 2;
    ТабЗнач.Сотрудник = "Петров";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 30000;
    
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 3;
    ТабЗнач.Сотрудник = "Сидоров";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 40000;
    
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 4;
    ТабЗнач.Сотрудник = "Иванов Иван Иванович";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 25000; 
    
    
    ТабЗнач.ВыбратьСтроки();
    Кол = ТабЗнач.КоличествоСтрок();
    Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
        
        Для Номер = 1 По Кол Цикл
            Если ТабЗнач.НомерСтроки = Номер Тогда
                Продолжить; 
            КонецЕсли;
            ЗначениеЯчейки = ТабЗнач.ПолучитьЗначение(Номер,"Сотрудник");
            Если ТабЗнач.Сотрудник = ЗначениеЯчейки Тогда
                 ТабЗнач.Оклад = ТабЗнач.ПолучитьЗначение(Номер,"Оклад");
                 ТабЗнач.УдалитьСтроку(Номер);
                 Кол = Кол -1;
            КонецЕсли;
        КонецЦикла;
        
    КонецЦикла;
    
    ТабЗнач.ВыбратьСтроки();
    Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
        Сообщить("Сотрудник: "+ТабЗнач.Сотрудник+"  Должность: "+ТабЗнач.Должность+" Оклад:  "+ТабЗнач.Оклад);
    КонецЦикла;

@shiro93 · 15.11.2013, 10:33 **[ТС]**

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

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

Кликните здесь для просмотра всего текста

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
    
    ТабЗнач.НоваяКолонка("Номер");
    ТабЗнач.НоваяКолонка("Сотрудник");
    ТабЗнач.НоваяКолонка("Должность");
    ТабЗнач.НоваяКолонка("Оклад"); 
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 1;
    ТабЗнач.Сотрудник = "Иванов Иван Иванович";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 20000;      
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 2;
    ТабЗнач.Сотрудник = "Петров";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 30000;
    
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 3;
    ТабЗнач.Сотрудник = "Сидоров";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 40000;
    
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 4;
    ТабЗнач.Сотрудник = "Иванов Иван Иванович";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 25000; 
    
    
    ТабЗнач.ВыбратьСтроки();
    Кол = ТабЗнач.КоличествоСтрок();
    Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
        
        Для Номер = 1 По Кол Цикл
            Если ТабЗнач.НомерСтроки = Номер Тогда
                Продолжить; 
            КонецЕсли;
            ЗначениеЯчейки = ТабЗнач.ПолучитьЗначение(Номер,"Сотрудник");
            Если ТабЗнач.Сотрудник = ЗначениеЯчейки Тогда
                 ТабЗнач.Оклад = ТабЗнач.ПолучитьЗначение(Номер,"Оклад");
                 ТабЗнач.УдалитьСтроку(Номер);
                 Кол = Кол -1;
            КонецЕсли;
        КонецЦикла;
        
    КонецЦикла;
    
    ТабЗнач.ВыбратьСтроки();
    Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
        Сообщить("Сотрудник: "+ТабЗнач.Сотрудник+"  Должность: "+ТабЗнач.Должность+" Оклад:  "+ТабЗнач.Оклад);
    КонецЦикла;

спасибо за усилия, но так не подходит мне не нужно чтобы удалялось строка из ТЗ, нужно чтобы она там присутствовала, просто при печати из нее только бралась информация из одной колонки и дописывалась в дублирующую её строку

@Xomych · 15.11.2013, 10:34

Volexovich, при удаление строки у тебя некорректно будет отрабатывать обход, с перескоком через строку внешний цикл будет идти. И ещё ты один оклад просто заменяешь на другой, а не прибавляешь
А вообще твоя таблица просто схлопывается методом Группировать и не нужен гимор с циклами

Добавлено через 49 секунд

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

спасибо за усилия, но так не подходит мне не нужно чтобы удалялось строка из ТЗ, нужно чтобы она там присутствовала, просто при печати из нее только бралась информация из одной колонки и дописывалась в дублирующую её строку

А мой метод не подходит?

@shiro93 · 15.11.2013, 11:05 **[ТС]**

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

Volexovich, при удаление строки у тебя некорректно будет отрабатывать обход, с перескоком через строку внешний цикл будет идти. И ещё ты один оклад просто заменяешь на другой, а не прибавляешь
А вообще твоя таблица просто схлопывается методом Группировать и не нужен гимор с циклами

Добавлено через 49 секунд

А мой метод не подходит?

сейчас буду пробывать

@Volexovich · 15.11.2013, 12:28

Xomych , да по сути это свертка таблицы, НО при свертке берется самое последнее дублирующее значение и ставится в текущее (не суммируется).

И вообще я не собирался искать решение для ТС, я просто показал способ перебора таблицы, каким именно образом править таблицу, это его дело.

@shiro93 · 19.11.2013, 13:46 **[ТС]**

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

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

Кликните здесь для просмотра всего текста

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
    
    ТабЗнач.НоваяКолонка("Номер");
    ТабЗнач.НоваяКолонка("Сотрудник");
    ТабЗнач.НоваяКолонка("Должность");
    ТабЗнач.НоваяКолонка("Оклад"); 
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 1;
    ТабЗнач.Сотрудник = "Иванов Иван Иванович";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 20000;      
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 2;
    ТабЗнач.Сотрудник = "Петров";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 30000;
    
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 3;
    ТабЗнач.Сотрудник = "Сидоров";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 40000;
    
    
    ТабЗнач.НоваяСтрока();
    ТабЗнач.Номер = 4;
    ТабЗнач.Сотрудник = "Иванов Иван Иванович";
    ТабЗнач.Должность = "Программист";
    ТабЗнач.Оклад = 25000; 
    
    
    ТабЗнач.ВыбратьСтроки();
    Кол = ТабЗнач.КоличествоСтрок();
    Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
        
        Для Номер = 1 По Кол Цикл
            Если ТабЗнач.НомерСтроки = Номер Тогда
                Продолжить; 
            КонецЕсли;
            ЗначениеЯчейки = ТабЗнач.ПолучитьЗначение(Номер,"Сотрудник");
            Если ТабЗнач.Сотрудник = ЗначениеЯчейки Тогда
                 ТабЗнач.Оклад = ТабЗнач.ПолучитьЗначение(Номер,"Оклад");
                 ТабЗнач.УдалитьСтроку(Номер);
                 Кол = Кол -1;
            КонецЕсли;
        КонецЦикла;
        
    КонецЦикла;
    
    ТабЗнач.ВыбратьСтроки();
    Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
        Сообщить("Сотрудник: "+ТабЗнач.Сотрудник+"  Должность: "+ТабЗнач.Должность+" Оклад:  "+ТабЗнач.Оклад);
    КонецЦикла;

решил использовать данный метод....вроде работает, но когда в ТЗ 3 одинаковых строки выдает ошибку
ЗначениеЯчейки = ТЗ1.ПолучитьЗначение(Номер,"ТекстРаздела ");
{Документ.ПротоколСовещания.Форма.Модуль (508)}: Номер за пределами значения!
Как можно решить эту проблему?

@Volexovich · 19.11.2013, 14:47

Здесь неудачно используется конструкция

1C
1
Для Номер = 1 По Кол Цикл

(делает фиксированное количество шагов цикла)

Использовать "условный цикл" на количество строк и номер текущей строки.

@shiro93 · 19.11.2013, 14:49 **[ТС]**

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

Здесь неудачно используется конструкция

1C
1
Для Номер = 1 По Кол Цикл

(делает фиксированное количество шагов цикла)

Использовать "условный цикл" на количество строк и номер текущей строки.

а что значит условный?

@Volexovich · 19.11.2013, 15:17

Условный это

1C
1
Пока (Условие) Цикл

Кликните здесь для просмотра всего текста

Что то типа:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
 
ТабЗнач.НоваяКолонка("Номер");
ТабЗнач.НоваяКолонка("Сотрудник");
ТабЗнач.НоваяКолонка("Должность");
ТабЗнач.НоваяКолонка("Оклад"); 
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 1;
ТабЗнач.Сотрудник = "Иванов Иван Иванович";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 20000;      
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 2;
ТабЗнач.Сотрудник = "Петров";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 30000;
 
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 3;
ТабЗнач.Сотрудник = "Сидоров";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 40000;
 
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 4;
ТабЗнач.Сотрудник = "Иванов Иван Иванович";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 25000; 
 
 
ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
    Номер = 1;
    Пока Номер <= ТабЗнач.КоличествоСтрок() Цикл
        
        Если ТабЗнач.НомерСтроки = Номер Тогда
            Номер = Номер + 1;
            Продолжить; 
        КонецЕсли;
        
        ЗначениеЯчейки = ТабЗнач.ПолучитьЗначение(Номер,"Сотрудник");
        Если ТабЗнач.Сотрудник = ЗначениеЯчейки Тогда
            ТабЗнач.Оклад = ТабЗнач.ПолучитьЗначение(Номер,"Оклад");
            ТабЗнач.УдалитьСтроку(Номер);
        Иначе
            Номер = Номер + 1;
        КонецЕсли;
    КонецЦикла;
    
КонецЦикла;
 
ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
    Сообщить("Сотрудник: "+ТабЗнач.Сотрудник+"  Должность: "+ТабЗнач.Должность+" Оклад:  "+ТабЗнач.Оклад);
КонецЦикла;

@shiro93 · 19.11.2013, 15:33 **[ТС]**

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

Условный это

1C
1
Пока (Условие) Цикл

Кликните здесь для просмотра всего текста

Что то типа:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
ТабЗнач = СоздатьОбъект("ТаблицаЗначений");
 
ТабЗнач.НоваяКолонка("Номер");
ТабЗнач.НоваяКолонка("Сотрудник");
ТабЗнач.НоваяКолонка("Должность");
ТабЗнач.НоваяКолонка("Оклад"); 
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 1;
ТабЗнач.Сотрудник = "Иванов Иван Иванович";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 20000;      
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 2;
ТабЗнач.Сотрудник = "Петров";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 30000;
 
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 3;
ТабЗнач.Сотрудник = "Сидоров";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 40000;
 
 
ТабЗнач.НоваяСтрока();
ТабЗнач.Номер = 4;
ТабЗнач.Сотрудник = "Иванов Иван Иванович";
ТабЗнач.Должность = "Программист";
ТабЗнач.Оклад = 25000; 
 
 
ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
    Номер = 1;
    Пока Номер <= ТабЗнач.КоличествоСтрок() Цикл
        
        Если ТабЗнач.НомерСтроки = Номер Тогда
            Номер = Номер + 1;
            Продолжить; 
        КонецЕсли;
        
        ЗначениеЯчейки = ТабЗнач.ПолучитьЗначение(Номер,"Сотрудник");
        Если ТабЗнач.Сотрудник = ЗначениеЯчейки Тогда
            ТабЗнач.Оклад = ТабЗнач.ПолучитьЗначение(Номер,"Оклад");
            ТабЗнач.УдалитьСтроку(Номер);
        Иначе
            Номер = Номер + 1;
        КонецЕсли;
    КонецЦикла;
    
КонецЦикла;
 
ТабЗнач.ВыбратьСтроки();
Пока ТабЗнач.ПолучитьСтроку()=1 Цикл
    Сообщить("Сотрудник: "+ТабЗнач.Сотрудник+"  Должность: "+ТабЗнач.Должность+" Оклад:  "+ТабЗнач.Оклад);
КонецЦикла;

Спасибо помогло)

@Volexovich · 19.11.2013, 15:57

Пожалуйста, но на будущее лучше до таких циклов не доводить, а обрабатывать данные на этапе формирования таблицы.

@shiro93 · 20.11.2013, 17:47 **[ТС]**

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

Пожалуйста, но на будущее лучше до таких циклов не доводить, а обрабатывать данные на этапе формирования таблицы.

может поможете чем-то ПечатнаяФорма анализ

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@shiro93 1 / 1 / 0 Регистрация: 09.11.2011 Сообщений: 199

	1C 7.x поиск одинаковых строк в ТаблицеЗначений 14.11.2013, 13:49. Показов 10297. Ответов 35 Метки нет (Все метки) Подскажите пожалуйста как можно сравнивать строки по определенной колонке ТЗ.. Мне нужно найти одинаковые строки в ТЗ(только по определенной колонке), кто что может сказать? 0

@Xomych 858 / 657 / 112 Регистрация: 01.11.2012 Сообщений: 2,411
	14.11.2013, 18:29
	СДелай скрин таблицы, что у тебя там одинаковое? ТЗРешили.ВыбратьСтроку() перед циклом и заскринь, а то так не понятно. 0

@Xomych 858 / 657 / 112 Регистрация: 01.11.2012 Сообщений: 2,411
	14.11.2013, 20:56
	Вообще, если с одинаковыми значениями в строках нужно делать какие-то особые действия, то желательно осортировать таблицу по этой колонке, а потом сравнивать с предыдущим значением каждое следующее. Если значения равны, то делать особое действие, если нет, то дуть дальше 0

@Volexovich 212 / 185 / 32 Регистрация: 24.10.2011 Сообщений: 763
	15.11.2013, 12:28
	Xomych , да по сути это свертка таблицы, НО при свертке берется самое последнее дублирующее значение и ставится в текущее (не суммируется). И вообще я не собирался искать решение для ТС, я просто показал способ перебора таблицы, каким именно образом править таблицу, это его дело. 0

@Volexovich 212 / 185 / 32 Регистрация: 24.10.2011 Сообщений: 763
	19.11.2013, 15:57
	Пожалуйста, но на будущее лучше до таких циклов не доводить, а обрабатывать данные на этапе формирования таблицы. 0