Private Declare Sub VBEX_SortStringAr Lib "vbex32.dll" _
  Alias "VBSORTARRAYSTR" ( _
  sArr() As String, _
  ByVal nVon As Long, _
  ByVal nBis As Long, _
  ByVal nDirection As Byte)

Public Sub txt_AppendLine(ByVal sFileName As String, _
  ByVal sLine As String)
 
  Dim F As Integer
 
  ' Datei zum "Anhängen" von Daten öffnen
  ' und Textzeile ans Ende anfügen
  F = FreeFile
  Open sFileName For Append As #F
  Print #F, sLine
  Close #F
End Sub
 
Public Function txt_ReadAll(ByVal sFileName As String) As String
'Liest den Inhalt einer Textdatei aus
 
   Dim F As Integer
   Dim sInhalt As String
 
   'Existiert die Datei ?
   If Dir$(sFileName, vbNormal) <> "" Then
      F = FreeFile
      Open sFileName For Binary As #F
      sInhalt = Space$(LOF(F))
      Get #F, , sInhalt
      Close #F
   End If
 
   txt_ReadAll = sInhalt
End Function

Dim sFullFileContent() As String 
Dim sFile as String
 
'Datei
sFile = "C:\...."
 
 
'Gesamte Datei einlesen
sFullFileContent = Split(txt_ReadAll(sFile), vbNewLine)
'Datei löschen
Kill sFile
 
'Sortieren
VBEX_SortStringAr sFullFileContent, LBound(sFullFileContent), _ 
     UBound(sFullFileContent), 0
 
'Schreiben
'erste Zeile immer
txt_AppendLine sFile, sFullFileContent(0)
 
'Ab hier überprüfen auf veränderung
Dim lCounter as Long
 
For lCounter=1 to UBound(sFullFileContent)
  If sFullFileContent(lCounter) <> sFullFileContent(lCounter -1) Then
    txt_AppendLine sFullFileContent(lCounter)
  End if
Next lCounter

Cu

Wolfgang