GINPRO / SQLの窓と銀プログラマ

' DOM Object 作成
Set dom = CreateObject("Msxml2.DOMDocument")

' 既存 XML 入力
' http://ginpro.winofsql.jp/index20.rdf
dom.load( "index20.rdf" )

' 既存のノード( channel ) を取得
Set nodeList = dom.getElementsByTagName("channel")

' 新規ノードを作成( createElement でも良い )
Set node = dom.createNode( 1, "item", "" )
' Set node = dom.createElement( "item" )

' *****************************
' title ノードを作成
' *****************************
Set nodeChild = dom.createElement("title")
' テキストノードを作成して title ノードに追加
nodeChild.appendChild( dom.createTextNode("これは") )
' item ノードに titile ノードを追加
node.appendChild( nodeChild )

' *****************************
' content ノードを作成( CDATA セクションを使用します )
' *****************************
Set nodeChild = dom.createElement("content:encoded")
Set CDATASection = dom.createCDATASection( vbCrLf & "本文" & vbCrLf )
nodeChild.appendChild( CDATASection )
node.appendChild( nodeChild )

' *****************************
' link ノードを作成
' *****************************
Set nodeChild = dom.createElement("link")
nodeChild.appendChild( dom.createTextNode("SHIFT_JIS ですが") )
node.appendChild( nodeChild )

' *****************************
' description ノードを作成
' *****************************
Set nodeChild = dom.createElement("description")
nodeChild.appendChild( dom.createTextNode("オブジェクトになると") )
node.appendChild( nodeChild )

' *****************************
' category ノードを作成
' *****************************
Set nodeChild = dom.createElement("category")
nodeChild.appendChild( dom.createTextNode("内部コードに") )
node.appendChild( nodeChild )

' *****************************
' author ノードを作成
' *****************************
Set nodeChild = dom.createElement("author")
nodeChild.appendChild( dom.createTextNode("変換されます") )
node.appendChild( nodeChild )


' channel ノードは、一つしか無いので、nodeList(0) で参照
' channel ノードの下に item ノードを追加
nodeList(0).appendChild( node )

' 保存
dom.save( "data.xml" )


'<channel>
'	<item>
'		<title>aaaaa</title>
'		<content:encoded><![CDATA[bbbbb]]></content:encoded>
' 		<link>ccccc</link> 
' 		<description>ddddd</description> 
'		<category>eeeee</dc:subject> 
'		<author>fffff</dc:date> 
'	</item>
'		<---- ここに追加
' </channel>