Abschnitt aus INI-Datei löschen Mit Aufruf der API Funktion WritePrivateProfileString() kann ein kompletter INI-Abschnitt mit allen Keys und Werten gelöscht werden.
Autor:   Christian Köster	Bewertung:     [ Jetzt bewerten ]	Views:  16.227
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 27 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend zeigen wir Ihnen, wie sich ein kompletter Abschnitt mit allen Schlüsselwerten aus einer INI-Datei löschen lässt. Benötigt wird hierzu die wahrscheinlich allseits bekannte API-Funktion WritePrivateProfileString.

' benötigte API-Deklaration
Private Declare Function DeletePrivateProfileSection Lib "kernel32" _
  Alias "WritePrivateProfileStringA" ( _
  ByVal Section As String, _
  ByVal NoKey As Long, _
  ByVal NoSetting As Long, _
  ByVal FileName As String) As Long

Nachfolgendes Beispiel zeigt, wie aus der Datei "C:\test.ini" der Abschnitt [Color] mit allen Keys gelöscht wird. Ist die Datei nicht vorhanden, wird sie mit 0 KB (leer) erstellt.

Der Eintrag in der Datei sieht z.B. so aus:

[Color]
key1=2332
key2=Hallo Welt
...

Nach dem Aufruf der Funktion sind alle Keys inkl. Abschnitts-Defintion gelöscht.

Dim nResult As Long
Dim sSectionName As String
Dim sIniFile As String
 
' INI-Datei
sIniFile = "c:\test.ini"
 
' zu löschender Abschnitt
sSectionName = "Color"
 
' Abschnitt löschen
nResult = DeletePrivateProfileSection(sSectionName, 0, 0, sIniFile)
 
' War der Aufruf erfolgreich ist nResult =1
MsgBox nResult