zoukankan      html  css  js  c++  java
  • 用vb.net读取INI配置文件的方法,使用API

    因为对XML前不了解,所以对XML方式来做配置文件我都不能很好的实现
    但为了应行,只有先使用INI的文来记录了
    也就沿用了VB6里的INI文读取方法

     '声明INI配置文件读写API函数
        Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As StringByVal lpKeyName As StringByVal lpDefault As StringByVal lpReturnedString As StringByVal nSize As Int32, ByVal lpFileName As StringAs Int32
        
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As StringByVal lpKeyName As StringByVal lpString As StringByVal lpFileName As StringAs Int32
        
    '定义读取配置文件函数
        Public Function GetINI(ByVal Section As StringByVal AppName As StringByVal lpDefault As StringByVal FileName As StringAs String
            
    Dim Str As String = LSet(Str256)
            GetPrivateProfileString(Section, AppName, lpDefault, 
    StrLen(Str), FileName)
            
    Return Microsoft.VisualBasic.Left(StrInStr(StrChr(0)) - 1)
        
    End Function

        
    '定义写入配置文件函数
        Public Function WriteINI(ByVal Section As StringByVal AppName As StringByVal lpDefault As StringByVal FileName As StringAs Long
            WriteINI 
    = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
        
    End Function

        
    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
            
    Dim path As String
            path 
    = Application.StartupPath + "\server.ini"
            TextBox1.Text = GetINI("Server""IP""", path)
            TextBox2.Text 
    = GetINI("Server""port""", path)
        
    End Sub


        
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
            
    Try
                
    Dim path As String
                path 
    = Application.StartupPath + "\server.ini"
                WriteINI("Server""IP", TextBox1.Text, path)
                WriteINI(
    "Server""port", TextBox2.Text, path)
                
    MsgBox("配置设置已经成功!!!!")
                Me.Close()
            
    Catch ex As Exception
                
    MsgBox("错误!!!!")
            
    End Try

        
    End Sub
  • 相关阅读:
    IDEA中代码无故报红解决方法
    CAP原则的基本理论知识
    Java IO 拷贝MP3文件,包括递归子文件夹下的文件
    maven 配置阿里云镜像 settings.xml内容
    Restful API 级别及意义
    日常巡检(脚本)
    使用Matplotlib画图系列(一)
    Python 阶乘factorial
    交叉验证思想
    FeatureSelectors
  • 原文地址:https://www.cnblogs.com/aowind/p/102723.html
Copyright © 2011-2022 走看看