Foxtable(狐表)用户栏目专家坐堂 → xml文件提取


  共有2034人关注过本帖树形打印复制链接

主题:xml文件提取

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 15:40:00 [显示全部帖子]

https://www.baidu.com/baidu?word=xml%E8%A7%A3%E6%9E%90&ie=utf-8&tn=myie2dg&ch=6

Dim document As New System.Xml.XmlDocument
document.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><iDLabelInfo>    <ProductName>LUNAR FLYKNIT 3 iD</ProductName>    <Sizes>        <sz SizeCode=""12.5"" SizeType=""us"" />        <sz SizeCode=""11"" SizeType=""uk"" />    </Sizes>    <MainColorway>Black Heather/Volt/white</MainColorway>    <DesignedBy>Hiroyuki Sugiyama</DesignedBy>    <ImageURL>ttp://origin-nikeid.nike.com//services/imgredirect/mtr-802081658/bgc-na/wid-574/vw-9</ImageURL>    <WorkOrderNumber>W00001</WorkOrderNumber></iDLabelInfo>")
Output.Show(document.DocumentElement("ProductName").InnerText)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/10 9:00:00 [显示全部帖子]

提取出内容,自己想怎么处理都可以。

Dim document As New System.Xml.XmlDocument
document.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><iDLabelInfo>    <ProductName>LUNAR FLYKNIT 3 iD</ProductName>    <Sizes>        <sz SizeCode=""12.5"" SizeType=""us"" />        <sz SizeCode=""11"" SizeType=""uk"" />    </Sizes>    <MainColorway>Black Heather/Volt/white</MainColorway>    <DesignedBy>Hiroyuki Sugiyama</DesignedBy>    <ImageURL>ttp://origin-nikeid.nike.com//services/imgredirect/mtr-802081658/bgc-na/wid-574/vw-9</ImageURL>    <WorkOrderNumber>W00001</WorkOrderNumber></iDLabelInfo>")
For Each n As Xml.XmlNode In document.DocumentElement.ChildNodes
    If n.Name <> "#text" Then
        Output.Show(n.Name & "=" & n.InnerText)
    End If
    For Each n1 As Xml.XmlNode In n.ChildNodes
        If n1.Attributes IsNot Nothing Then
            For Each xa As Xml.XmlAttribute In n1.Attributes
                Output.Show(xa.Name & "=" & xa.Value)
            Next
        End  If
    Next
Next

 回到顶部