vb读取ini的问题 快来

来源：百度知道 编辑：UC知道 时间：2024/06/17 23:49:13
ini文件：a.ini
[1]
1=1

怎么检验text1的内容等于a.ini的内容是否相同

给你个函数吧

Public Static Function GPPFS(AppName As String, KeyName As String, Optional DefaultValue As String, Optional ByVal lpFileName, Optional Buffer As Long = 1024) As String
Dim f As String
If lpFileName <> "" Then f = lpFileName
GPPFS = String(Buffer, 0)
GetPrivateProfileString AppName, KeyName, DefaultValue, GPPFS, Buffer, f
GPPFS = left(GPPFS, instr(GPPFS,vbnulllchar)-1)
End Function

检验：
if text1.text=GPPFS("1","1",,"a.ini") then
'处理你的代码
end if