关于读取ini文件内容的问题，在线等，可行即给分，谢谢

Question

UP在搜索条件中打“ini”
就可以找到很多的贴子。

Answer 1

在当前目录下的ico.ini文件内容：
[ds]
server = "server"
[ds2]
database = "ds"
代码：
这句放在模块里：
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
窗体代码：Private Sub Command1_Click()
Label1.Caption = ReadIni("ds", "server") + "   " + ReadIni("ds2", "database ")
End Sub'自定义读取INI函數
Public Function ReadIni(ByVal section As String, ByVal key As String) As String
Dim x As Long, Buff As String * 128, i As Integer
x = GetPrivateProfileString(section, key, "", Buff, 128, App.Path + "\Ico.ini")
i = InStr(Buff, Chr(0))
ReadIni = Trim(Left(Buff, i - 1))
End Function

Answer 2

一个读写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 LongPublic 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函数：
Function ReadWriteINI(Mode As String, tmpSecname As String, tmpKeyname As String, Optional tmpKeyValue) As String
Dim tmpString As String 
On Error GoTo ReadWriteINIError 
ReadWriteINI = "OK" 
If IsNull(Mode) Or Len(Mode) = 0 Then 
ReadWriteINI = "ERROR MODE" ' Set the return value 
Exit Function 
End If 
If IsNull(tmpSecname) Or Len(tmpSecname) = 0 Then 
ReadWriteINI = "ERROR Secname" ' Set the return value 
Exit Function 
End If 
If IsNull(tmpKeyname) Or Len(tmpKeyname) = 0 Then 
ReadWriteINI = "ERROR Keyname" ' Set the return value 
Exit Function 
End If 
filename = "C:\Vbasic\Test\WinPlace.ini" ' <<<<<put your file name here 
If UCase(Mode) = "WRITE" Then 
If IsNull(tmpKeyValue) Or Len(tmpKeyValue) = 0 Then 
ReadWriteINI = "ERROR KeyValue"
Exit Function 
Else 
secname = tmpSecname 
keyname = tmpKeyname 
keyvalue = tmpKeyValue 
anInt = WritePrivateProfileString(secname, keyname, keyvalue,filename) 
End If 
End If 
If UCase(Mode) = "GET" Then 
secname = tmpSecname 
keyname = tmpKeyname 
defaultkey = "Failed" 
keyvalue = String$(50, 32) 
anInt = GetPrivateProfileString(secname, keyname, defaultkey, keyvalue, Len(keyvalue), filename) 
If Left(keyvalue, 6) <> "Failed" Then 
' *** got it 
tmpString = keyvalue 
tmpString = RTrim(tmpString) 
tmpString = Left(tmpString, Len(tmpString) - 1) 
End If 
ReadWriteINI = tmpString 
End If 
Exit Function ReadWriteINIError:
MsgBox Error Stop 
End Function