教えて下さい。以下のようなXMLファイルがあります。
<?xml version="1.0" encoding="Shift-JIS"?>
<ROOT>
<INFO>
<NO>0001</NO>
<NAME>ABC</NAME>
<COMMENT>
</COMMENT>
<AGE>30</AGE>
</INFO>
</ROOT>
これを以下のようにVBScriptにてデータを取り出したいです。
Dim DOM, docRoot, node, nodeList, i, m
Dim objADO, objADO2
Dim objRS
Dim sqlstmt, strSQL
Dim no, comment
'DOMオブジェクト生成
Set DOM = CreateObject("Microsoft.XMLDOM")
'同期モード
DOM.async = True
'XMLを読み込む
DOM.load("11.xml")
'ルートセット
Set docRoot = DOM.documentElement
'ノードの設定
Set nodeList = docRoot.selectNodes("/ROOT/INFO")
'ループ
For Each node In nodeList
For i = 0 to node.ChildNodes.length - 1
Select case node.childNodes(i).nodeName
case "NO"
no = node.childNodes(i).firstChild.nodeValue
case "COMMENT"
comment = node.childNodes(i).firstChild.nodeValue
End select
Next
Next
ところがCOMMENTタグのようにデータが空のものがあると
「オブジェクトがありません」とエラーになります。
if Not IsNull(node.childNodes(i).firstChild.nodeValue) then
というようにもやってみましたが、これでも同じエラーとなってしまいます。
何か方法はないでしょうか？アドバイスを宜しくお願いします。
お礼
ありがとうございます。出来ました。 助かりました。本当にありがとうございます。