Сравнение 2 файлов dbf

[AlexFBG]

Вопрос новичка. Имеется 2 файла dbf. Первый имеет раздельные поля фамилия, имя, отчество, дата рождения, текст большими буквами. Второй - фамилия имя отчество и дата рождения в одном поле, текст - Первая -заглавная, остальные маленькие. Требуется сравнить и создать отчеты кого нет в 1 и кого нет во втором.

[Serge_Bliznykov]

1) порядок записей в файлах имеет значение?

2) ФИО + дата рождения могут не дать 100% уникальности (впрочем, вероятность этого низкая, но всё же...)

3) почему именно Delphi выбрано в качестве инструмента обработки? И ещё, важно, через что собираетесь работать с DBF файлами? Есть возможность использовать бесплатный Microsoft OLE DB Provider for Visual FoxPro ? (его нужно будет поставить на том компьютере, где будет производится обработка данных...)

4) отчёт нужно получить в каком виде? в каком формате?

5) На какую помощь Вы рассчитываете? Что конкретно не получается?
Дело в том, при некоторых удачных ответах на первые мои вопросы, возможно, я набросаю Вам такую программку (люблю простые и незамысловатые утилитки по обработке данных)...

[AlexFBG]

1. Записи в файлах отсортированы по алфавиту, в выходных файлах порядок неважен.
2. Дата рождения при поиске не учитывается, как думаю использовать переменную фамилия+имя+отчество, если 100% вхождение в поле 2 файла, то переменную заносим в файл, обнуляем, переходим к следующей записи. Что-то вроде таким образом.
3. Delphi выбран, т.к. для меня проще написать на нем, чем на С++. Использование OLE DB возможно.
4. Отчет можно в текстовом формате или в виде DBF, не критично, важен результат.
5. Запутался да и не силен в обработке БД.

[Stilet]

Delphi выбран, т.к. для меня проще написать на нем, чем на С++. Использование OLE DB возможно.

Задача разовая? Если да то проще достать FoxPro и в нем сделать запрос на сравнение.

[AlexFBG]

Задача постоянная -сверять списки получателей пенсии. Есть программа написанная на фоксе, но работает настолько криво, что ужас. Приходится конвертировать из csv в dbf, в dbf в поле приплюсовывать "г." (непонятные условия программы) и потом сравнивать. Уходит масса времени и есть желание написать программу и не волноваться за полученный результат что кого-то пропустил.

[Serge_Bliznykov]

2. Дата рождения при поиске не учитывается, как думаю использовать переменную фамилия+имя+отчество, если 100% вхождение в поле 2 файла, то переменную заносим в файл, обнуляем, переходим к следующей записи.

Вы что, никогда не сталивались с полными тёзками? У совершенно разных людей могут совпасть не только имя+отчество (это вообще очень часто) но и фамилия!
Если уже есть правильно заполненное поле с датой рождения, то почему бы не задействовать дату рождения?

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

Задача разовая? Если да то проще достать FoxPro и в нем сделать запрос на сравнение.

Кстати - да! Если это нужно один раз сделать - то зачем городить огород с программой, когда парой запросов проблему можно прямо в командном окошке FoxPro решить.
Да и EXEшничек на FoxPro можно сварганить! Могу посодействовать!

увидел Ваш пост. Понял, что задача не разовая...
Но Вы зря на FoxPro грешите - то, что у программиста, написавшего программу были кривоватые ручки,
не бросает тень на сам FoxPro


p.s. И выложите в архиве пару DBF файлов (структура ОБЯЗАТЕЛЬНО должна быть такая же, как в исходных файлах. Заполнение - должно ОБЯЗАТЕЛЬНО соответствовать исходным файлам. Содержимое - на Ваш вкус (Иванов Иван Иванович, Сидоров Сидор Сидорович и т.д.)

[AlexFBG]

dbf.ZIP
А на Foxpro не грешу, лет 10 назад очень даже активно использовал.
Во вложении 2 файла dbf с частью реальных записей, всего в каждой dbf порядка 5000 записей.

[Serge_Bliznykov]

на Delphi пример я ещё не накидал (хотя, там можно попытаться использовать те же самые запросы, что и в FoxPro.

на FoxPro:

set dele on
set excl off
set cent on
set date german

CLOSE DATA
use naz_all in 0
use wm in 0

select * from naz_all ;
  where padr(lower(alltrim(fm)+' '+alltrim(im)+' '+alltrim(ot)+' ')+dtoc(dtr),90) ;
      not in (select padr(lower(personouid),90) from wm) ;
  into table nazdiff

select * from wm ;
  where  padr(lower(personouid),90) ;
      not in (select padr(lower(alltrim(fm)+' '+alltrim(im)+' '+alltrim(ot)+' ')+dtoc(dtr),90) from naz_all) ;
  into table wmdiff

в файле nazdiff записи, которые есть в NAZ_ALL и нет в WM
в файл WMDIFF записи, которые есть в WM и которых нет в NAZ_ALL

в архиве компактный EXE файл (для его работы требуется наличие по PATH нужных runtime библиотек foxpro)

[AlexFBG]

Огромное спасибо! А как можно реализовать запрос в Delphi, чтобы не таскать библиотеки Fox, хотелось бы компактное приложение. BDE изначально предустановлено. PLS.

[Stilet]

BDE изначально предустановлено.

А по-моему никак... Провайдеры фокспро из стандартного набора ИМХО такие запросы не возьмут... Могу конечно ошибаться, но сам Микрософт в своем ADO не особое внимание уделяет Фоксу. Если интересно мое мнение я предпочитаю всетки прикреплять к программе ядро фокспро, а саму программу писать основываясь на http://pblog.ru/?p=364