Сверка двух dbf

[cafra]

Добрый день. Очень нужна помощь компетентных программистов. Стоит задача проверить структуру двух dbf файлов. Т.е. проверить количество полей, имена полей и их типы. Проблема заключается в проверке типов полей. Не могу понять как можно сверить типы. В основном это касается типа numeric. Пожалуйста подскажите как можно узнать у numeric количество символов и остаток

[Serge_Bliznykov]

как можно узнать у numeric количество символов и остаток

в структуре файла DBF для numeric задаётся количество символов (длина поля в байтах) и количество символов после десятичной точки.


1) это разовая задача?
может быть, Вам проще воспользоваться любым вьевером,
например, CDBF.EXE умеет сохранять структуру в текстовый файл

2) или Вам обязательно нужно разработать программу ? Если да - то через что работаете с DBF? (рекомендую TDBF)

3) когда у меня возникла подобная задача на практике (программа на FoxPro), то задача была решена следующим образом: за основу взяты исходники утилит Леса Пинтера - DATADICT/DATAFIX CDXDICT/CDXFIX. идея в том, что строится словарь, в который сохраняются все структуры всех имеющихся DBF файлов. При необходимости структуры файлов могут быть изменены согласно словарю.
Удобно сопровождать, когда DBF файлов сотни (это реально!) и нужно изменять структуру некоторых.
Ну и по следам этих утилит была написана программка DATACHK
цитирую:

* DATAFIX.PRG
*
* Версия 2.0 13-10-1998
* + Добавлена проверка на "лишние базы" -
* т.е. в отчете отображаются имена DBF файлов,
* которые не описаны в словаре данных.
* + Исключение: файлы FOXUSER.DBF и DATACHK.DBF
* не попадают в отчет, даже если они не описаны в словаре
* Версия 3.0 27-04-1999
* + Изменена процедура сравнения полей:
* 1. Расшифровываются при несовпадении кол-ва полей все поля,
* которых нет в одной из баз или длина,тип не совпадает
* 2. Не проверяются поля по порядку (только предупреждение,
* если порядок полей отличается от порядка в словаре, а
* все описания полей совпадают со словарём
* + Добавлена процедура отображения версии и даты программы
* + Сперва выводятся список тех файлов, которых нет физически,
* хотя они описаны в словаре

p.s. а вообще, если нужно, могу помочь...
В принципе, в стандартном DBF файле прочитать заголовок - раз плюнуть - структура проста как топор! Можно вообще напрямую читать, без всяких библиотек/технологий доступа...

[cafra]

Я хотел читать структуру, но начальнику не нравится идея, а функция должна быть написана на делфи

function Verifydbfs(dbf1,dbf2:Tdbf;out list: Tstringlist):boolean;
var i,j: integer; name:boolean;
begin
  if dbf1.FieldCount<>dbf2.FieldCount then
  list.Add('Количество полей не равное');
  for i := 0 to dbf1.FieldCount-1 do
  begin
    name:=false;
    for j := 0 to dbf2.FieldCount-1 do
    begin
      if AnsiUpperCase(dbf1.Fields[i].FullName)=AnsiUpperCase(dbf2.Fields[j].FullName) then
      begin
        name:=true;
        if dbf1.Fields[i].DataType<>dbf2.Fields[j].DataType  then
          list.Add('Поле '+dbf1.Fields[i].FullName+' имеет тип  '
                    +DataTypeToStr(dbf2.Fields[j].DataType)+' вместо '
                    +DataTypeToStr(dbf1.Fields[i].DataType));
        if dbf1.Fields[i].Size<>dbf2.Fields[j].Size  then
          list.Add('Поле '+dbf1.Fields[i].FullName+' имеет неверный размер '
                    +IntToStr(dbf2.Fields[j].Size)+' вместо '
                    +IntToStr(dbf1.Fields[i].Size));
        break;
      end;
    end;
    if name=false then list.Add('Поля '+dbf1.Fields[i].FullName
                                +' в таблице не существует.')
  end;
  if list.count=0 then Result:=true else Result:=False;
end;

Пока остановился на таком варианте, но он далеко не идеален

[Serge_Bliznykov]

1) если у Вас в DBF2 есть куча дополнительных полей (которых нет в dbf1) то они в отчёт не попадут... (впрочем, количество полей не совпадёт, так что функция вернёт False)

2)
я бы рекомендовал количество знаков после запятой тоже сверять.
примерно так:

      begin
        name:=true;
        if dbf1.Fields[i].DataType<>dbf2.Fields[j].DataType  then
          list.Add('Поле '+dbf1.Fields[i].FullName+' имеет тип  '
                    +ShowTypeField(dbf2.Fields[j].DataType)+' вместо '
                    +ShowTypeField(dbf1.Fields[i].DataType));
        if dbf1.Fields[i].Size<>dbf2.Fields[j].Size  then
          list.Add('Поле '+dbf1.Fields[i].FullName+' имеет неверный размер '
                    +IntToStr(dbf2.Fields[j].Size)+' вместо '
                    +IntToStr(dbf1.Fields[i].Size))
        else
          if  dbf1.DbfFieldDefs.Items[i].Precision<>dbf2.DbfFieldDefs.Items[j].Precision  then
            list.Add('Поле '+dbf1.Fields[i].FullName+' отличается по числу десятичных знаков '
                    +IntToStr(dbf2.DbfFieldDefs.Items[i].Precision)+' вместо '
                    +IntToStr(dbf1.DbfFieldDefs.Items[i].Precision));
        break;
      end;

3)

Я хотел читать структуру, но начальнику не нравится идея

позвольте поинтересоваться - а почему, собственно?! А как может быть иначе? Как можно сравнить структуры таблиц, не читая структуру?!!