vb6 XMLファイル出力について<S></S>
vb6にてXMLファイル出力のプログラムを作成しています。
XMLファイル内容
<?xml version="1.0" encoding="UTF-8"?>
<root>
<key>AA</key>
<string>aa</string>
<key>BB</key>
<string/>
</root>
上記の<string/>の部分を<string></string>のように出力したいのですが、
どうしても上手くいきません。
下記にソースを記載します。
何か少しでもお分かりになる情報がありましたらご教授願いします。
よろしくお願いします。
Dim xmlDoc As MSXML2.DOMDocument 'XMLドキュメント
Dim xmlPI As IXMLDOMProcessingInstruction 'XML宣言
Dim node(50) As IXMLDOMNode '要素
Dim attr As MSXML2.IXMLDOMAttribute '属性
'XMLドキュメントを作成
Set xmlDoc = New MSXML2.DOMDocument
'XML宣言を追加
Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"""))
'<root>要素を追加
Set node(1) = xmlDoc.appendChild(xmlDoc.createNode(NODE_ELEMENT, "root", ""))
'<key>要素を追加
Set node(2) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "key", ""))
node(2).Text = "AA"
'<string>要素を追加
Set node(3) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "string", ""))
node(3).Text = "aa"
'<key>要素を追加
Set node(4) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "key", ""))
node(4).Text = "BB"
'<string>要素を追加
Set node(5) = node(1).appendChild(xmlDoc.createNode(NODE_ELEMENT, "string", ""))
node(5).Text = ""
'XMLドキュメントの出力
Dim strXMLFile As String
strXMLFile = Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
xmlDoc.save ("C:TEST\TEST.xml")
'終了処理
If Not xmlDoc Is Nothing Then Set xmlDoc = Nothing
If Not xmlPI Is Nothing Then Set xmlPI = Nothing