zoukankan      html  css  js  c++  java
  • 读取INI配置文件

    config.ini文件

    [System]
    Ttype=False
    TMode=0
    TErrMode=1
    SaveTemp=0
    TControl=0
    Password=sa
    LoadMax=1000

    LoadMin=-1000

    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
    
    Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String, iniFileName As String) As String
        On Error GoTo GetIniStrErr
        If VBA.Trim(In_Key) = "" Then
            GoTo GetIniStrErr
        End If
        Dim GetStr As String
        GetStr = VBA.String(128, 0)
        GetPrivateProfileString AppName, In_Key, "", GetStr, 256, iniFileName
        GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
        If GetStr = "" Then
            GoTo GetIniStrErr
        Else
            GetIniStr = GetStr
            GetStr = ""
        End If
        Exit Function
    GetIniStrErr:
        Err.Clear
        GetIniStr = ""
        GetStr = ""
    End Function
    
    
    '
    Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String, iniFileName As String) As Boolean
        On Error GoTo WriteIniStrErr
        WriteIniStr = True
        If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then
            GoTo WriteIniStrErr
        Else
            WritePrivateProfileString AppName, In_Key, In_Data, iniFileName
        End If
        Exit Function
    WriteIniStrErr:
        Err.Clear
        WriteIniStr = False
    End Function
    Dim loadMax As Double
    dim LoadMin as double 
     IniFilePath = App.Path & "SystemIni.ini"
       
     loadMax = GetIniStr("System", "LoadMax", IniFilePath)    ''1000
    LoadMin = GetIniStr("System", "LoadMin", IniFilePath)      ''-1000
  • 相关阅读:
    JSP引擎的工作原理
    Hibernate缓存配置
    理解LinkedHashMap
    如何在CMD下运用管理员权限
    sun.misc.BASE64Encoder找不到jar包的解决方法
    访问WEB-INF目录中的JSP文件
    Servlet Filter(过滤器)、Filter是如何实现拦截的、Filter开发入门
    message from server: "Host 'xxx' is not allowed to connect to this MySQL server的解决
    深入Java单例模式
    (八)路径(面包屑导航)分页标签和徽章组件
  • 原文地址:https://www.cnblogs.com/rosesmall/p/11691620.html
Copyright © 2011-2022 走看看