在VB6中,你可以使用以下代码删除INI文件中的某一项:
〓〓vb代码如下:〓〓
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Sub DeleteINIEntry(ByVal section As String, ByVal key As String, ByVal iniFilePath As String)' 将lpKeyName参数设为Null即可删除整个section
Dim result As Long
result = WritePrivateProfileString(section, key, vbNullString, iniFilePath)
If result = 0 Then
MsgBox "删除INI项失败"
Else
MsgBox "已成功删除INI项"
End If
End Sub
使用示例:
〓〓vb代码如下:〓〓
DeleteINIEntry "SectionName", "KeyName", "C:\Path\To\File.ini"
请确保替换示例中的"SectionName"、"KeyName"和"C:\Path\To\File.ini"为你实际使用的部分。这段代码将根据提供的参数从INI文件中删除指定的项。如果删除成功,将显示成功消息框;否则,将显示失败消息框。
如果要删除整个 SectionName 这个大项,你可以将 lpKeyName 参数设为 Null 。下面土嘎嘎小编分享更新后的代码示例:
〓〓vb代码如下:〓〓
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Sub DeleteINISection(ByVal section As String, ByVal iniFilePath As String)' 将lpKeyName参数设为Null即可删除整个section
Dim result As Long
result = WritePrivateProfileString(section, vbNullString, vbNullString, iniFilePath)
If result = 0 Then
MsgBox "删除INI大项失败"
Else
MsgBox "已成功删除INI大项"
End If
End Sub
使用示例:
〓〓vb代码如下:〓〓
DeleteINISection "SectionName", "C:\Path\To\File.ini"
请确保替换示例中的"SectionName"和"C:\Path\To\File.ini"为你实际使用的部分。这段代码将根据提供的参数从INI文件中删除指定的大项(包括该大项下的所有键值对)。如果删除成功,将显示成功消息框;否则,将显示失败消息框。