14 / 14 / 8
Регистрация: 07.03.2016
Сообщений: 152
1

Сравнение двух таблиц, с разных вордовских файлов

01.09.2016, 08:41. Показов 1960. Ответов 52
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем доброго времени суток, уважаемые знатоки, подскажите пожалуйста каким образом или возможно ли это вообще. Хочу брать 2 вордовских файла с одинаковыми таблицами и сравнивать их на наличие одинаковых строк, причём чтобы те строки, которые существуют только в одном файле - выводились на экран.
Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.09.2016, 08:41
Ответы с готовыми решениями:

Сравнение таблиц с разных файлов
Ребята, приветствую! Мне очень нужна ваша помощь. Имеется 2 файла, в одной таблицы выгружаются из...

Сравнение двух таблиц на разных листах
Доброе время суток! Друзья, помогите решить задачу, есть макрос поиска одинаковых строк и...

Сравнение двух разных таблиц Excel в MS Access
Есть прайс-листы в Excel от поставщиков, как лучше их сравнивать,чтобы узнать какие новые товары...

Сравнение двух ячеек из разных файлов
Здравствуйте! Есть 2 разных файла, в которых необходимо сравнить столбцы с номерами основных...

52
14 / 14 / 8
Регистрация: 07.03.2016
Сообщений: 152
06.09.2016, 09:46  [ТС] 41
Author24 — интернет-сервис помощи студентам
qwertehok, Нет нет, вот к примеру начался перебор строк в StringGrid2 и допустим его 5 запись не существует в StringGrid1, и эта запись должна записаться в StringGrid3 как первая запись и т.д.
0
14 / 14 / 8
Регистрация: 07.03.2016
Сообщений: 152
06.09.2016, 09:51  [ТС] 42
вот как на скриншоте должно быть, здесь всё правильно выводит вот этот код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
    i,j,k:integer;
begin
    form3.show;
    k:=-1;
    for i:=0 to StringGrid2.RowCount-1 do begin
        j:=0;
        while (j<StringGrid1.RowCount-1) 
            and (StringGrid1.Cells[1,j]<>StringGrid2.Cells[1,i]) 
                do  inc(j);
        if (j>=StringGrid1.RowCount-1) then begin
            inc(k);
            form3.StringGrid1.Rows[k].Text:=StringGrid2.Rows[i].Text;
         end;
    end;
Только он выводит всего лишь 5 строк, а остальные почему то нет
Миниатюры
Сравнение двух таблиц, с разных вордовских файлов  
0
5388 / 4316 / 1060
Регистрация: 29.08.2013
Сообщений: 27,097
Записей в блоге: 3
06.09.2016, 09:55 43
Цитата Сообщение от San22Rus Посмотреть сообщение
и эта запись должна записаться в StringGrid3 как первая запись и т.д.
а может ты сам хоть что-то сделаешь? голова то есть?
0
14 / 14 / 8
Регистрация: 07.03.2016
Сообщений: 152
06.09.2016, 10:02  [ТС] 44
qwertehok,
Цитата Сообщение от qwertehok Посмотреть сообщение
а может ты сам хоть что-то сделаешь? голова то есть?
Я сделал вот это сам, только у меня выводит всего 5 первых найденных записей, а их гораздо больше, я и прошу помощи, хочу узнать почему так, иначе зачем тогда этот форум вообще? Я же не прошу вас готовый код мне скинуть, чтобы я скопировал и у меня всё заработало сразу, хотя бы подсказать наводку
0
Модератор
9224 / 6008 / 2373
Регистрация: 21.01.2014
Сообщений: 25,657
Записей в блоге: 3
06.09.2016, 10:26 45
San22Rus, вот читаю тему и что-то уже запутался:
1. Есть 3 таблицы одинаковой структуры. Первые 2 из них заполнены данными.
2. Сравниваем таблицы по первым столбцам.
3. Если в 1-м столбце таблицы 2 есть данные, которых нет в 1-м столбце таблицы 1 - копируем всю строку целиком из таблицы 2 в таблицу 3.
Все верно?
0
5388 / 4316 / 1060
Регистрация: 29.08.2013
Сообщений: 27,097
Записей в блоге: 3
06.09.2016, 10:34 46
Цитата Сообщение от San22Rus Посмотреть сообщение
хочу узнать почему так
потому что это не код, а какой то бред

Delphi
1
 if  stringgrid1.Cols[1].IndexOf(stringgrid2.cells[0,i])=-1
вот проверка которая точно проверяет есть ли подстрока в колонке
0
14 / 14 / 8
Регистрация: 07.03.2016
Сообщений: 152
06.09.2016, 10:48  [ТС] 47
D1973,
Цитата Сообщение от D1973 Посмотреть сообщение
Все верно?
да, Вы всё правильно поняли
0
Модератор
9224 / 6008 / 2373
Регистрация: 21.01.2014
Сообщений: 25,657
Записей в блоге: 3
06.09.2016, 11:20 48
Лучший ответ Сообщение было отмечено San22Rus как решение

Решение

Ну тогда вот так как-то можно:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
var i, k : integer;
    L : TStringList;
begin
 k := 0;
 L := TStringList.Create;
 L.CommaText := Grid1.Cols[0].Text;
 for i := 0 to Grid2.RowCount - 1 do
  if L.IndexOf(Grid2.Cells[0, i]) = -1
   then begin
         Grid3.Rows[k] := Grid2.Rows[i];
         Grid3.RowCount := Grid3.RowCount + 1;
         inc(k);
        end;
end;
Миниатюры
Сравнение двух таблиц, с разных вордовских файлов  
1
5388 / 4316 / 1060
Регистрация: 29.08.2013
Сообщений: 27,097
Записей в блоге: 3
06.09.2016, 11:28 49
Цитата Сообщение от D1973 Посмотреть сообщение
Ну тогда вот так как-то можно:
а зачем нужен StringList?
у нас же есть Cols[] который типа TStrings и у него и так есть IndexOf
0
14 / 14 / 8
Регистрация: 07.03.2016
Сообщений: 152
06.09.2016, 11:34  [ТС] 50
D1973, огромное спасибо, теперь всё работает как надо, тему можно закрыть
0
Модератор
9224 / 6008 / 2373
Регистрация: 21.01.2014
Сообщений: 25,657
Записей в блоге: 3
06.09.2016, 12:13 51
Цитата Сообщение от qwertehok Посмотреть сообщение
а зачем нужен StringList?
qwertehok, а руки поперед головы шлепнули по клавиатуре. Конечно, без него спокойно можно обойтись... Вот так правильнее будет
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button2Click(Sender: TObject);
var i, k : integer;
begin
 k := Grid3.FixedRows;
 for i := Grid2.FixedRows to Grid2.RowCount - 1 do
  if Grid1.Cols[0].IndexOf(Grid2.Cells[0, i]) = -1
   then begin
         Grid3.Rows[k] := Grid2.Rows[i];
         Grid3.RowCount := Grid3.RowCount + 1;
         inc(k);
        end;
end;
0
qwertehok
06.09.2016, 12:45
  #52

Не по теме:

и от k можно спокойно избавится, считая что Grid3.RowCount в самом начале равно 2

0
Модератор
9224 / 6008 / 2373
Регистрация: 21.01.2014
Сообщений: 25,657
Записей в блоге: 3
06.09.2016, 13:03 53
Цитата Сообщение от qwertehok Посмотреть сообщение
и от k можно спокойно избавится, считая что Grid3.RowCount в самом начале равно 2
А если Грид без фиксированной строки, т.е. кол-во строк = 1? Или, наоборот, фиксированных строк 2, 3 и т.д.? Надо всякие извращения предусмотреть...

Добавлено через 5 минут
Не, ну можно, конечно, только как-то, ИМХО, громоздко выглядит...
Вот так, чтобы уж сразу и фиксированные столбцы учитывать
Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
 for i := Grid2.FixedRows to Grid2.RowCount - 1 do
  if Grid1.Cols[Grid1.FixedCols].IndexOf(Grid2.Cells[Grid2.FixedCols, i]) = -1
   then begin
         Grid3.Rows[Grid3.RowCount - Grid3.FixedRows - 1] := Grid2.Rows[i];
         Grid3.RowCount := Grid3.RowCount + 1;
        end;
end;
1
06.09.2016, 13:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2016, 13:03
Помогаю со студенческими работами здесь

Сравнение двух столбцов из разных файлов
Доброго времени суток! Не геракл в VBA, но возникла такая потребность: Есть 2 абсолютно...

Сравнение данных из двух разных файлов Excel
Добрый день, форумчане! До этого не имел дело с VBA. Начинаю только изучать. Начальство...

Сопоставление двух таблиц из разных файлов excel
Давно не работал с экселем, поэтому мозг немного отказывается решать следующую задачу Есть два...

Сравнение двух столбцов из разных файлов и запись результатов в третий файл ( Apache POI )
Не могу разобраться в цикле записи результатов сравнения двух столбцов(в обоих по 1 листу) в третью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
53
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru