Zwei Verzeichnisse vergleichen und Vorschau anzeigen

[DieDolly]

Ohje also diesen Code verstehe ich überhaupt nicht. Was passiert da? Und ja es sind Unterverzeichnisse mit drin aber das ist egal, weil ja eh schon alles in den Listen steht.

Delphi-Quellcode:

fA := ExtractFileName(A[iA]);
        fB := ExtractFileName(B[iB]);
        if fA < fB then begin

Alleine das verstehe ich schon nicht. Die Vergleiche der Dateien habe ich schon. Ich vergleiche dafür entweder das Dateidatum, -größe oder Inhalt (Hash).
Ich vergleiche immer eine Datei X aus Quelle mit Datei X aus Ziel. Also C:\Quelle\diedatei.txt mit C:\Ziel\diedatei.txt.

Wenn ich deinen Code und if fA < fB then begin richtig verstehe, wird hier einfach alles mit allem verglichen. Das ist nicht mein Ziel.

[Uwe Raabe]

OK, Schritt für Schritt. Und nehmen wir erstmal an, es wären keine Unterverzeichnisse im Spiel.

A und B sind die Stringlisten mit den kompletten Pfad-/Dateinamen. iA und iB verwenden wir als Index in die jeweilige StringList. fA und fB enthalten den reinen Dateinamen ohne den Pfadanteil (wie gesagt, Unterverzeichnisse im Moment noch außen vor).

Delphi-Quellcode:

      iA := 0;
      iB := 0;
      while (iA < A.Count) and (iB < B.Count) do begin

Die Schleife wird ausgeführt, solange beide Indizes noch gültige Einträge in den Stringlisten referenzieren.

Delphi-Quellcode:

        fA := ExtractFileName(A[iA]);
        fB := ExtractFileName(B[iB]);

extrahiert die Dateinamen aus den Pfadnamen.

Delphi-Quellcode:

        if fA < fB then begin
          Writeln('copy: ', A[iA]);
          Inc(iA);
        end

Die Listen sind sortiert und der aktuelle Dateiname aus A ist kleiner als der aus B. Das bedeutet, dass diese Datei in A noch nicht in B vorhanden ist. Also kopieren.

Delphi-Quellcode:

        
        else if fA > fB then begin
          Writeln('delete: ', B[iB]);
          Inc(iA);
        end

Der aktuelle Dateiname aus A ist größer als der aus B. Das bedeutet, dass die Datei in B nicht in A vorkommt. Also löschen.

Delphi-Quellcode:

        else begin
          Writeln('if diff ', fa, ' then copy ', A[iA], ' to ', B[iB]);
          Inc(iA);
          Inc(iB);
        end;

Die beiden Dateinamen sind gleich und existieren somit in beiden Listen. Jetzt müssen wir die Zusatzinformationen vergleichen um zu entscheiden ob die Datei aus A nach B kopiert werden muss.

Delphi-Quellcode:

      while (iA < A.Count) do begin
        Writeln('copy: ', A[iA]);
        Inc(iA);
      end;
      while (iB < B.Count) do begin
        Writeln('delete: ', B[iB]);
        Inc(iB);
      end;

Nach Ende der großen While-Schleife sind wir am Ende entweder von A oder B (oder beiden) angekommen und müssen gegebenenfalls noch die verbleibenden Einträge der anderen Liste verarbeiten. Einträge aus A werden kopiert, die aus B gelöscht.

[DieDolly]

Jetzt habe ich das verstanden. Ich bin noch nicht ganz sicher, in wiefern der Code ausartet wenn da Unterverzeichnisse reinkommen, die auch noch optional sind.
Ob Unterverzeichnisse oder nicht mit einbegzogen werden, wird schon früher entscheidet. Ziemlich genau an der Stelle wo die Listen befüllt werden.
Ich kann ja trotzdem mal versuchen eine Art Minidemo zu bauen. Aber ich weiß nicht wann weil dieser ganze alte Code geht mir so dermaßen auf die Nerven, dass es mir jegliche Lust geraubt hat überhaupt irgendwas mit Delphi zu machen.

[Delphi.Narium]

Werden die Unterverzeichnisse auch miteinander verglichen oder können die Inhalte der Unterverzeichnisse auch mit den Inhalten der darüberliegenden Verzeichnisse verglichen werden?

Gilt vom Prinzip:

Verzeichnis A mit Verzeichnis B vergleichen.

Unterverzeichnis A\1 mit Unterverzeichnis B\1
Unterverzeichnis A\2 mit Unterverzeichnis B\2

also so eine Art 1:1-Beziehung auf Verzeichnis-/Unterverzeichnisebene?

Dann nimm lieber Uwes Logik und vergleiche immer nur zwei Verzeichnisse, zwei Unterverzeichnisse (also Verzeichnisse Paarweise) miteinander, sorge also dafür, dass die Stringlisten immer nur den Inhalt jeweils eines Verzeichnisses / Unterverzeichnisses und des Gegenstückes enthalten.

Du brauchst dann zusätzlich nur eine Struktur, Liste, ... wie auch immer, in der Du quasi die bereits verarbeiteten bzw. die zu verarbeitenden Verzeichnisse verwaltest.

Oder so in etwa:

Rekursiv vom obersten Verzeichnis ausgehend rekursiv nach Verzeichnissen suchen und beim Auffinden eines Verzeichnisses genau und nur dieses mit dem "Gegenstück" vergleichen. (Analog zu einer Ereignisroutine bei einer Komponente -> OnVerzeichnis vergleiche genau dieses Verzeichnis.)

Und nicht: Erstmal alles sammeln und dann mal gucken, wie wir das dann irgendwie miteinander verglichen kriegen. Das wird (für meine Begriffe) zu komplex. Die zu implementierende Logik dürfte eher sehr schwierig werden, da sie ja (mehr oder weniger) linear eine rekursive / baumartige Struktur abbilden müsste.

Zitat von DieDolly:

Aber ich weiß nicht wann weil dieser ganze alte Code geht mir so dermaßen auf die Nerven, dass es mir jegliche Lust geraubt hat überhaupt irgendwas mit Delphi zu machen.

Bei sowas ist meine Devise: Ist das vorhanden nicht mehr mit vernünftigem Aufwand durchschaubar oder überarbeitbar oder einfach nur schlecht, die Aufgabenstellung ist aber klar definiert und verstanden:

Altes vergessen und von beginnauf nach eigenen Vorstellungen neumachen. Das ist tausendmal besser, als sich über Tage oder Wochen durch unpflegbaren Altcode zu quälen und zu hoffen, dass trotzdem was sinnvolles Neues dabei rauskommt.

[DieDolly]

Zitat:

Werden die Unterverzeichnisse auch miteinander verglichen oder können die Inhalte der Unterverzeichnisse auch mit den Inhalten der darüberliegenden Verzeichnisse verglichen werden?

Wie?
Es ist nur Quelle und Ziel die verglichen werden.

Zitat:

sorge also dafür, dass die Stringlisten immer nur den Inhalt jeweils eines Verzeichnisses / Unterverzeichnisses und des Gegenstückes enthalten.

Das ist unmöglich und würde viel mehr Umschreibarbeit bedeuten als ohnehin schon.

Zitat:

Altes vergessen und von beginnauf nach eigenen Vorstellungen neumachen.

Das ist das was ich versuche. Ich füge die Tage mal eine Demo an vielleicht verdeutlicht die mein Problem.

[Uwe Raabe]

Wenn die Unterverzeichnisse strukturell in A und B gleich sind, sich also lediglich durch das Basis-Verzeichnis unterscheiden, muss man statt ExtractFileName eben sowas wie ExtractRelativePathName machen. Wenn man die beiden Basis-Verzeichnisse kennt, sollte das nicht schwierig sein.

[DieDolly]

Zitat:

Wenn die Unterverzeichnisse strukturell in A und B gleich sind

Das ist etwas was eher ausgeschlossen ist.

[Uwe Raabe]

Wie stellst du dann fest, ob eine Datei aus A in B vorkommt und wo die dann liegt?