问题
How can I delete an ini file's section and its data in VB.NET? Actually, I can delete only data but not the title of the section.
rivate Declare Ansi Function WritePrivateProfileString _
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer
回答1:
Use WritePrivateProfileSection.
To clear the entire section pass NULL for the lpString parameter.
edit:
Tested code:
Imports System.Runtime.InteropServices
Module Module1
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Function WritePrivateProfileSection(ByVal lpAppName As String, ByVal lpString As IntPtr, ByVal lpFileName As String) As Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Function WritePrivateProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Boolean
End Function
Sub Main()
Dim res As Boolean
res = WritePrivateProfileString("Test", "val1", "1", "D:\test.ini")
res = WritePrivateProfileString("Test", "val2", "1", "D:\test.ini")
res = WritePrivateProfileString("Test", "val3", "1", "D:\test.ini")
res = WritePrivateProfileString("Test1", "val1", "1", "D:\test.ini")
res = WritePrivateProfileString("Test1", "val2", "1", "D:\test.ini")
res = WritePrivateProfileString("Test1", "val3", "1", "D:\test.ini")
res = WritePrivateProfileSection("Test", IntPtr.Zero, "D:\test.ini")
End Sub
End Module
来源:https://stackoverflow.com/questions/31670946/delete-an-ini-files-section-and-its-data-vb-net-c