会python真的可以为所欲为0(回)
365天前
这里还有人吗1(回)
550天前这里还有人吗0(回)
550天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
775天前到处都是羊，不想上班0(回)
855天前
鸽子
0(回)
859天前Option Explicit On |
Module INI |
'INICont.bas Ver 1.0+a INI '==================================================================== |
'GetIntFromINI( sectionName , keyName , defaultValue, iniPath ) |
' |
' sectionName:节点名 |
' keyName :配置项名 |
' defaultValue:默认值 |
' iniPath :INI配置文件的路径 |
' |
'==================================================================== |
//声明从INI配置文件中获取类型为Int的配置项的值的系统函数 |
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer |
//声明从INI配置文件中获取类型为string的配置项的值的系统函数 |
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer |
//声明向INI配置文件中写入类型为string的配置项的值的系统函数 |
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer |
//从INI配置文件中获取类型为Int的配置项的值 |
Public Function GetIntFromINI(ByVal sectionName As String, ByVal keyName As String, ByVal defaultValue As Integer, ByVal iniPath As String) As Integer |
GetIntFromINI = GetPrivateProfileInt(sectionName, keyName, defaultValue, iniPath) |
End Function |
//从INI配置文件中获取类型为string的配置项的值 |
Public Function GetStrFromINI(ByVal sectionName As String, ByVal keyName As String, ByVal defaultValue As String, ByVal iniPath As String) As String |
Dim buffer As String |
Dim rc As Integer |
buffer = Space(256) |
|
rc = GetPrivateProfileString(sectionName, keyName, defaultValue, buffer, buffer.Length, iniPath) |
|
GetStrFromINI = Left(buffer, InStr(buffer, vbNullChar) - 1) |
End Function |
//向INI配置文件中写入类型为string的配置项的值 |
Public Function WriteStrINI(ByVal sectionName As String, ByVal keyName As String, ByVal setValue As String, ByVal iniPath As String) As Integer |
Dim rc As Integer |
rc = WritePrivateProfileString(sectionName, keyName, setValue, iniPath) |
If rc Then |
rc = 1 |
End If |
WriteStrINI = rc |
End Function |
End Module |
