[求助]XML解析 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，麻烦问一下如何解析以下格式xml数据（计划提取fa piao代码等信息）：

<?xml version="1.0" encoding="UTF-8"?>

-<ofd:OFD Version="1.1" DocType="OFD" xmlns:ofd="http://www.ofdspec.org/2016">

-<ofd:DocBody>

-<ofd:DocInfo>

<ofd:DocID>b6ae35f487e448bba27cb391fc7b840d</ofd:DocID>

<ofd:Author>China Tax</ofd:Author>

<ofd:CreationDate>2022-11-07</ofd:CreationDate>

-<ofd:CustomDatas>

<ofd:CustomData Name="template-version">1.0.20.0422</ofd:CustomData>

<ofd:CustomData Name="native-producer">SuwellFormSDK</ofd:CustomData>

<ofd:CustomData Name="producer-version">1.0.20.0603</ofd:CustomData>

<ofd:CustomData Name="fa piao代码">062001</ofd:CustomData>

<ofd:CustomData Name="fa piao号码">77610</ofd:CustomData>

<ofd:CustomData Name="合计税额">***</ofd:CustomData>

<ofd:CustomData Name="合计金额">362</ofd:CustomData>

<ofd:CustomData Name="开piao日期">2022年11月07日</ofd:CustomData>

<ofd:CustomData Name="校验码">17431 86442 88824 2</ofd:CustomData>

<ofd:CustomData Name="购买方纳税人识别号">91622922MA73</ofd:CustomData>

<ofd:CustomData Name="销售方纳税人识别号">93621202MA73</ofd:CustomData>

</ofd:CustomDatas>

</ofd:DocInfo>

<ofd:DocRoot>Doc_0/Document.xml</ofd:DocRoot>

<ofd:Signatures>Doc_0/Signs/Signatures.xml</ofd:Signatures>

</ofd:DocBody>

</ofd:OFD>

帮助文件：http://www.foxtable.com/mobilehelp/topics/0171.htm

看了半天没有看懂，麻烦老师指导一下，谢谢！

[此贴子已经被作者于2022/11/16 11:25:07编辑过]

转换为json。然后按json的方式取值即可

Dim xml As String = "<xml><to>George</to><from>John</from><content>Don't forget the meeting!</content></xml>"

Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)

Output.Show(xo.ToString)

‘蓝老师，运行不起来，麻烦再给修改一下，谢谢！

Dim fl As String = "E:\开发的程序\出纳日记账\Reports\2022111612372327553\OFD.XML"

Dim xml As String = FileSys.ReadAllText(FL)

Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)

Output.Show(xo.ToString)

Dim json As String = xo.ToString

Dim jo As JObject = JObject.Parse(json)

For Each jt As JToken In jo("ofd:CustomData")

Output.Show(jt("@Name").ToString & "|" & jt("#text").ToString)

此主题相关图片如下：微信截图_20221116124654.png

Output.Show(xo.ToString)显示什么内容？

{

"@xmlns:ofd": "http://www.ofdspec.org/2016",

"@DocType": "OFD",

"@Version": "1.1",

"ofd:DocBody": {

"ofd:DocInfo": {

"ofd:DocID": "b6ae35f487e448bba27cb391fc7b840d",

"ofd:Author": "China Tax",

"ofd:CreationDate": "2022-11-07",

"ofd:CustomDatas": {

"ofd:CustomData": [

{

"@Name": "template-version",

"#text": "1.0.20.0422"

{

"@Name": "native-producer",

"#text": "SuwellFormSDK"

{

"@Name": "producer-version",

"#text": "1.0.20.0603"

{

"@Name": "fa piao代码",

"#text": "06200190"

{

"@Name": "fa piao号码",

"#text": "77610"

{

"@Name": "合计税额",

"#text": "***"

{

"@Name": "合计金额",

"#text": "3625.00"

{

"@Name": "开piao日期",

"#text": "2022年11月07日"

{

"@Name": "校验码",

"#text": "17431 86442 8882"

{

"@Name": "购买方纳税人识别号",

"#text": "916922MA73J85"

{

"@Name": "销售方纳税人识别号",

"#text": "9362134H0D7L"

}

]

}

"ofd:DocRoot": "Doc_0/Document.xml",

"ofd:Signatures": "Doc_0/Signs/Signatures.xml"

}

和普通的json解析没有区别啊，一层一层的取值：http://www.foxtable.com/mobilehelp/topics/0252.htm

Dim fl As String = "E:\开发的程序\出纳日记账\Reports\2022111612372327553\OFD.XML"

Dim xml As String = FileSys.ReadAllText(FL)

Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)

For Each jt As JToken In xo("ofd:DocBody")("ofd:DocInfo")("ofd:CustomDatas")("ofd:CustomData")

Output.Show(jt("@Name").ToString & "|" & jt("#text").ToString)

感谢蓝版，明知道是嵌套格式，功力不够，看的眼花缭乱！

主题：[求助]XML解析