fileini.bas

来自「VB写的一个IDE开发环境,支持脚本运行,内置了一个简单的编译器,可以直接生成E」· BAS 代码 · 共 43 行

Attribute VB_Name = "ModuleIni"
Option Explicit
'********************************************
'* 访问INI的函数
'* 用法：
'*    ReadINI   读INI
'*    WriteINI  写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 AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal Filename As String) As Long

Public Function ReadINI(IniFile, inisection, inikey, iniDefault)
On Error Resume Next
    Dim lpApplicationName As String
    Dim lpKeyName As String
    Dim lpDefault As String
    Dim lpReturnedString As String
    Dim nSize As Long
    Dim lpFileName As String
    Dim retval As Long
    Dim Filename As String
    lpDefault = Space$(FileLen(IniFile))
    lpDefault = iniDefault
    lpReturnedString = Space$(FileLen(IniFile))
    nSize = FileLen(IniFile)
    lpFileName = IniFile
    lpApplicationName = inisection
    lpKeyName = inikey
    Filename = lpFileName
    retval = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)
    ReadINI = Trim(lpReturnedString)
    ReadINI = Replace$(ReadINI, Chr(0), "", 1, -1, vbBinaryCompare)
End Function

Public Function WriteINI(IniFile, inisection, inikey, Info)
On Error Resume Next
    Dim retval As Long
    retval = WritePrivateProfileString(inisection, inikey, Info, IniFile)
    WriteINI = LTrim$(Str$(retval))
End Function