关于INI文件的问题

Question

INI文件中节点定义如下：
[section1]
[section2]
[section3]
.
.
.
.
如何获取最后一个节点的名称

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 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
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 LongPrivate Sub Form_Load()
    Open "C:\aa.ini" For Output As #1
    Print #1, "文件内容"
    Close #1
End SubPrivate Sub Label1_Click()
On Error GoTo Errhandle
    ShellExecute Me.hwnd, "open", "www.sohu.com", vbNullString, vbNullString, 1
    Exit Sub
Errhandle:
    MsgBox Err.Description & "！", vbInformation
End Sub'写INI文件
Private Sub Command1_Click()
    Dim Counter As Long    For Counter = 1 To 4
        Call WriteToIni(App.Path & "\Options.ini", "Test", "Name" & Counter, "Value" & Counter)
    Next Counter
End Sub'读INI文件
Private Sub Command2_Click()
    Dim Counter As Long
    Dim Value(3) As String    For Counter = 1 To 4
        Value(Counter - 1) = ReadFromIni(App.Path & "\Options.ini", "Test", "Name" & Counter)
    Next Counter
End Sub

Answer 2

用api函数GetPrivateProfileString 直接就可以呀

Answer 3

记录最大的编号是未知的
请教射天狼,您的程序中: ReadFromIni,WriteToIni函数定义在哪儿

Answer 4

用api函数GetPrivateProfileString 直接就可以呀
或下一个INI类用

Answer 5

查GetPrivateProfileString 函数及相关可以！

Answer 6

zhuqingxipy的意思是如何获取最后一个节点的名称,
INI文件一般是配置文件吧,节点名称应该是固定已经知道的,怎么还要获取呢?

Answer 7

我不知道最后一个节点的名称，只是节点的命名有点规律
[section1]
[section2]
.
.
.
[sectionN] (N=1,2.......K)
N具体是多少未知