Zwei Textdateien vergleichen und doppelte Werte löschen

Option Explicit

Private Const cPFAD = C:\Test TXTDateien\
Private Const cD1 = TestDatei1.txt-> Datei mit Suchbegriffen
Private Const cD2 = TestDatei2.txt-> Datei, die modifiziert wird
Private Const cPFAD_D1 = cPFAD & cD1
Private Const cPFAD_D2 = cPFAD & cD2


Function ZweiTXTDateienAbgleichen()
  Dim Handle__1 As Integer, Handle__2 As Integer, Handle__3 As Integer, Handle__4 As Integer
  Dim sSicherungsdateiname As String, sDateinameFull As String
  Dim sSuchbegriff As String, sLineD2 As String, sLineAusKopieDesOriginals As String
  Dim pos As Long, bGefunden As Boolean, lSatzNr As Long, lSatzNr2 As Long
  
 ->Sicherung anlegen
  sSicherungsdateiname = cPFAD & Sicherung & Format(Now(), yyyymmddhhnnss_) & cD2
  On Error Resume Next
  FileCopy cPFAD_D2, sSicherungsdateiname
  If Err.Number <> 0 Then
    Err.Clear: On Error GoTo 0
    MsgBox Datei  & cPFAD_D2 &  ist geöffnet und kann nicht gesichert werden.
    Exit Function
  End If
  On Error GoTo 0
  
  
 ->Datei1 mit Suchbegriffen öffnen
 ->Und Suchbegriffe nacheinander auslesen
  Handle__1 = FreeFile
  Open cPFAD_D1 For Input As #Handle__1
  Do While Not EOF(Handle__1)
    Line Input #Handle__1, sSuchbegriff
    If sSuchbegriff <>  Then
      Debug.Print Suchbegriff:  & sSuchbegriff
      
     ->Datei2 nach Suchbegriff durchsuchen
      Handle__2 = FreeFile
      bGefunden = False
      Open cPFAD_D2 For Input As #Handle__2
      lSatzNr = 0
      Do While Not EOF(Handle__2)
        lSatzNr = lSatzNr + 1
        Line Input #Handle__2, sLineD2
        pos = InStr(1, sLineD2, sSuchbegriff)
        If pos > 0 Then
          bGefunden = True
          Debug.Print Suchbegriff:  & sSuchbegriff &  gefunden in:  & sLineD2
          Exit Do
        End If
      Loop
      Close #Handle__2
      
     ->Suchbegriff gefunden ?
      If bGefunden Then
       ->Kopie des Orginals anlegen
        FileCopy cPFAD_D2, cPFAD_D2 & .MyCopy
        Handle__3 = FreeFile
       ->Kopie des Originals als Input
        Open cPFAD_D2 & .MyCopy For Input As #Handle__3
       ->neue Orginaldatei anlegen und mit Daten aus Kopie des Orginals füllen
       ->zu löschenden Satz dabei überspringen
        Handle__4 = FreeFile
        Open cPFAD_D2 For Output As #Handle__4
        lSatzNr2 = 0
        While Not EOF(Handle__3)
          lSatzNr2 = lSatzNr2 + 1
          Line Input #Handle__3, sLineAusKopieDesOriginals
          If lSatzNr2 <> lSatzNr Then Print #Handle__4, sLineAusKopieDesOriginals
        Wend
        Close #Handle__4
        Close #Handle__3
       ->Kopie des Orginals löschen
        Kill cPFAD_D2 & .MyCopy
      End If
    End If
  Loop
  Close #Handle__1
  
End Function