怎么读写INI文件？

[intocsdn]

请教：
我想自己建一个INI文件，该用什么API函数？怎么进行读、写？

[rainstormmaster]

http://expert.csdn.net/Expert/topic/2450/2450394.xml?temp=.309704

[subzero]

这个问题最近问的还真不少

Public File As String

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 Integer, ByVal lpFileName As String) As Integer
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal Appname As String, ByVal KeyName As Any, ByVal NewString As Any, ByVal FileName As String) As Integer

Sub DeleteSection(ByVal Section As String)
Dim retval As Integer
retval = WritePrivateProfileString(Section, 0&, "", File)
End Sub

Public Function SaveSetting(ByVal Section$, ByVal Key$, ByVal Value$)
Dim retval As Integer
SaveSetting = WritePrivateProfileString(Section$, Key$, Value$, File)
End Function

Public Function GetSetting(ByVal Section As String, ByVal KeyName As String) As String
Dim retval As Integer
Dim t As String * 255

retval = GetPrivateProfileString(Section, KeyName, "unknown value", t, Len(t), File)

If retval > 0 Then
GetSetting = Left$(t, retval)
Else
GetSetting = ""
End If
End Function

Public Function GetSection(ByVal Section As String, KeyArray() As String) As Integer
Dim retval As Integer
Dim t As String * 2500
Dim lastpointer As Integer
Dim nullpointer As Integer
Dim ArrayCount As Integer
Dim keystring As String

ReDim KeyArray(0)

retval = GetPrivateProfileString(Section, 0&, "", t, Len(t), File)

If retval > 0 Then
nullpointer = InStr(t, Chr$(0))
lastpointer = 1
Do While (nullpointer <> 0 And nullpointer > lastpointer + 1)
keystring = Mid$(t, lastpointer, nullpointer - lastpointer)
ArrayCount = ArrayCount + 1
ReDim Preserve KeyArray(ArrayCount)
KeyArray(ArrayCount) = keystring
lastpointer = nullpointer + 1
nullpointer = InStr(nullpointer + 1, t, Chr$(0))
Loop
End If
GetSection = ArrayCount
End Function

[zt31]

学习ing

[lsm0959]

getprivateprofilestring
getprivateprofileint

writeprivateprofilestring
writeprivateprofileint

自己的INI基本上就这几个，参数很简单，一看就明白了

[intocsdn]

非常感谢，我已经会用了。