Private Sub cmdAbfrage_Click()
Dim txtC65A
Dim txtC65D
Open Label1.Caption For Input As #1   ' Datei öffnen.
Open Text1.Text For Output As #3   ' Datei öffnen.
 
Do While Not EOF(1)   ' Schleife bis Dateiende.
    Line Input #1, txtC65A
 
Open Label2.Caption For Input As #2   ' Datei öffnen.
 
Do While Not EOF(2)
   Line Input #2, txtC65D
 
   HHsttxtC65A = Left(txtC65A, 24)
   NKtxtC65A = Mid(txtC65A, 25, 2)
   BeltxtC65A = Mid(txtC65A, 28, 6)
   PostxtC65A = Mid(txtC65A, 36, 4)
   HueltxtC65A = Mid(txtC65A, 42, 8)
   ArttxtC65A = Mid(txtC65A, 82, 1)
   VkztxtC65A = Mid(txtC65A, 84, 1)
   HHJahrC65A = Mid(txtC65A, 86, 4)
   EmpabgtxtC65A = Mid(txtC65A, 93, 1)
 
   NKtxtC65D = Mid(txtC65D, 1, 2)
   BeltxtC65D = Mid(txtC65D, 4, 6)
   PostxtC65D = Mid(txtC65D, 11, 4)
   Rest = Mid(txtC65D, 21, 79)
   Vor = Mid(txtC65D, 103, 3)
 
   If (NKtxtC65A = NKtxtC65D) And (BeltxtC65A = BeltxtC65D) And (PostxtC65A = _
     PostxtC65D) Then
 
   Print #3, HHsttxtC65A, NKtxtC65A, BeltxtC65A, PostxtC65A, HueltxtC65A, Rest, _
   ArttxtC65A, VkztxtC65A, HHJahrC65A, Vor, EmpabgtxtC65A
   End If
 
 
Loop
Close #2
 
Loop
 
Close #1: Close #3
 
Dim sLine As String
 
Open Text1.Text For Input As #4
Open "C:\Temporär.txt" For Output As #5
 
While Not EOF(4)
Line Input #4, sLine
If Trim(sLine) <> "" And Trim(sLine) <> "" Then
Print #5, sLine
End If
Wend
Close #4: Close #5
 
Kill Text1.Text
Name "C:Temporär.txt" As Text1.Text