sammenligning af excell ark

Simpelt eksempel som opretter et Excel ark, giver celle A1 en værdi, efterfølgende læser værdien i celle A1 og viser den:
Du skal have Excel 97 eller nyere installeret for at det virker.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  xlThick = $00000004;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  Var
    Excel: OleVariant;
    Range: OleVariant;
    Str1:  String[80];

begin
    Excel:=CreateOleObject('Excel.Application');
    Excel.WorkBooks.Add;
    Excel.Visible:=False;
    Excel.DisplayAlerts:=False;

    Range:=Excel.Sheets[1].Range['A1'];
    Range.FormulaR1C1:='Hest';

    Str1:=Range.FormulaR1C1;
    Showmessage('Læst tekst: '+str1);

    Excel.ActiveWorkbook.SaveAs('C:\TestFil.xls');
    Excel.WorkBooks.Close;
    Excel.Quit;
    Excel:=Unassigned;

    Showmessage('Færdig !!!');
end;

end.

Har du brug for at vide om to Excel filer er NØJAGTIG en ... bare med forskellige filnanvne ?

Jens B

Sover du ?

Sorry, nej jeg sover ikke.

Jeg har fundet ud af at bruge en odbc forbindelse, med en driver som kan læse excell ark direkte. På den måde kan jeg foretage SQL statements osv direkte på arket. Det er netop det jeg skal bruge, ser det ud til. Skal nok vende tilbage hvis der opstår problemer.

Men jeg vil da meget gerne vide hvordan man kan sammenligne om to excell filer er helt ens bare forskellige navne.

/Sune

Brug den her funktion :
function GetCheckSum(const FileName: TFileName): Integer;
var
  F: file of Integer;
  Fsize: Integer;
  Buffer: array[0..500] of Integer;
begin
  FileMode := 0;
  AssignFile(F, FileName);
  Reset(F);
  Seek(F, FileSize(F) div 2);
  Fsize := FileSize(F) - 1 - FilePos(F);
  if Fsize > 500 then
    Fsize := 500;
  BlockRead(F, Buffer, Fsize);
  CloseFile(F);
  asm
      xor eax, eax
      xor ecx, ecx
      lea edx , Buffer
    @again:
      add eax, [edx + 4*ecx]
      inc ecx
      cmp ecx, fsize
    jl @again
      mov @result, eax
  end;
end;

Hvis chechsummen er en er DET den samme fil !

Jens B