[starcon]

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


Пока не знаю с чего начать !!!
Предполагаю, нужно создать маленькую базу с структурой выходного dbf и пробовать по одному из входных dbf загружать в эту базу.
Потом удачно экспортировать !!!

Что посоветуете , как реализовать ?.
Когда начну уже писать , опишу как должны формироваться данные в один dbf.

Больно не пенать , владею delphi (уровень Новичёк, Начинающий, парочку программ написал , но быстро учусь).

Пока всем Спасибо!!

[Alegun]

Для начала

Код:

uses DB, DBTables, StdCtrls;

...

if CreateTable('"mytab.dbf"',
 'FLD_1 CHARACTER(50), ' +
 'FLD_2 CHARACTER(50), ' +
 'FLD_3 CHARACTER(50), ' +
 'FLD_4 CHARACTER(50), ' +
 'FLD_5 CHARACTER(50) ', '') then ...
 // значит создалась таблица c пятью одинаковыми полями 
else
 // что-то пошло не так

...

[Freeman]

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

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

Если это разовая работа, проще всего проделать всё в SQL Explorer запросами.

[starcon]

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

Вот файлы http://yadi.sk/d/tqLRVFjbKZxXu или вот http://dfiles.ru/files/hj1154yew
В двух словах
Должны сравниваться первых два столбца , и если "LICH" И "TIPES" столбцах совпала строчка , тогда в строчку Value записывается значение с загружаемого файла.
4 и 5 столбы всегда постоянные 0 и1 соответственно.
"Type" меняется в зависимости от файла и столбца в выходном DBF то есть
Когда "Type" 1 в выходном файле он соответствует Value
Когда "Type" 2 в выходном файле он соответствует Value1
Когда "Type" 3 в выходном файле он соответствует Value2
Когда "Type" 4 в выходном файле он соответствует Value3
Когда "Type" 5 в выходном файле он соответствует Value4

Вот и получается 5-ть файлов .

Кто может что то предложить?
Как реализовать , вообще реально?

[Alegun]

Не могу скачать архив с яндекс диска, кнопка "Скачать" не нажимается, переложите его пжлст на обычный файлобменник, напр. zalil.ru или rghost.ru

[poli-smen]

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

Не могу скачать архив с яндекс диска, кнопка "Скачать" не нажимается, переложите его пжлст на обычный файлобменник, напр. zalil.ru или rghost.ru

Странно, у меня нормально скачалось. Вот положил его на zalil.ru: http://gfile.ru/a4hbz

[starcon]

Ещё тут http://dfiles.ru/files/45345

Спасибо за активность Вам .

Возможно, я не очень внятно описал свою проблему.

[Alegun]

<<DELETED>>

[starcon]

Разве не реально?

[Alegun]

Вот что получилось, чисто на G-коде, запросом будет и проще и короче, но извнт, не умею

[starcon]

Спасибо , файл действительно собирает.
Есть одно НО, нет метода сравнения первого и второго столбов с загружаемыми DBF.
Попробовал на новых файлах
В четвёртом файле (4-й) всего 3-строчки , так программа скопировала их во весь столбец

[Alegun]

Можно после вали добавить проверку на соответствие значений

Код:

...
while not rslt.Eof do
    if rslt.FieldValues['LICH'] = dbf1.FieldValues['LICH'] then
...

[starcon]

Работает стабильней.
В главном файле (1-й) на одну строку больше ,чем в остальных файлах.
Вот процедура доходит до этой строки и дальше не заполняет остальные столбцы.

На рисунке выделил, данная строчка есть только в первом файле , в остальных файлах её просто нет.