读取INI文件 ---VbCode

86 阅读 0 评论 57 点赞

我是靠谱客的博主活泼红牛，最近开发中收集的这篇文章主要介绍读取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"