Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/csharp/304.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
C# 删除ini文件的节及其数据VB.NET/C_C#_Vb.net_Ini - Fatal编程技术网

C# 删除ini文件的节及其数据VB.NET/C

C# 删除ini文件的节及其数据VB.NET/C,c#,vb.net,ini,C#,Vb.net,Ini,如何在VB.NET中删除ini文件的节及其数据? 实际上,我只能删除数据,但不能删除章节的标题 rivate Declare Ansi Function WritePrivateProfileString _ Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String,

如何在VB.NET中删除ini文件的节及其数据? 实际上,我只能删除数据,但不能删除章节的标题

      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
使用

要清除lpString参数的整个部分,请传递NULL

编辑:

测试代码:

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

它是一个平面文本文件吗?XML?杰森?文件的格式是什么?你想在VB或c中使用它还是不重要?如果你不提供更多细节,你会看到你得到很多反对票。同时展示你已经做了什么。一些代码会很好。我使用VB或C中的平面文本文件。我认为我的帖子很清楚,任何开发人员都能理解,我不理解为什么我投了反对票。不是我的,但也许你在给代码添加格式之前就得到了。Stackoverflow往往是一个粗糙的地方:我传递这个WritePrivateProfileStringsectionName,Nothing,Nothing,Me.path End Sub。我一直都是section。我说的是section,不是String。看看我链接的页面,如果你做错了,我只是在这里测试了一下,效果很好。如果您需要更多帮助,请提供代码,因为我不久前丢失了读心设备。