VB函数：枚举得到INI配置文件中所有小节名串

'功能：枚举得到INI配置文件中所有小节名串
'返回：小节名1``小节名2``......``小节名X（以``分隔）
'示例：Print EnumAllSectionsInINIFile("E:\消息发布器（配置）.ini")
'返回：当前位置``登录帐户
'原理是根据INI文件中，小节名即在[]中的部分'
'后面使用可以用以下格式:
'SectionArray = Split(函数返回值, "``")
'For lngXX = 0 To UBound(SectionArray)
'    Print SectionArray (lngXX)
'Next
Public Function EnumAllSectionsInINIFile(INIFile) As String

    If FileExist(INIFile) Then
        TmpFileNum1 = FreeFile
        Open INIFile For Input As #TmpFileNum1

        Do While Not EOF(TmpFileNum1)
            Line Input #TmpFileNum1, TmpStr$
            TmpStr$ = Trim$(TmpStr$)

            If Left$(TmpStr$, 1) = "[" And Right$(TmpStr$, 1) = "]" Then
                '去掉前后的[]
                TmpStr$ = Mid$(TmpStr$, 2, Len(TmpStr$) - 2)

                EnumAllSectionsInINIFile = EnumAllSectionsInINIFile & TmpStr$ & "``"
            End If

        Loop

        '删除最后的两个"``"
        EnumAllSectionsInINIFile = Left$(EnumAllSectionsInINIFile, Len(EnumAllSectionsInINIFile) - 2)
        Close #TmpFileNum1
    End If

End Function