Private Sub cmdvergleichen_Click()
Dim zaehler1 As Double
Dim zaehler2 As Double
Dim zaehler As Double
Dim i As Double
Dim h As Double
Dim ddb() As String
Dim dsdb() As String
Dim wert As String
Dim suchkrit As String
Dim gefunden As Integer
 
ReDim Preserve ddb(11000)
ReDim Preserve dsdb(11000)
 
Open txtdatei1.Text For Input As #1
Do While Not EOF(1)
    Line Input #1, wert
    d3db(zaehler1) = wert
    zaehler1 = zaehler1 + 1
    zaehler = zaehler + 1
    If zaehler > 10000 Then
        ReDim Preserve ddb(zaehler + 10000)
    End If
Loop
Close #1
 
ProgressBar1.Max = zaehler1 + 1
 
 
zaehler = 0
 
Open txtdatei2.Text For Input As #1
Do While Not EOF(1)
    Line Input #1, wert
    d3sdb(zaehler2) = wert
    zaehler2 = zaehler2 + 1
    zaehler = zaehler + 1
    If zaehler > 10000 Then
        ReDim Preserve dsdb(zaehler + 10000)
    End If
Loop
Close #1
 
ReDim Preserve dsdb(zaehler2 + 1)
 
ProgressBar2.Max = zaehler2 + 1
 
QuickSort (ddb)
 
QuickSort (dsdb)
 
For i = 0 To zaehler1
    suchkrit = ddb(i)
    gefunden = 0
    For h = 0 To zaehler2
        If suchkrit = dsdb(h) Then
            gefunden = 1
            h = zaehler2 - 1
        End If
        ProgressBar2.Value = h
    Next h
    If gefunden = 0 Then
        Open txtausgabe.Text For Output As #1
            Print #1, suchkrit
        Close #1
    End If
    ProgressBar1.Value = i
    ProgressBar2.Value = 0
Next i
End Sub
 
Public Sub QuickSort(vSort As Variant, _
  Optional ByVal lngStart As Variant, _
  Optional ByVal lngEnd As Variant)
 
  ' Wird die Bereichsgrenze nicht angegeben,
  ' so wird das gesamte Array sortiert
 
  If IsMissing(lngStart) Then lngStart = LBound(vSort)
  If IsMissing(lngEnd) Then lngEnd = UBound(vSort)
 
  Dim i As Long
  Dim j As Long
  Dim h As Variant
  Dim x As Variant
 
  i = lngStart: j = lngEnd
  x = vSort((lngStart + lngEnd) / 2)
 
  ' Array aufteilen
  Do
 
    While (vSort(i) < x): i = i + 1: Wend
    While (vSort(j) > x): j = j - 1: Wend
 
    If (i <= j) Then
      ' Wertepaare miteinander tauschen
      h = vSort(i)
      vSort(i) = vSort(j)
      vSort(j) = h
      i = i + 1: j = j - 1
    End If
  Loop Until (i > j)
 
  ' Rekursion (Funktion ruft sich selbst auf)
  If (lngStart < j) Then QuickSort vSort, lngStart, j
  If (i < lngEnd) Then QuickSort vSort, i, lngEnd
End Sub