关于VB读取INI的问题

来源：百度知道 编辑：UC知道 时间：2024/07/03 00:56:04
例如：

[section1]
keyword1=xxx
keyword2=xxx
......

怎样才能顺序读取section1下的全部键值？这些键值名称的最后一位是顺序递增的数字。

谢谢各位！

假设配置文件在程序路径下，名称“profile.ini”。
'读写配置文件
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 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 lpFileName As String) As Long
'写入配置文件
Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String)
Dim res%
res% = WritePrivateProfileString(SectionName, KeyWord, ValStr, App.Path & "\Profile.ini")
End Sub

'读取配置文件
Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String
Dim llLen As Lon