- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- xml解析和写入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106479)
-- 发布时间：2017/9/9 17:45:00
-- xml解析和写入问题
感谢有点蓝老师之前的引导。
我做了一个解析的案例，但是文件里的product number还有一些字段为什么提取不过来，size和其他几个有子参数怎么再拆分出来？
FT里关于xml的介绍太少了，我这个业余的看了网上的xml介绍有点懵。
我的问题是 第一个就是解析xml的问题，现在能读出来。另外如果要回写相关字段回去要怎么操作？
谢谢老师。
[此贴子已经被作者于2017/9/9 19:28:09编辑过]
-- 发布时间：2017/9/9 20:22:00
--
我试着将xml转出jason来解析
Dim xml As String = FileSys.ReadAllText("c:\\XML sample.xml")
Dim xo As XObject = XObject.Parse(xml)
Output.Show(xo.ToString())
output.show(xo("@number"))
output.show(xo("inks-number")) ‘’这里无法取数
Dim bms As JArray = xo("inks")
For i As Integer = 0 To bms.Count - 1
Output.show(bms(i)("name"))
Next
---------------------------
版本:2017.8.19.1
---------------------------
代码执行出错，错误信息：
System.InvalidCastException: 无法将类型为“Newtonsoft.Json.Linq.JObject”的对象强制转换为类型“Newtonsoft.Json.Linq.JArray”。
在 UserCode.Test()
---------------------------
确定
---------------------------
-- 发布时间：2017/9/10 12:12:00
--
-- 发布时间：2017/9/10 13:05:00
--
参考代码
Dim xmlDoc As New System.Xml.XmlDocument
xmlDoc.Load(ProjectPath & "xml\\XML sample.xml")
Dim ndList = xmlDoc.GetElementsByTagName("production-order")
For i As Integer = 0 To ndList.count - 1
Dim n = ndlist(i)
Dim number = ndlist(i).Attributes("number")
msgbox(number.value)
Next
-- 发布时间：2017/9/10 14:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:xml sample.rar |
Dim xml As String = FileSys.ReadAllText("c:\\XML sample.xml")
Dim xo As XObject = XObject.Parse(xml)
Output.Show(xo.ToString())
output.show(xo("@number"))
Dim jo As JObject = Jobject.Parse(xo.ToString())
If jo("inks")("ink") IsNot Nothing Then
For Each jt As JToken In jo("inks")("ink")
Output.Show("油墨名称:" & jt("name").ToString )
output.show("类型:" & jt("type").ToString)
output.show("类别:" & jt("book").ToString)
output.show("角度:" & jt("angle").ToString)
output.show("lpi::" & jt("lpi").ToString)
output.show("dot:" & jt("dot").ToString)
output.show("printingmethod:" & jt("printingmethod").ToString)
Next
End If
output.show(xo("quantity"))
output.show(xo("substrate"))
For Each jt As JToken In jo("size")
\'output.show("length:" & jt("length").ToString)
output.show(jt.ToString)
Next
请问老师 像size这个嵌套属于什么对象，怎么才能将它分解出来。像inks那个节点我参考帮助解析出来了。但是size不知道用什么方法来解析。还有如process。
我发现json比xml好理解一点。帮助里的例子启发很大但是知识点太少了。
-- 发布时间：2017/9/10 14:11:00
--
直接写
output.show(jo("size")("length").tostring)
-- 发布时间：2017/9/10 21:09:00
--
谢谢