Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

Сравнение 2х файлов Excel   Найти похожие ветки 

 
Numark   (2007-01-15 10:00) [0]

Здравствуйте мастера!
Возникла необходимость сравнить 2 файла Excel по содержанию.
Они оба имеют похожий контекст вида столбец A-УРЛ, B-Тип, C-Содержание.
Различия лишь в том, что во 2ом файле 982 записей, а в 1ом 514.

Мне необходимо из 2го файла удалить все записи, которые дублируются в 1ом.

Предположительно, я думаю сравнивать столбец A 1го и 2го файла.
Если текст столбца А, в 1ом файле, совподает с текстом столбца А во 2ом файле, тогда удаляем А,В,С этой строки.

Вот только как именно это реализовать, я недогадываюсь. Подскажите пожалуйста. Спасибо.


 
Megabyte ©   (2007-01-15 13:12) [1]

Если через Дельфи, то используй COM/OLE, сравнивай поячеечно.


 
Numark   (2007-01-16 00:31) [2]


> Megabyte ©   (15.01.07 13:12) [1]

Я написал, полцяилось так:

excel1  := CreateOleObject("excel.application"); //514
excel2 := CreateOleObject("excel.application"); //996
excel1.workbooks.open("X:\excel\Îò÷¸ò.xls");
excel2.workbooks.open("X:\excel\Îò÷¸ò_2.xls");
for i:=2 to 916 do
for j:=2 to 514 do
if excel2.sheets[1].cells[i,1].value = excel1.sheets[1].cells[j,1].value then
Memo1.Lines.Add(IntToStr(i));

Form1.Caption :="Ãîòîâî.";

excel1.quit;
excel2.quit;


Подскажите, как можно удалить эту строчку? Т.Е. её обнулить, а на её место, поставить следующюю?
Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
3-1163386167
Андрей Л.
2006-11-13 05:49
2007.02.04
Иероглифы в базе.


2-1168871590
SadMan
2007-01-15 17:33
2007.02.04
Как обратится к свойствам объекта зная его имя? Глупо как то..


15-1168866992
Сатир
2007-01-15 16:16
2007.02.04
Создание инсталлятора установки компонент для Delphi


15-1168767111
vasIzmax
2007-01-14 12:31
2007.02.04
Работа в Интернете?


15-1168851686
vitv
2007-01-15 12:01
2007.02.04
Удаление файлов без восстановления.