VB.NET中Init文件的读写

最新推荐文章于 2021-09-08 09:34:18 发布

无涯大者

最新推荐文章于 2021-09-08 09:34:18 发布

阅读量2.6k

点赞数

分类专栏： VB.NET 文章标签： vb.net 文件 Init

本文链接：https://blog.csdn.net/fengqingtao2008/article/details/27881699

版权

VB.NET 专栏收录该内容

18 篇文章 0 订阅

订阅专栏

对于程序，一些配置信息，可以在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 key 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, Key, "", 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")

This is right!End!