主题：请教ini文件

大师：见实例文件，请问如何读取到科目块各个字段键的值

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:shcz22.rar

参考

 

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，那么相同的键，怎么办？好像都读取的是第一个值？怎么改ini参考？

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

谢谢！看懂了。