Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
194 views
in Technique[技术] by (71.8m points)

Delete an ini file's section and its data VB.NET/C#

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
See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

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:	est.ini")
        res = WritePrivateProfileString("Test", "val2", "1", "D:	est.ini")
        res = WritePrivateProfileString("Test", "val3", "1", "D:	est.ini")

        res = WritePrivateProfileString("Test1", "val1", "1", "D:	est.ini")
        res = WritePrivateProfileString("Test1", "val2", "1", "D:	est.ini")
        res = WritePrivateProfileString("Test1", "val3", "1", "D:	est.ini")

        res = WritePrivateProfileSection("Test", IntPtr.Zero, "D:	est.ini")
    End Sub

End Module

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...