读写INI文件的四个函数

新客网 XKER.COM 2007-02-01 来源：收藏本文

　　'文件名SourceDB.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

　　

　　'以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键

　　'仅仅针对是非值

　　'Y：yes,N：no,E：error

　　Public Function GetIniTF(ByVal In_Key As String) As Boolean

　　On Error GoTo GetIniTFErr

　　GetIniTF = True

　　Dim GetStr As String

　　GetStr = VBA.String(128, 0)

　　GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "\SourceDB.ini"

　　GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")

　　If GetStr = "1" Then

　　 GetIniTF = True

　　 GetStr = ""

　　Else

　　 GoTo GetIniTFErr

　　End If

　　Exit Function

　　GetIniTFErr:

　　 Err.Clear

　　 GetIniTF = False

　　 GetStr = ""

　　End Function

　　

　　Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean

　　On Error GoTo WriteIniTFErr

　　WriteIniTF = True

　　If In_Data = True Then

　　 WritePrivateProfileString "Setting", In_Key, "1", App.Path & "\SourceDB.ini"

　　Else

　　 WritePrivateProfileString "Setting", In_Key, "0", App.Path & "\SourceDB.ini"

　　End If

　　Exit Function

　　WriteIniTFErr:

　　 Err.Clear

　　 WriteIniTF = False

　　End Function

上一篇：去掉窗体的关闭按钮下一篇：VB编程的一些基础的问题

【收藏】【评论】【推荐】【投稿】【打印】【关闭】