参考

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"

If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, EnCoding.Default)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split("=")
        If cs.Length >= 2 Then
            output.show(cs(0) & " " & cs(1))
        End If
    Next
End If

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"

If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName, EnCoding.Default)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    Dim flag As Boolean = False
    For i As Integer = 0 To rs.Length - 1
        If rs(i).StartsWith("[") AndAlso rs(i).EndsWith("]") Then
            If rs(i) = "[科目]" Then
                flag = True
            Else
                flag = False
            End If
        End If
        If flag Then
            Dim cs() As String = rs(i).Split("=")
            If cs.Length >= 2 Then
                output.show(cs(0) & " " & cs(1))
            End If
        end if
    Next
End If

如果读取ini参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40490&skin=0

标准ini不能这样做。参考4楼方法处理吧，看懂代码。