调用INI文件

最新推荐文章于 2023-03-03 10:48:57 发布

weixin_34380296

最新推荐文章于 2023-03-03 10:48:57 发布

阅读量339

点赞数

原文链接：https://yq.aliyun.com/articles/397143

版权

本文介绍了一个使用VBScript编写的函数，该函数用于从指定路径的INI文件中读取特定部分的数据。通过调用GetPrivateProfileString API，此函数能够获取指定类型下指定名称的值。

摘要由CSDN通过智能技术生成

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