Dim strData As String, strBuf As StringDim strArr(), i As IntegerOpen "C:\Myini.ini" For Input As #1Do While Not EOF(1)Line Input #1, strBufstrData = strData & strBuf & vbNewLineLoopClose #1strArr = Split(strData, vbNewLine)For i = 0 To UBound(strArr)If strArr(i) Like "
" Then
Me.Print strArr(i)End IfNext' 窗体上打印出了 INI 文件中的每个小节名