File compare

[Jumpy]

[edit]Bezieht sich auf #36, war zu lahm[/edit]

Kannste nicht verhindern. Man kann jetzt die Fuzzy-Pistole rausholen und Ähnlichkeitsanalysen machen usw. aber wie du schon sagst: Es hängt davon ab, was man damit machen will und vllt. ist es genauso schon beabsichtigt.

[value is NULL]

hm ihr habt recht... Die Idee von mir ist momentan zerstört

Der Plan war eigentlich mir alle installierten programme und windows patches auszulesen. Diese speichere ich in ein Textfile.

anschließend starte ich das Programm neu und lese mir die programme erneut ein, dann werden die frisch eingelesenen mit dem vorhin abgelegten file verglichen.

Sollte sich etwas geändert haben reagiere ich dementsprechend... Das File ändert sich NIE, habe dazu einen Pararmeter eingebaut der die Liste bei bedarf neu erstellt.

Wie könnte ich das realisieren? Die Funktion zum auslesen der Programme über die Registry funktioniert eigentlich prima aber die compare geschichte zerbricht mir den Kopf!

LG

[blauweiss]

Hallo value is NULL,

wenn's nur um den Abgleich zweier Listen geht, dann gehe doch einfach die zweite Liste durch und prüfe mit Liste1.IndexOf ab, ob der jeweilige Eintrag dort drin ist. Ggfs. das Gleiche andersrum (Liste1 gegen Liste 2), um gelöschte Einträge zu finden.

Gruß
blauweiss

[Bjoerk]

Sollte funktionieren..

Delphi-Quellcode:

function CompareTextFiles (const file1, file2: string): integer;
var
  s1, s2: string;
  f1, f2: TextFile;
  Count: integer;
begin
  Result:= -1;
  if LowerCase(file1) <> LowerCase(file2) then
  begin
    AssignFile (f1, File1);
    {$I-} Reset(f1); {$I+}
    if IoResult = 0 then
    begin
      AssignFile (f2, File2);
      {$I-} Reset(f2); {$I+}
      if IoResult = 0 then
      begin
        Count:= 0;
        Result:= 0;
        while ((not Eof(f1)) and (not Eof(f2)) and (Result = 0)) do
        begin
          Readln(f1, s1);
          Readln(f2, s2);
          Inc(Count);
          if s1 <> s2 then Result:= Count;
        end;
        if Result = 0 then
          if ((not Eof(f1)) or (not Eof(f2))) then Result:= Count+1;
        closeFile (f2);
      end;
      closeFile (f1);
    end;
  end;
end;