VBA 读取ini 继续从头遍历while eof(1) 怎么写

在VBA中读取ini文件并使用`While EOF(1)`循环遍历每一项，通常你会使用`Open`函数打开文件，然后逐行读取。以下是一个简单的示例：

Sub ReadIniFile()
    Dim iniPath As String ' ini文件路径
    Dim line As String ' 用于存储一行的数据
    Dim section As String ' 当前section
    Dim key As String ' 当前key
    Dim value As String ' 对应的value

    iniPath = "C:\path\to\your.ini" ' 更改为你实际的ini文件路径
    
    Open iniPath For Input As #1 ' 打开ini文件

    ' 初始化变量
    section = ""
    line = ""

    ' 开始读取文件
    Do While Not EOF(1)
        Line Input #1, line ' 读取一行
        If Left(line, 1) = "[" Then ' 如果开始处是[，则可能是一个新的section
            If Len(section) > 0 Then ' 如果当前有section，关闭上一个
                Close #1 ' 关闭文件
                Exit Sub ' 结束循环
            End If
            section = Mid(line, 2, InStr(line, "]") - 1) ' 提取section名
            Seek #1, 0 ' 移动到文件开头继续读取
        Else ' 否则是键值对
            key = Split(line, "=")(0) ' 提取key
            value = Split(line, "=")(1) ' 提取value
            ' 在这里处理key-value对
            Debug.Print "Section: " & section & ", Key: " & key & ", Value: " & value ' 示例输出
        End If
    Loop

    Close #1 ' 完成读取后关闭文件
End Sub