分类
编程

详解 VB.NET INI 文件的使用:增添、修改与删除

虽说使用注册表保存程序配置信息逐渐成为主流,但是,INI 文件仍然具有一定的优势。比如,只需拷贝INI文件至其他计算机上,就可以同步设置而无需网络。许多大型游戏也在使用INI文件来记录配置信息,如 Ubisoft 的著名游戏《刺客信条》等。那么,如何在VB.NET中实现INI文件的读写呢?今天,我为大家详解如何在 VB.NET 中实现 INI 文件的读写。

在窗体类中添加如下代码:

'读ini API函数
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
'写ini API函数 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

'读取ini文件内容
Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
    Dim Str As String = LSet(Str, 256)
    GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
    Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1) 
End Function 

'写ini文件操作 
Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
    WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName) 
End Function 

读取INI文件方法GetINI接受四个参数,分别表示项名,值名,默认值(即没有找到所请求值时返回的值),INI文件路径。以下是一个INI文件示例:

[General] -> 项名
Visible=0 -> 值名 = 值

写入INI文件方法WriteINI接受四个参数,分别表示项名,值名,写入值,INI文件路径。

发表评论

电子邮件地址不会被公开。 必填项已用*标注