Rubrik: Dateisystem · INI-Dateien | VB-Versionen: VB4, VB5, VB6 | 31.07.03 |
![]() Mit Aufruf der API Funktion WritePrivateProfileString() kann ein kompletter INI-Abschnitt mit allen Keys und Werten gelöscht werden. | ||
Autor: ![]() | Bewertung: ![]() ![]() ![]() ![]() ![]() | Views: 26.774 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | ![]() |
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