查莉娅cosplay:VB读写INI文件的四个函数
来源:百度文库 编辑:中财网 时间:2024/05/19 23:33:43
VB读写INI文件的四个函数
发布时间:2008-04-03 10:46:38 来源:编程爱好者网站 作者:编程爱好者网站 点击:535
’文件名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
’以下两个函数,读/写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 & "\SourceDB.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 & "\SourceDB.ini"
End If
Exit Function
WriteIniStrErr:
Err.Clear
WriteIniStr = False
End Function
求读写ini文件的方法和对异常处理的方法(VB)
delphi7中关于文件读写的函数
VB文件读写问题
如何用 VB 读写文件?
如何用vb读写以二进制形式读写文件?
如何用VB读取、输出.ini文件
INI文件的问题
ini文件的作用
.ini文件的应用
VB中如何保存和读写多个text文件
请教vb的函数
vb 的日期函数
VB的函数问题。
VB的函数应用
VB的API函数
用vb读写文件时,写成的文本文件每行都有双引号,怎么才能把双引号去掉啊?
配置设置文件(ini文件)是如何实现与程序的关联的(特指用VB实现)?
[求助] VB 读出ini文件段名问题。。。急。在线等。。。
在VB中,用WritePrivateProfileString写入INI文件时出错!
VB中如何用api读取.ini文件
boot.ini文件的问题
正确的boot.ini文件
.ini 后缀的是什么文件?
BOOT.INI文件的问题。