如何编写这样的子程序-关于读取INI文件的内容

Question

我有一个INI文件connect.ini
[config] 
dbip=192.168.1.1
datebase=db
userid=sa
password=
我在连接数据库的时候需要调用ini文件的内容
userid = GetPrivateProfileString("config", "userid", "", 256, "c:\config.ini")
db = GetPrivateProfileString("config", "datebase", "", 256, "c:\config.ini")
userid = GetPrivateProfileString("config", "userid", "", 256, "c:\config.ini")
pwd = GetPrivateProfileString("config", "password", "", 256, "c:\config.ini")请教GetPrivateProfileString这个调用程序怎么写？

Answer 1

'Module code
'操作ini文件
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'从setup.ini读信息
Public Function GetMyINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetMyINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", _
              RetStr, Len(RetStr), FileName))
End Function'form1 code dim userid as string
userid =GetMyINI("config", "userid", "c:\config.ini")

Answer 2

建议对字符串编码，因为"="是不能直接出现的。 
如楼上所述，GetPrivateProfileString() API