亚洲免费网站观看视频,国内精品99亚洲免费高清,亚洲男同gay片

View Post

VB讀寫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 & "\config.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 & "\config.ini"

Else

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

End If

Exit Function

WriteIniTFErr:

Err.Clear

WriteIniTF = False

End Function

'以下兩個函數,讀/寫ini文件,不固定節點,in_key為寫入/讀取的主鍵

'針對字符串值

'空值表示出錯

Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String

On Error GoTo GetIniStrErr

If VBA.Trim(In_Key) = "" Then

GoTo GetIniStrErr

End If

Dim GetStr As String

GetStr = VBA.String(128, 0)

GetPrivateProfileString AppName, In_Key, "", GetStr, 256, App.Path & "\config.ini"

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

If GetStr = "" Then

GoTo GetIniStrErr

Else

GetIniStr = GetStr

GetStr = ""

End If

Exit Function

GetIniStrErr:

Err.Clear

GetIniStr = ""

GetStr = ""

End Function

Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String) As Boolean

On Error GoTo WriteIniStrErr

WriteIniStr = True

If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then

GoTo WriteIniStrErr

Else

WritePrivateProfileString AppName, In_Key, In_Data, App.Path & "\config.ini"

End If

Exit Function

WriteIniStrErr:

Err.Clear

WriteIniStr = False

End Function

posted on 2005-11-30 20:34 MingIsMe 閱讀(604) 評論(0) 編輯收藏所屬分類: 05 微軟編程

Samuel Learning

文章分類(203)

新聞分類(52)

.NET資源

Ajax

Java開源

Mobile

WEB資源

Workflow

其他連接

大牛人

開源軟件

敏捷

數據庫

未歸類

經典框架

網絡教程

著名站點

項目管理

最新評論

View Post

VB讀寫INI文件