＋设为首页 ＋添加到收藏夹
程序的一些配置如何读写到INI文件里呀
如：
INI文件如下：
[ CAPTION ]
form1.caption = "中国软件"
datetime=2003-09-24
[ TIME ]
timeout = 900
[ DATA ]
path="c:/www.dat"
......
我在VB中如何迅速的找到相应值，读取或修改他
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString 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 lplFileName As String) As Long
Private R As Long
Private entry As String
Private iniPath As String
Private Sub Form_Load()
iniPath$ = Qpath & "set.ini" Qpath 为当前程序路径
End Sub
Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function
Text2 = GetFromINI("dwbm", "1J", iniPath)取出ini文件中字段的内容
R = WritePrivateProfileString("dwbm", "1J", Text2.Text, iniPath)保存到ini文件中相应字段的内容
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
dim nRet as long
sTemp = Space(255)
nRet = GetPrivateProfileString("CAPTION","datetime", "", sTemp, 255, IniFilePath) IniFilePath 是ini文件的完整路徑
if nRet>0 then
datetime = Trim(Left(sTemp, InStr(1, sTemp, Chr(0), vbTextCompare) - 1))
end if
nRet = WritePrivateProfileString("CAPTION","datetime", "2003-09-24", 255, IniFilePath) IniFilePath 是ini文件的完整路徑
我也有和你一样的问题，下面这篇文章，帮助我解决了问题
http://expert.csdn.net/Expert/topic/2251/2251491.xml?temp=.1101801
