VB.NET 对ini配置文件操作类

科普：

.ini 文件，即Initialization File的缩写，是Windows系统配置文件所采用的存储格式，负责管理Windows的各种配置。通常，用户可以通过Windows提供的图形化管理界面来实现相同的配置，但在某些情况下，直接编辑.ini文件会更加方便。不过，这通常需要对Windows系统有较深入的了解。

.ini文件最初用于WIN3X系统，后来在WIN95中被注册表所取代。文件中的节相当于注册表中的键。

应用：

1. 用户名记录：类似于QQ，可以记住用户名和密码，下次打开软件时直接加载，避免用户重复输入用户名和密码。

2. 软件配置记录：可以记录软件自身的配置，下次打开时直接加载。

写入操作及文件展示：

LANUX蓝脑商务网站系统

LANUX V1.0 蓝脑商务网站系统 适用于网店、公司宣传自己的品牌和产品。 系统在代码、页面方面设计简约，浏览和后台管理操作效率高。 此版本带可见即可得的html编辑器, 方便直观添加和编辑要发布的内容。 安装： 1.解压后，更换logo、分类名称、幻灯片的图片及名称和链接、联系我们等等页面。 2.将dbconfig.php里面的数据库配置更改为你的mysql数据库配置 3.将整个文件夹上传至

下载

读取及展示：

用法示例：

Dim a As New cls_ini
a.insert_ini("vb小源码公众号", "vb小源码公众号作者", "巴西_prince")
TextBox1.Text = a.getstr_ini("vb小源码公众号", "vb小源码公众号作者", "")

类文件源码：

Imports System.IO
Public Class cls_ini
''' 

''' 定义获取ini整数型的ini值
''' 
''' 节点名
''' 配置项名
''' 要获得的值
''' 文件路径
''' 
''' 
Private Declare Function get_intini Lib "kernel32" Alias "GetPrivateProfileIntA" 
(ByVal node_ini As String, ByVal key_ini As String, ByVal getvalue As Integer, ByVal 
path_ini As String) As Integer
''' 

''' 定义获取ini字符串类型的值
''' 
''' 节点名
''' 配置项名
''' 要获得的值
''' 获得缓冲值
''' 获得缓冲值长度
''' 文件路径
''' 
''' 
Private Declare Function get_str_ini Lib "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal node_ini As String, ByVal key_ini As String, ByVal get_value As String, ByVal _
    buf_value As String, ByVal buf_length As Integer, ByVal path_ini As String) As Integer

''' 

''' 定义向ini写入字符串值
''' 
''' 节点名
''' 配置项名
''' 要写入的值
''' 文件路径
''' 
''' 
Private Declare Function insetr_value_ini Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal node_ini As String, ByVal key_ini As String, ByVal set_value As String, ByVal path_ini _
    As String) As Integer

''' 

''' 从INI配置文件中获取类型为Int的配置项的值
''' 
''' 节点名
''' 配置项名
''' 获取值
''' 
''' 
Public Function getint_ini(ByVal node_name As String, ByVal key_Name As String, ByVal get_Value As Integer) As Integer
    getint_ini = get_int_ini(node_name, key_Name, get_Value, create_ini)
End Function

''' 

''' 从INI配置文件中获取类型为string的配置项的值
''' 
''' 节点名
''' 配置项名
''' 获取值
''' 
''' 
Public Function getstr_ini(ByVal node_name As String, ByVal key_Name As String, ByVal get_Value As String) As String
    Dim buf_value As String
    Dim get_str As Integer
    buf_value = Space(256)
    get_str = get_str_ini(node_name, key_Name, get_Value, buf_value, buf_value.Length, create_ini)
    getstr_ini = Left(buf_value, InStr(buf_value, vbNullChar) - 1)
End Function

''' 

''' 向INI配置文件中写入类型为string的配置项的值
''' 
''' 节点名
''' 配置项名
''' 设置值
''' 
''' 
Public Function insert_ini(ByVal node_name As String, ByVal keyName As String, ByVal set_value As String) As Integer
    Dim get_str As Integer
    get_str = insetr_value_ini(node_name, keyName, set_value, create_ini)
    If get_str Then
        get_str = 1
    End If
    insert_ini = get_str
End Function

Private Function create_ini() As String
    Dim path As String = ""
    Dim fd_path As String = ""
    fd_path = "C:\\Users\\" & Environment.UserName & "\\AppData\\Roaming\\vb_小源码\\"
    path = "C:\\Users\\" & Environment.UserName & "\\AppData\\Roaming\\vb_小源码\\vb_小源码.ini"
    If Directory.Exists(fd_path) = False Then Directory.CreateDirectory(fd_path)
    If Not File.Exists(path) Then File.Create(path)
    Return path
End Function
End Class