' ------- Leerzeilen aus INI-Datei löschen wenn mehr als eine Leerzeile 
' zwischen den Sektionen ------
Public Sub ini_ZeileLoeschen(ByVal myIniFile As String)
 
  Dim sFileTemp As String
  Dim sLine As String
  Dim Fi As Integer
  Dim Ft As Integer
  Dim zCount As Long
 
  ' Name für temporäre Datei zum Zwischenspeichern festlegen
  sFileTemp = myIniFile & "~"
 
  ' Inidatei zum Lesen und Temporäre Datei zum Schreiben öffnen
  Fi = FreeFile
  Open myIniFile For Input As #Fi
 
  Ft = FreeFile
  Open sFileTemp For Output As #Ft
 
  ' Inidatei zeilenweise einlesen und in temporäre Datei schreiben
  ' mehr als eine Leerzeile zwischen den Sektionen wird hierbei nicht übernommen
  While Not EOF(Fi)
        Line Input #Fi, sLine
        If sLine = "" Then zCount = zCount + 1
        If sLine <> "" Then zCount = 0
        If zCount < 2 Then Print #Ft, sLine
  Wend
 
  ' Beide Dateien schliessen
  Close #Fi: Close #Ft
 
  ' Alte Inidatei löschen
  Kill myIniFile
 
  ' Temporäre Datei in Inidatei umbenennen
  Name sFileTemp As myIniFile
 
End Sub