Hallo zusammen,
Ich bin neu hier und wollte fragen, ob es eine Möglichkeit gibt, den Inhalt von 2 Textdateien zu vergleichen und "nur" den Unterschied in eine 3te Textdatei einzutragen.
Meine Textdateien sind ungefähr so Aufgebaut:
Inhalt der ersten Datei:
Beispiel;2;111;3;1;0;0;0;0;0;-
Inhalt der zweiten Datei:
Beispiel;2;2000;3;1;0;0;0;0;0;-
Nun sollte es nur 111 ausgeben.
Ich habe es schon mit diesem Code probiert, jedoch gibt dieser mir lediglich die ganze Zeile wieder aus, anstatt nur den Unterschied.
Wäre sehr dankbar für eine mögliche Lösung, bin schon seit 2 Tagen am verzweifeln deswegen
Ich bin neu hier und wollte fragen, ob es eine Möglichkeit gibt, den Inhalt von 2 Textdateien zu vergleichen und "nur" den Unterschied in eine 3te Textdatei einzutragen.
Meine Textdateien sind ungefähr so Aufgebaut:
Inhalt der ersten Datei:
Beispiel;2;111;3;1;0;0;0;0;0;-
Inhalt der zweiten Datei:
Beispiel;2;2000;3;1;0;0;0;0;0;-
Nun sollte es nur 111 ausgeben.
Ich habe es schon mit diesem Code probiert, jedoch gibt dieser mir lediglich die ganze Zeile wieder aus, anstatt nur den Unterschied.
VB.NET-Quellcode
- Dim FSO, OldData, NewData, Datei3, tmp1, tmp2
- FSO = CreateObject("Scripting.FileSystemObject")
- OldData = FSO.OpenTextFile(Pfad1)
- NewData = FSO.OpenTextFile(Pfad2)
- Datei3 = FSO.OpenTextFile(Pfad3)
- tmp2 = OldData.readall
- Do Until NewData.AtEndOfStream
- tmp1 = NewData.readline
- If InStr(tmp2, Trim(tmp1)) = 0 Then
- Datei3.Write(tmp1)
- End If
- Loop
- OldData.Close
- NewData.Close
- Datei3.Close
Wäre sehr dankbar für eine mögliche Lösung, bin schon seit 2 Tagen am verzweifeln deswegen