VB6.0读写INI文件的四个函数

 

1.     
2. 读写INI文件的四个函数
3. 发表日期：2006-08-23作者：[转贴] 出处：  
5. '文件名SourceDB.ini文件
6. 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
8. 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
10.  
12. '以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
14. '仅仅针对是非值
16. 'Y：yes,N：no,E：error
18. Public Function GetIniTF(ByVal In_Key As String) As Boolean
20. On Error GoTo GetIniTFErr
22. GetIniTF = True
24. Dim GetStr As String
26. GetStr = VBA.String(128, 0)
28. GetPrivateProfileString "Setting", In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
30. GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
32. If GetStr = "1" Then
34. GetIniTF = True
36. GetStr = ""
38. Else
40. GoTo GetIniTFErr
42. End If
44. Exit Function
46. GetIniTFErr:
48. Err.Clear
50. GetIniTF = False
52. GetStr = ""
54. End Function
56.  
58. Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
60. On Error GoTo WriteIniTFErr
62. WriteIniTF = True
64. If In_Data = True Then
66. WritePrivateProfileString "Setting", In_Key, "1", App.Path & "/SourceDB.ini"
68. Else
70. WritePrivateProfileString "Setting", In_Key, "0", App.Path & "/SourceDB.ini"
72. End If
74. Exit Function
76. WriteIniTFErr:
78. Err.Clear
80. WriteIniTF = False
82. End Function
85. '以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
86. '针对字符串值
88. '空值表示出错
90. Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String
92. On Error GoTo GetIniStrErr
94. If VBA.Trim(In_Key) = "" Then
96. GoTo GetIniStrErr
98. End If
100. Dim GetStr As String
102. GetStr = VBA.String(128, 0)
104. GetPrivateProfileString AppName, In_Key, "", GetStr, 256, App.Path & "/SourceDB.ini"
106. GetStr = VBA.Replace(GetStr, VBA.Chr(0), "")
108. If GetStr = "" Then
110. GoTo GetIniStrErr
112. Else
114. GetIniStr = GetStr
116. GetStr = ""
118. End If
120. Exit Function
122. GetIniStrErr:
124. Err.Clear
126. GetIniStr = ""
128. GetStr = ""
130. End Function
132.  
134. Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String) As Boolean
136. On Error GoTo WriteIniStrErr
138. WriteIniStr = True
140. If VBA.Trim(In_Data) = "" Or VBA.Trim(In_Key) = "" Or VBA.Trim(AppName) = "" Then
142. GoTo WriteIniStrErr
144. Else
146. WritePrivateProfileString AppName, In_Key, In_Data, App.Path & "/SourceDB.ini"
148. End If
150. Exit Function
152. WriteIniStrErr:
154. Err.Clear
156. WriteIniStr = False
158. End Function