VB 读和写配置文件
一个配置文件 config.ini
[FZ34566峰值参数]
判断系数=.1
过滤点数=2
[GB3567峰值参数]
判断系数=.1
过滤点数=8
读
Public Function GetIniStr(ByVal AppName As String, ByVal InKey As String, ByVal FileName As String) As String
On Error GoTo GetIniStrErr
If Len(Trim(InKey)) = 0 Then
GoTo GetIniStrErr
End If
Dim GetStr As String
GetStr = String(256, 0)
GetPrivateProfileString AppName, InKey, "", GetStr, 256, FileName
GetStr = Replace(GetStr, Chr(0), "")
If Len(GetStr) = 0 Then
GoTo GetIniStrErr
Else
GetIniStr = GetStr
GetStr = ""
End If
Exit Function
GetIniStrErr:
' Err.Clear
GetIniStr = ""
GetStr = ""
End Function
写
Public Function WriteInifile(ByVal Section As String, ByVal InKey As String, _
ByVal InData As String, ByVal FileName As String) As Boolean
On Error GoTo WriteInifileErr
WriteInifile = True
WritePrivateProfileString Section, InKey, InData, FileName
Exit Function
WriteInifileErr:
Err.Clear
WriteInifile = False
End Function
例如：
写数据：
Public 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
Public 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
Private Sub mnuGLD3917_Click()
Dim s As String
s = InputBox("请输入GB/T 3567峰值过滤点数", "调整峰值过滤点数", Format(GB3917Interval, "##0"))
If Len(s) <> 0 Or Val(s) <> 0 Then
GB3567Interval = Val(s)
WriteInifile "GB3567峰值参数", "过滤点数", GB3567Interval, App.Path & Config.ini
End If
End Sub