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
お礼
すばやい回答ありがとうございます。 結局とりあえず、 Dim httpObj As New MSXML2.XMLHTTP On Error GoTo RequestError httpObj.Open "GET", taisyoURL, False httpObj.send If httpObj.Status Then Dim xmlDoc As New MSXML2.DOMDocument xmlDoc.async = False xmlDoc.loadXML httpObj.responseText … というコードにしてみました。 ただ、サーバ落ちた状況を再現するのが手間が かかるため、今度参照サイトが落ちた時にこれらの テストをすることにしました。 お返事遅くなりまして申し訳ございませんでした。 先日の別件での回答を含め大変たすかりました。