VB.NET中Init文件的读写

对于程序，一些配置信息，可以在TXT纯文本文件读写，但它一般用于存放些文字。而INI文件一般用做配置文件，读写方便，有特定格式！

首先写一个类：IniFile，然后实例化，可以进行数据的读写操作

Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Public Class IniFile
    Public filePath As String
    <DllImport("kernel32")> _
    Private Shared Function WritePrivateProfileString(ByVal section As String,ByVal key As String,ByVal val As String,ByVal filePath As String) As Long
    End Function
    <DllImport("kernel32")> _
    Private Shared Function GetPrivateProfileString(ByVal section As String,ByVal def As String,ByVal retVal As StringBuilder,ByVal size As Integer,ByVal filePath As String) As Integer
    End Function
    Public Sub New(ByVal iniPath As String)
        filePath = iniPath
    End Sub
    Public Sub WriteIniValue(ByVal Section As String,ByVal Key As String,ByVal value As String)
        WritePrivateProfileString(Section,Key,value,Me.filePath)
    End Sub
    Public Function ReadIniValue(ByVal Section As String,ByVal Key As String) As String
        Dim temp As New StringBuilder(255)
        Dim i As Integer = GetPrivateProfileString(Section,"",temp,255,Me.filePath)
        Return temp.ToString()
    End Function
End Class

'设置当前工作目录的完全限定路径。 
            '例如 [数据库配置] Server = rhkf004
 
            Dim AppPath As String = Environment.CurrentDirectory
            Dim GetPath As String = System.IO.Path.Combine(AppPath,"Config.ini")
            Dim Ini As IniFile = New IniFile(GetPath)
            '读取
            Dim DbServer As String = Common.Ini.ReadIniValue("数据库配置","server")
            '写入
            Common.Ini.WriteIniValue("数据库配置","server","rhkf004")

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!