如何使用 vb.net 删除 INI 文件的一部分中的一行？

Question

我正在尝试删除 INI 文件部分内的一行，但在触发删除代码后，INI 文件内容保持不变。 INI 文件的已删除数据似乎没有被删除。

代码：

  <DllImport("kernel32.dll", SetLastError:=True)> _
    Public Shared Function WritePrivateProfileSection( _
        ByVal lpAppName As String, _
        ByVal lpString As String, _
        ByVal lpValue As String, _
        ByVal lpFileName As String) As Boolean
    End Function   

    Public Sub DeleteSection(ByRef sApp As String, ByRef sKey As String)
        Try
            Dim ret As Boolean
            Dim sBuff As New System.Text.StringBuilder
            sBuff.Capacity = 256

            ret = WritePrivateProfileSection(sApp, sKey, "", m_sIniFile)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

用法：

m_ini.DeleteSection("AppName", "AppKey")

这样做的主要目的是删除键及其值。

但问题是删除后，INI文件没有任何变化。

问候，

Answer 1

编辑：

正如 Jimi 在 cmets 中指出的，WritePrivateProfileString 可以删除密钥。看来您确实应该调用WritePrivateProfileString 而不是WritePrivateProfileSection，第三个参数应该是Nothing 而不是空的String。

此外，虽然实际名称在执行时并不重要，但最好在代码中保持一致以避免混淆。因此，参数应按顺序为lpAppName、lpKeyName、lpString 和lpFileName。如果您想改用 .NET 风格的命名，请使用 appName、keyName、[string] 和 fileName。您可以使用value 而不是[string] 来避免转义关键字。

原文：

我从来没有使用过，所以我对这个答案并不完全有信心，但据我所知，你正在将WritePrivateProfileSection 和WritePrivateProfileString 组合成一个也不起作用的组合。您的函数名为WritePrivateProfileSection，但该函数有三个参数，而不是四个。 WritePrivateProfileString 有四个，但不能满足您的要求。

WritePrivateProfileString 会将值写入键，如果您想清除该键，这很好，但如果您想删除它，那就不对了。 WritePrivateProfileSection 采用单个 String 包含要写入一个部分的所有键和值，因此这是您需要使用的，并且您需要省略要从该 String 中删除的键。

看来您实际上需要做的是读取该部分中的所有键和值，然后从中构造一个String，而忽略要删除的键。然后，您使用 String 调用 WritePrivateProfileSection 以使用修改后的数据覆盖该部分。 GetPrivateProfileSection 函数将获得一个包含所有当前键和值的 String，因此您应该调用它，处理结果，然后将处理后的数据传递给 WritePrivateProfileSection。

Answer 2

我也推荐使用 WritePrivateProfileString，但你应该声明它是正确的。

' Writes String values
<DllImport("Kernel32.dll", CharSet:=CharSet.Unicode,
           SetLastError:=True, EntryPoint:="WritePrivateProfileStringW")>
Public Shared Function WritePrivateProfileString(
    Section As String,
    Key As String,
    WriteStr As String,
    IniFile As String) As Integer
End Function

在 .NET 中，标准是 Unicode，因此请使用带有 W 结尾（= 宽）的 EntryPoint

然后删除键/条目很容易：

Public Sub DeleteEntry(IniFile As String, Section As String, Key As String)
    WritePrivateProfileString(Section, Key, vbNullString, IniFile)
End Sub

您还可以使用 WritePrivateProfileString 删除完整的部分：

Public Sub DeleteSection(IniFile As String, Section As String)
    WritePrivateProfileString(Section, vbNullString, vbNullString, IniFile)
End Sub