Ich habe zwei Textdateien mit gleicher Anzahl von Datensätzen. Zum Herausfiltern der ungleichen Datensätze benutze ich untenstehendes Skript, welches diese in eine dritte Textdatei einträgt.
Es funktioniert anfangs optimal, nur leider schreibt es ab einer gewissen Anzahl von Datensätzen (die variiert zwischen 40 und 60) immer wieder Datensätze, die nicht voneinander abweichen.
Liegt es an meinem Skript, oder könnten evt Leerzeichen o.ä. der Grund sein?
Ich bin noch ein ziemlicher Anfänger bezüglich VBA und für jede Hilfe dankbar!
Anbei das Skript:
Option Explicit
Sub Vergleich()
Dim lngCounter As Long
Dim strPath As String, txtA As String, txtB As String
strPath = "C:test"
Open strPath & "test1.txt" For Input As #1
Open strPath & "test2.txt" For Input As #2
Open strPath & "test3.txt" For Output As #3
Do Until EOF(1)
lngCounter = lngCounter + 1
If lngCounter Mod 10000 = 0 Then
Application.StatusBar = "Bearbeite Zeile " & lngCounter
End If
Line Input #1, txtA
Line Input #2, txtB
If txtA <> txtB Then
Print #3, txtA
End If
Loop
Close
Application.StatusBar = False
End Sub
Vielen Dank an alle Experten!!
Juergen