以文本方式查看主题

-  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=162978)
--  作者：keli0917
--  发布时间：2021/4/19 13:36:00
--  这种不对称的要如何生成XML

<?xml version="1.0" encoding="GBK"?>
 <business comment="发票开具" id="FPKJ">
  <REQUEST_COMMON_FPKJ class="REQUEST_COMMON_FPKJ">
   <COMMON_FPKJ_FPT class="COMMON_FPKJ_FPT">
    <FPQQLSH>2104181724080000001</FPQQLSH>
    <KPLX>0</KPLX>
    <BMB_BBH>38.0</BMB_BBH>
    <XSF_NSRSBH></XSF_NSRSBH>
    <XSF_MC></XSF_MC>
    <XSF_DZDH></XSF_DZDH>
    <XSF_YHZH></XSF_YHZH>
    <GMF_NSRSBH></GMF_NSRSBH>
    <GMF_MC>1</GMF_MC>
    <GMF_DZDH></GMF_DZDH>
    <GMF_YHZH></GMF_YHZH>
    <KPR> </KPR>
    <SKR> </SKR>
    <FHR> </FHR>
    <YFP_DM></YFP_DM>
    <YFP_HM></YFP_HM>
    <JSHJ>385.01</JSHJ>
    <HJJE>373.79</HJJE>
    <HJSE>11.22</HJSE>
    <HSBZ>0</HSBZ>
    <BZ></BZ>
   </COMMON_FPKJ_FPT>
   <COMMON_FPKJ_XMXXS class="COMMON_FPKJ_XMXX" size="1">
    <COMMON_FPKJ_XMXX>
     <FPHXZ>0</FPHXZ>
     <SPBM>1090413010100000000</SPBM>
     <ZXBM></ZXBM>
     <YHZCBS></YHZCBS>
     <LSLBS></LSLBS>
     <ZZSTSGL></ZZSTSGL>
     <XMMC>5号电池</XMMC>
     <GGXH>非充电,碱性</GGXH>
     <DW>个</DW>
     <XMSL>1</XMSL>
     <XMDJ>0.970873786408</XMDJ>
     <XMJE>0.970873786408</XMJE>
     <SL>0.03</SL>
     <SE>0.03</SE>
     <KCE>0.0</KCE>
    </COMMON_FPKJ_XMXX>
    <COMMON_FPKJ_XMXX>
     <FPHXZ>0</FPHXZ>
     <SPBM>1090413050000000000</SPBM>
     <ZXBM></ZXBM>
     <YHZCBS></YHZCBS>
     <LSLBS></LSLBS>
     <ZZSTSGL></ZZSTSGL>
     <XMMC>电池</XMMC>
     <GGXH>2# 1.5v</GGXH>
     <DW>个</DW>
     <XMSL>2</XMSL>
     <XMDJ>1.941747572816</XMDJ>
     <XMJE>3.883495145631</XMJE>
     <SL>0.03</SL>
     <SE>0.12</SE>
     <KCE>0.0</KCE>
    </COMMON_FPKJ_XMXX>
    <COMMON_FPKJ_XMXX>
     <FPHXZ>0</FPHXZ>
     <SPBM>1080128030000000000</SPBM>
     <ZXBM></ZXBM>
     <YHZCBS></YHZCBS>
     <LSLBS></LSLBS>
     <ZZSTSGL></ZZSTSGL>
     <XMMC>砂纸</XMMC>
     <GGXH>600目</GGXH>
     <DW>张</DW>
     <XMSL>10</XMSL>
     <XMDJ>9.708737864078</XMDJ>
     <XMJE>97.087378640777</XMJE>
     <SL>0.03</SL>
     <SE>2.91</SE>
     <KCE>0.0</KCE>
    </COMMON_FPKJ_XMXX>
   </COMMON_FPKJ_XMXXS>
  </REQUEST_COMMON_FPKJ>
 </business>

 

 

上面标红色的，这种不对称的如何用

用XObject生成XML
--  作者：有点蓝
--  发布时间：2021/4/19 14:12:00
--  
Dim jo As New Foxtable.XObject
jo("@id") = "FPKJ"
jo("REQUEST_COMMON_FPKJ") = new  JObject
jo("REQUEST_COMMON_FPKJ")("@class") = "REQUEST_COMMON_FPKJ"
jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_FPT") = new  JObject
jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_FPT")("@class") = "COMMON_FPKJ_FPT"
jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_FPT")("FPQQLSH") = "2104181724080000001"
\'其它属性
jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_XMXXS") = new  JObject
jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_XMXXS")("@class") = "COMMON_FPKJ_XMXX"
\'其它属性
Dim ja As New JArray
Dim so As new JObject
so("FPHXZ") = 0
so("FPHXZ") = "1090413010100000000"
\'其它属性
ja.Add(so)

so = new JObject
so("FPHXZ") = 0
so("FPHXZ") = "1090413050000000000"
\'其它属性
ja.Add(so)
jo("REQUEST_COMMON_FPKJ")("COMMON_FPKJ_XMXXS")("COMMON_FPKJ_XMXX") = ja

Dim jo2 As New Foxtable.XObject
jo2("business") = jo
Output.Show(jo2.ToXML)