- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教ini文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98228)
-- 发布时间：2017/3/26 20:44:00
-- 请教ini文件
大师：见实例文件，请问如何读取到科目块各个字段键的值
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:shcz22.rar |
-- 发布时间：2017/3/27 0:03:00
--
参考
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
-- 发布时间：2017/3/27 10:41:00
--
谢谢！能否分类读取，比如[科目类]的，凭证类的字段值？
-- 发布时间：2017/3/27 10:48:00
--
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
-- 发布时间：2017/3/27 10:49:00
--
如果读取ini参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40490&skin=0
-- 发布时间：2017/3/27 10:59:00
--
谢谢！如果读取ini，那么相同的键，怎么办？好像都读取的是第一个值？怎么改ini参考？
-- 发布时间：2017/3/27 11:07:00
--
标准ini不能这样做。参考4楼方法处理吧，看懂代码。
-- 发布时间：2017/3/27 11:14:00
--
谢谢！看懂了。