Datensychronisation zwischen 3 Pfaden

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Andinistrator.

    Datensychronisation zwischen 3 Pfaden

    Guten Morgen zusammen,

    für eine Synchronisation habe ich mir folgenden Code erstellt:
    SyncA vergleicht Ordner1 und 2
    Synch B vergleicht Ordber2 und 3
    (in eine Listbox lasse ich das Ergebnis anzeigen)

    Ich hänge leider an zwei Punkten:
    - Es sollen z.B. nur *.txt Dateien abgeglichen werden
    - Z.b. kann Ordner3 mal "offline" sein, d.h. hier bricht das Programm ab. Statt dessen möchte ich max. in einer Textbox "Ordner3 nicht erreichbar" schreiben, aber das Programm soll weiterlaufen

    Hat bitte jemand einen Tipp für mich? Vielen Dank!

    VB.NET-Quellcode

    1. Private Sub SyncA()
    2. Dim Vergleich1 = System.IO.Directory.GetFiles(TextBox1.Text)
    3. Dim Vergleich2 = System.IO.Directory.GetFiles(TextBox2.Text)
    5. For Each Datei1 In Vergleich1
    6. Dim dtname = Datei1.Substring(TextBox1.Text.Length)
    7. If Not System.IO.File.Exists(TextBox2.Text & dtname) Then
    8. System.IO.File.Copy(Datei1, TextBox2.Text & dtname)
    9. ListBox1.Items.Add(Now & dtname)
    10. End If
    11. If ListBox1.Items.Count > 39 Then
    12. ListBox1.Items.Clear()
    13. ListBox1.Items.Add(Now & dtname)
    14. End If
    15. Next
    16. For Each Datei2 In Vergleich2
    17. Dim dtname = Datei2.Substring(TextBox2.Text.Length)
    18. If Not System.IO.File.Exists(TextBox1.Text & dtname) Then
    19. System.IO.File.Delete(Datei2)
    20. End If
    21. Next
    22. End Sub
    24. Private Sub SyncB()
    25. Dim Vergleich2 = System.IO.Directory.GetFiles(TextBox2.Text)
    26. Dim Vergleich3 = System.IO.Directory.GetFiles(TextBox3.Text)
    28. For Each Datei2 In Vergleich2
    29. Dim dtname = Datei2.Substring(TextBox2.Text.Length)
    30. If Not System.IO.File.Exists(TextBox3.Text & dtname) Then
    31. System.IO.File.Copy(Datei2, TextBox3.Text & dtname)
    32. End If
    33. Next
    34. For Each Datei3 In Vergleich3
    35. Dim dtname = Datei3.Substring(TextBox3.Text.Length)
    36. If Not System.IO.File.Exists(TextBox2.Text & dtname) Then
    37. System.IO.File.Delete(Datei3)
    38. End If
    39. Next
    40. End Sub

    Hat bitte jemand einen Tipp für mich? Vielen Dank!
    Nur zu 1) - das ist schon Stoff genug erstmal:

    1) Lerne, was "Überladung" bedeutet. Grundlagen: Fachbegriffe
    2) Lerne den ObjectBrowser zu benutzen. VisualStudio richtig nutzen (Google ist nicht deine Mami)
    3) Guck dir im ObjectBrowser die Überladungen von Directory.GetFiles() an - es sind welche dabei, die nehmen auch einen pattern an, wie etwa *.txt

    Danke - damit komme ich leider nicht weiter. Was mir dazu geholfen und sehr gut beschrieben ist, die *.txt Dateien in eine Listbox zu schreiben:
    vbarchiv.net/tipps/tipp_617-al…ners-ermitteln-vbnet.html

    Das wollte ich umbasteln in eine Kopierfunktion, komme jedoch ins stolpern:

    VB.NET-Quellcode

    1. Private Sub SyncA(ByVal sender As System.Object, _
    2. ByVal e As System.EventArgs) Handles Timer1.Tick
    4. ' Verzeichnis, dessen Dateien ermittelt werden sollen
    5. Dim sPath As String
    6. sPath = TextBox1.Text
    7. Dim sPath2 As String
    8. sPath2 = TextBox2.Text
    10. ' Directory-Object erstellen
    11. Dim oDir As New System.IO.DirectoryInfo(sPath)
    12. ' nur TXT-Dateien ...
    13. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt")
    15. ' Datei-Array durchlaufen und in
    16. Dim oFile As System.IO.FileInfo
    17. For Each oFile In oFiles
    18. If Not System.IO.File.Exists(sPath2) Then
    19. System.IO.File.Copy(oFile.Name, sPath2)
    20. End If
    21. Next
    23. End Sub



    Das ist schonmal sehr schön - die Funktion kann ich gut gebrauchen :) ! So bleibt das Programm nicht ständig hängen. Dankeschön!

    Jetzt muss ich aber meine Kopierfunktion prüfen, warum der die *.txt Datei nicht nach sPath2 kopiert, wenn diese nicht in sPath2 existiert.

    VB.NET-Quellcode

    1. Private Sub SyncA(ByVal sender As System.Object, _
    2. ByVal e As System.EventArgs) Handles Timer1.Tick
    4. Try
    6. ' Verzeichnis, dessen Dateien ermittelt werden sollen
    7. Dim sPath As String
    8. sPath = TextBox1.Text
    9. Dim sPath2 As String
    10. sPath2 = TextBox2.Text
    11. ' Directory-Object erstellen
    13. Dim oDir As New System.IO.DirectoryInfo(sPath)
    14. ' nur TXT-Dateien ...
    16. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt")
    17. ' Datei-Array durchlaufen und in
    19. Dim oFile As System.IO.FileInfo
    21. For Each oFile In oFiles
    22. If Not System.IO.File.Exists(sPath2) Then
    23. System.IO.File.Copy(oFile.Name, sPath2)
    24. End If
    25. Next
    27. Catch ex As Exception
    28. Dim Fehler As String
    29. Fehler = " nicht erreichbar"
    30. ListBox2.Items.Clear()
    31. ListBox2.Items.Add(Fehler)
    32. End Try
    34. End Sub

    ich rate von dem TryCatch ab.
    Dein Prog funktioniert nicht, weil es Fehler enthält, die du beheben musst.
    Einen TryCatch behebt nicht den Fehler, sondern der bleibt natürlich nachwievor drin.
    Nur der TryCatch erschwert dir das Debuggen.
    Hast du den Fehler behoben, brauchst du den TryCatch auch nicht mehr.

    Der Fehler liegt in zeile#23, denn was du als QuellPfad angibst ist kein vollständiger Pfad, sondern nur der Name der Datei.

    Cheffboss schrieb:

    Try Catch
    What?
    Fehler verschleiern statt sie zu vermeiden?

    Andinistrator schrieb:

    So bleibt das Programm nicht ständig hängen.
    Kann es sein, dass Du alle Quelldateien auf eine einzige Zieldatei schreibst? Es ist möglich, dass Du die nächste Datei bereits kopieren willst, bevor die alte Kopieranweisung völlig fertig ist, weil ja die Zieldatei identisch ist.
    Was genau willst Du eigentlich kopieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @ Cheffboss
    Also der Try Catch hilft mir z.B. auch, weil ich einen Button hab, wo der User den Inhalt des Pfades abfragen kann. Ist der Pfad nicht verfügbar, kann ich nun einen Fehlertext auswerfen, ohne dass das Programm abschmiert.

    @ RodFromGermany
    Ja - das Programm soll quasi Ordner1 und 2 abgleichen, d.h. das Programm schaut ob die *.txt Datei bereits in Ordner2 drin ist, wenn nicht, dann soll es die *.txt Datei dort rein kopieren. Wenn die Datei schon da drin ist, soll es nichts machen. (Für mein Stadium reicht es den Dateinamen abzufragen, also ohne Datum der Datei etc.)
    Daher wirst du bestimmt Recht haben, ich weiß nicht wie ich es lösen kann. In meinem obersten Beitrag hatte ich gehofft, man muss nur irgendwo ein *.txt einfügen und dann passt es. Nun weiß ich, dass dies nicht so einfach ist. ?(

    Ich bekomme jetzt eine andere Meldung:

    Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten.
    Zusätzliche Informationen: Die Zieldatei "C:\Ordner2" ist keine Datei, sondern ein Verzeichnis.

    Ich hab das mal etwas eingedeutscht:
    Quelle = C:\Ordner1
    Ablage = C:\Ordner2

    VB.NET-Quellcode

    1. Private Sub SyncA(ByVal sender As System.Object, _
    2. ByVal e As System.EventArgs) Handles Timer1.Tick
    4. Dim Quelle As String
    5. Dim Ablage As String
    6. Quelle = TextBox1.Text
    7. Ablage = TextBox2.Text
    9. Dim oDir As New System.IO.DirectoryInfo(Quelle)
    10. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt")
    11. Dim oFile As System.IO.FileInfo
    13. For Each oFile In oFiles
    14. If Not System.IO.File.Exists(Ablage) Then
    15. System.IO.File.Copy(oFile.FullName, Ablage)
    16. End If
    17. Next
    18. End Sub

    Andinistrator schrieb:

    ich weiß nicht wie ich es lösen kann.
    Lerne zu debuggen.
    Setze einen Haltepunkt in die Routine und arbeite sie Zeile für Zeile durch.
    Vergleiche den inhalt von Variablen mit den Werten, von denen Du meinst, dass sie drin stehen sollen.
    Wenn Du eine Abweichung gefunden hast, hast Du einen Fehler gefunden. Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @ ErfinderDesRades
    Ich finde es eigentlich ganz hilfreich zu sehen, wie es richtig geht, da meine Entwurf die Option(en) gar nicht bietet. Mir hilft es jedenfalls weiter, verschieden Funktionen kennenzulernen. Eine Frage habe ich noch, damit mein Entwurf vollständig berichtigt ist:

    Im Code habe ich ein ", true" hinzugefügt, damit die Datei - falls vorhanden - überschrieben wird. Wie muss es aber nun richtig aussehen, wenn ich Ordner1 und 2 vergleichen möchte und dabei jede *.txt Datei welche nicht in Ordner 1 ist, auch weiterhin aus Ordner2 lösche?

    VB.NET-Quellcode

    1. Private Sub SyncA(ByVal sender As System.Object, _
    2. ByVal e As System.EventArgs) Handles Timer1.Tick
    4. Dim Quelle As String
    5. Dim Ablage As String
    6. Quelle = TextBox1.Text
    7. Ablage = TextBox2.Text
    9. Dim oDir As New System.IO.DirectoryInfo(Quelle)
    10. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt")
    11. Dim oFile As System.IO.FileInfo
    13. For Each oFile In oFiles
    14. If Not System.IO.File.Exists(Ablage) Then
    15. System.IO.File.Copy(oFile.FullName, System.IO.Path.Combine(Ablage, oFile.Name), True)
    16. End If
    17. Next
    18. End Sub

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    2. Sync(New DirectoryInfo(TextBox1.Text), New DirectoryInfo(TextBox2.Text))
    3. End Sub
    5. Private Sub Sync(di1 As DirectoryInfo, di2 As DirectoryInfo)
    6. Dim fi1s = di1.GetFiles("*.txt")
    7. Dim fi2s = di2.GetFiles("*.txt")
    8. Dim keySelector As Func(Of FileInfo, Integer) = Function(fi) fi.FullName.GetHashCode
    9. With DifferenceAnalize(fi1s, fi2s, keySelector, keySelector)
    10. For Each fi In .List2_Only
    11. fi.Delete()
    12. Next
    13. For Each fi In .List1_Only
    14. File.Copy(fi.FullName, Path.Combine(di2.FullName, fi.Name))
    15. Next
    16. End With
    17. End Sub
    19. Public Function DifferenceAnalize(Of T1, T2)(lst1 As IEnumerable(Of T1), lst2 As IEnumerable(Of T2), Optional keySelector1 As Func(Of T1, Integer) = Nothing, Optional keySelector2 As Func(Of T2, Integer) = Nothing) As DifferenceResult(Of T1, T2)
    20. If keySelector1 Is Nothing Then keySelector1 = Function(o As T1) o.GetHashCode
    21. If keySelector2 Is Nothing Then keySelector2 = Function(o As T2) o.GetHashCode
    22. Dim dic1 = New Dictionary(Of Integer, T1)
    23. With DifferenceAnalize
    24. .List2_Only = New List(Of T2)
    25. .Mappings = New List(Of Tuple(Of T1, T2))
    26. Dim itm1 As T1 = Nothing
    27. For Each itm1 In lst1
    28. dic1.Add(keySelector1(itm1), itm1)
    29. Next
    30. For Each itm2 In lst2
    31. Dim key = keySelector2(itm2)
    32. If dic1.TryGetValue(key, itm1) Then
    33. .Mappings.Add(Tuple.Create(itm1, itm2))
    34. dic1.Remove(key)
    35. Else
    36. .List2_Only.Add(itm2)
    37. End If
    38. Next
    39. .List1_Only = dic1.Values.ToList
    40. End With
    41. End Function
    42. Public Structure DifferenceResult(Of T1, T2)
    43. Public List1_Only As List(Of T1)
    44. Public List2_Only As List(Of T2)
    45. Public Mappings As List(Of Tuple(Of T1, T2))
    46. End Structure

    Guten Morgen, vielen Dank! Das muss ich erstmal "studieren". Ich glaube das richtige Forum gefunden zu haben, so macht es wirklich Spaß bei den Antworten :rolleyes: .

    Eine kleine Ergänzung:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    2. Sync(New DirectoryInfo(TextBox1.Text), New DirectoryInfo(TextBox2.Text))
    3. End Sub
    4. Private Sub Sync(di1 As DirectoryInfo, di2 As DirectoryInfo)
    5. '...

    Andinistrator schrieb:

    Eine kleine Ergänzung:
    Es ist suboptimal, das ganze Timer-gesteuert zu machen.
    Wenn Du eine Pizza bestellst, gehst Du auch nicht alle 3 Minuten zur Tür und siehst nach, ob der Pizzabote da ist, Du wartest, bis er klingelt.
    Also:
    Schmeiß das ganzen Timer-Zeugs raus und bediene Dich eines FileSystemWatchers.
    Einfach im Designer auf die GUI ziehen und konfigurieren. Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    v.a. probiers erstmal aus, obs in deinem Sinne arbeitet.

    Dann kommen wir wieder bei post#2 raus, der dir nämlich ein Instrumentarium gibt, mit dem du die Funktionsweise untersuchen kannst. Setze dazu Haltepunkte, und step im Einzelschritt durch, beobachte dabei die Variablen im Lokalfenster oder erstell Überwachungen für alles, was dein Interesse weckt.

    @ RodFromGermany
    Du hast vollkommen Recht, die Option ist selbstverständlich die bessere Variante in dem Fall. Ich schau mit das Thema an, ggf. mache hier hierzu ein neues Thema auf.

    @ErfinderDesRades
    Ja - hier werde ich üben. Vielen Dank!