Imports System.Runtime.InteropServices.Marshal Imports System.Xml Imports System.Xml.Linq '------------------------------------------------------- Module OutXml Sub OutXmlTest() Dim Doc As New XDocument() Dim Declaration As New XDeclaratio…

ちょっとメモ Dim tempE, targetE As IXMLDOMElement Dim temStr1, temStr2, temStr3 As String Set targetE = tempE.selectSingleNode("title[text()='" & temStr1 & "']") Set targetE = tempE.selectSingleNode("book[title/text()='" & temStr1 & "']") …

特殊記号 概要 例 / 直下の要素 parts/code<parts>要素直下の<code>要素 // すべての子孫 parts//name<parts>要素配下の全ての<name>要素 . 現在の要素 ./categoryコンテキスト（現在の）ノード直下の<category>要素 ∗ すべての子要素 parts/∗<parts>要素直下の全要素 @ 属性名の接頭辞 parts/@type<parts>要素</parts></parts></category></name></parts></code></parts>…

<xsl:text disable-output-escaping="yes">&lt;</xsl:text> 出力

<xsl:output method="出力形式（xml|html|text）" indent="yes"></xsl:output>

Imports System.Xml Sub Main() Dim item As New XmlDocument() item.Load("C:\Sample\link.xml") Dim cbase As XmlElement = item.DocumentElement For i As Integer = 0 To cbase.ChildNodes.Count - 1 CType(cbase.ChildNodes(i), XmlElement).SetAttribu…