| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сравнение 2х файлов Excel [D7, XP]
Numark © (2007-01-15 10:00:00)Здравствуйте мастера!
Возникла необходимость сравнить 2 файла Excel по содержанию.
Они оба имеют похожий контекст вида столбец A-УРЛ, B-Тип, C-Содержание.
Различия лишь в том, что во 2ом файле 982 записей, а в 1ом 514.
Мне необходимо из 2го файла удалить все записи, которые дублируются в 1ом.
Предположительно, я думаю сравнивать столбец A 1го и 2го файла.
Если текст столбца А, в 1ом файле, совподает с текстом столбца А во 2ом файле, тогда удаляем А,В,С этой строки.
Вот только как именно это реализовать, я недогадываюсь. Подскажите пожалуйста. Спасибо.
Numark (2007-01-16 00:31:00) [1]
> 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;
Подскажите, как можно удалить эту строчку? Т.Е. её обнулить, а на её место, поставить следующюю?
Спасибо.
Megabyte (2007-01-15 13:12:00) [2]Если через Дельфи, то используй COM/OLE, сравнивай поячеечно.
| |
