modini.bas

来自「设备管理系统包含设备管理」· BAS 代码 · 共 93 行

Attribute VB_Name = "ModIni"
'****************************************************************************
'人人为我，我为人人
'枕善居收集发布(网友提供)
'发布日期：05/06/16
'描  述：超经典的打印预览动态库
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit

'**********************************************
'*重新封装读取INI文件的函数
'*简化函数名称
'*进行错误处理
'**********************************************

Private 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
    
Private 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


'*****************************************************
'*名称：GetIni
'*功能：读取INI文件
'*传入参数：
'*      filename    --文件名
'*      section     --项目名
'*      key         --键名
'*返回参数：
'*      读取的键值
'****************************************************
Public Function GetIni(FileName As String, _
                       section As String, _
                       key As String) _
    As String
    
    Dim l       As Long
    Dim str     As String * 1000
    Dim tStr    As String

    l = GetPrivateProfileString(section, key, "", str, 1000, FileName)

    tStr = Replace(str, Chr(32), "")
    tStr = Replace(str, Chr(0), "")
    tStr = Trim(tStr)
    GetIni = tStr
    
End Function

'*****************************************************
'*名称：SetIni
'*功能：写INI文件
'*传入参数：
'*      filename    --文件名
'*      section     --项目名
'*      key         --键名
'*      value       --要写入的键值
'*返回参数：
'*      返回写值结果（是否成功）
'****************************************************
Public Function SetIni(FileName As String, _
                       section As String, _
                       key As String, _
                       Value As String) _
    As Boolean
    
    Dim l       As Long

    l = WritePrivateProfileString(section, key, Value, FileName)
    SetIni = IIf(l = 0, False, True)
    
End Function