VB读写 INI配置文件.docVIP

VB读写 INI配置文件 Option Explicit Public iniFileName As String Public Declare Function GetPrivateProfileInt Libkernel32AliasGetPrivateProfileIntA(ByVal lpApplicationName As String,ByVal lpKeyName As String,ByVal nDefault As Long,ByVal lpFileName As String)As Long Public Declare Function GetPrivateProfileString Libkernel32AliasGetPrivateProfileStringA(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 Public Declare Function WritePrivateProfileString Libkernel32AliasWritePrivateProfileStringA(ByVal lpApplicationName As String,ByVal lpKeyName As Any,ByVal lpString As Any,ByVal lpFileName As String)As Long *获取Ini字符串值(Function)* Function GetIniS(ByVal SectionName As String,ByVal KeyWord As String,ByVal DefString As String)As String Dim ResultString As String*144,Temp As Integer Dim sAs String,i As Integer Temp%=GetPrivateProfileString(SectionName,Key Word,,ResultString,144,App.Path/iniFileName) 检索关键词的值 If Temp%0 Then关键词的值不为空 s= For i=1 To 144 If Asc(Mid$(ResultString,i,1))=0 Then Exit For Else s=sMid$(ResultString,i,1) End If Next Else Temp%=WritePrivateProfileString(SectionName,KeyWord,DefString,App.Path/iniFileName) 将缺省值写入INI文件 s=DefString End If GetIniS=s End Function *获取Ini数值(Function)* Function GetIniN(ByVal SectionName As String,ByVal KeyWord As String,ByVal DefValue As Long)As Integer Dim dAs Long,s As String d=DefValue GetIniN=GetPrivateProfileInt(SectionName,KeyWord,DefValue,App.Path/iniFileName) If dDefValue Then s=d d=WritePrivateProfileString(SectionName,KeyWord,s,App.Path/iniFileName) End If End Function *写入字符串值(Sub)* Sub SetIniS(ByVal SectionName As String,ByVal KeyWord As String,ByVal ValStr As String) Dim res% res%=WritePrivateProfileString(SectionName,KeyWord,ValStr,App.Path/iniFileName) End Sub *写入数值(Sub)* Sub SetIniN(ByVal SectionName As String,ByVal KeyWord As String,ByVal ValInt As Long) Dim res%,s$ s$=str$(ValInt) res%=WritePrivatePro