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:	Views:  26.465
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.