读取INI文件 ---VbCode

最新推荐文章于 2022-04-11 11:21:36 发布

转载最新推荐文章于 2022-04-11 11:21:36 发布 · 57 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/kentyshang/archive/2006/06/14/425774.html

文章标签：

#数据库

本文介绍了一个用于从INI文件中读取应用设置的VBScript函数。该函数通过GetPrivateProfileString API来获取指定节和键的值，并展示了如何使用此函数来获取数据库连接字符串。

'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"