File compare

[DeddyH]

Daran hatte ich auch schon gedacht, aber wie will man das verhindern?

[edit] Abgesehen davon kann das ja auch richtig sein, je nachdem, was man beabsichtigt. [/edit]

[p80286]

Ins unreine gedacht,
für jede Zeile einen Hash-wert erstellen und gleiche Zeilen/Hash-werte aus dem Topf entfernen.
Was übrig bleibt ist nicht gleich.

Gruß
K-H

[blauweiss]

Zitat von p80286:

Ins unreine gedacht,
für jede Zeile einen Hash-wert erstellen und gleiche Zeilen/Hash-werte aus dem Topf entfernen.
Was übrig bleibt ist nicht gleich.

Gruß
K-H

Die beste Idee IMHO.
Ich hab's mal quasi genauso programmiert, nur andersrum

Delphi-Quellcode:

procedure GetListDifferences(StringListMaster, StringListToCheck: TStringList;
                             var AddedList, MissingList: TStringList);
var
  i: integer;
begin
  AddedList.Clear;
  for i := 0 to StringListToCheck.Count-1 do
    if (StringListMaster.IndexOf(StringListToCheck[i]) = -1) then
      AddedList.Append(StringListToCheck[i]);
  MissingList.Clear;
  for i := 0 to StringListMaster.Count-1 do
    if (StringListToCheck.IndexOf(StringListMaster[i]) = -1) then
      MissingList.Append(StringListMaster[i]);
end;

procedure GetTextFileDifferences(FileNameMaster, FileNameToCheck: string;
                                 var AddedList, MissingList: TStringList);
var
  StringListMaster, StringListToCheck: TStringList;
begin
  AddedList.Clear;
  MissingList.Clear;
  if not FileExists(FileNameMaster) or not FileExists(FileNameToCheck) then
    exit;
  StringListMaster := TStringList.Create;
  StringListToCheck := TStringList.Create;
  try
    StringListMaster.LoadFromFile(FileNameMaster);
    StringListToCheck.LoadFromFile(FileNameToCheck);
    GetListDifferences(StringListMaster, StringListToCheck, AddedList, MissingList);
  finally
    StringListMaster.Free;
    StringListToCheck.Free;
  end;
end;

Gruss,
blauweiss

[value is NULL]

@ blauweiss

könntest du mir das etwas erklären?! nur fürs verständnis
ich verstehe das nämlich so überhaupt nicht, was bekomme ich da als result?

der plan ist nämlich als Result immer den Text der betroffenen Zeilen zu erhalten.

sry falls die Frage blöd rüber kommt aber das ist neuland

LG

[DeddyH]

Ob Hash oder die Zeile selbst dürfte doch aus Logiksicht egal sein. Nimm Dir also eine Zeile aus der ersten Datei, suche sie in der zweiten und lösche sie bei Fund aus beiden Stringlisten. Das machst Du Zeile für Zeile, was am Schluss übrig bleibt sind die Unterschiede.

[blauweiss]

Zitat von DeddyH:

Ob Hash oder die Zeile selbst dürfte doch aus Logiksicht egal sein. Nimm Dir also eine Zeile aus der ersten Datei, suche sie in der zweiten und lösche sie bei Fund aus beiden Stringlisten. Das machst Du Zeile für Zeile, was am Schluss übrig bleibt sind die Unterschiede.

Genau !
Oder einfach andersrum, wie bei mir: Die nicht gefundenen (=unterschiedlichen) werden gesucht.

@value is NULL:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  AddedList, MissingList: TStringList;
begin
  AddedList := TStringList.Create;
  MissingList := TStringList.Create;
  try
    GetTextFileDifferences('C:\Alt.txt', 'C:\Neu.txt', AddedList, MissingList);

    ...AddedList enthält jetzt die Einträge von Neu.txt, die nicht in Alt.txt sind
    ...MissingList enthält die Einträge von Alt.txt, die nicht in Neu.txt sind

  finally
    AddedList.Free;
    MissingList.Free;
  end;
end;

Gruss
blauweiss

[value is NULL]

ah ok, hab das prinzip jetzt verstanden, habe glaube ich zu kompliziert gedacht.

Thank good for the Stringlist xD

LG

[FredlFesl]

Dafür gibt es doch die Programme Kdiff, Beyondcompare usw. Die dahinterliegenden Algorithmen sind zwar bekannt, aber nicht trivial.

Bisserl Schmalz muss man schon verwenden, aber man kann mit der Levenshtein-Distanz rechnen, nur nicht auf Zeichen- sondern auf Zeilenebene.

[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