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

    'Function to read application setting from INI file
    Public Function IniFileRead(ByVal vstrINIPath As String, vstrINIFileName As String, _
        ByVal vstrINIType As String, ByRef vstrVar As String, ByVal vstrName As String) As Boolean
       
        On Error GoTo ErrHandler
       
        Dim lResult As Long
        Dim sTemp As String
        Dim lDB As Long
        Dim msIniFileFullPath As String
       
        IniFileRead = False
       
        msIniFileFullPath = vstrINIPath & "\" & vstrINIFileName

        'get connection string
        sTemp = Space$(300)
        lResult = GetPrivateProfileString(vstrINIType, _
                                          vstrName, _
                                          "", _
                                          sTemp, _
                                          300, _
                                          msIniFileFullPath)
       
        If lResult < 1 Or lResult > 300 Then
            GoTo ErrHandler
        Else
            sTemp = Left(sTemp, lResult)
        End If
        vstrVar = sTemp
       
        IniFileRead = True
       
        Exit Function
    ErrHandler:
        IniFileRead = False
       
    End Function

    调用:
    IniFileRead(App.Path, mstrINIFileName, "Database", StrPwd, "Password")

    app.path:INI文件存放路径
    mstrINIFileName:INI文件名称

    INI文件格式:
    [database]
    Server="aa"
    DataBase="test"
    UserID="sa"
    Password="aa"

  • 相关阅读:
    JDBC编程步奏、问题总结(一)
    基于注解的Spring AOP的配置和使用--转载
    什么是aop?-------转
    The JSP specification requires that an attribute name is preceded by whitespace--异常
    使用注解来构造IoC容器-转
    Java单元测试(Junit+Mock+代码覆盖率)---------转
    Linux 杂项
    Sequence
    vim编辑器高亮sv语法
    linux 权限 chmod 755
  • 原文地址:https://www.cnblogs.com/kentyshang/p/425774.html
Copyright © 2011-2022 走看看