VB.NET中Init文件的读写

前端之家收集整理的这篇文章主要介绍了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")
This is right!End!

猜你在找的VB相关文章