利用 Xml Literal 功能复制一段 Xml
Function CopyXml(ByVal element As XElement)
Dim xml = <<%= element.Name %> <%= element.Attributes %>>
<%= From x In element.Nodes _
Where x.NodeType <> System.Xml.XmlNodeType.Element _
Select x %>
<%= From x In element.Elements %>
</>
Return xml
End Function
Dim xml = <<%= element.Name %> <%= element.Attributes %>>
<%= From x In element.Nodes _
Where x.NodeType <> System.Xml.XmlNodeType.Element _
Select x %>
<%= From x In element.Elements %>
</>
Return xml
End Function
这个例子的目的是练习如何进行 Xml 文档转换,以替代以前 xslt 的功能。
在 <%= %> 中可以嵌入递归调用,这样就能做任意层次的文档转换,xslt 可以完全扔掉了。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步