XMLファイルの全node、全attributeを出力する

このページについて

IEのフレームページ読み込み完了を捕捉などにあるように、IEを起動し、表示したページからHTMLソースを取得、その中にある数値を統計的に加工するスクリプトを組む場合がある。その際、HTMLやXMLなどのタグ付けされたデータを処理するための調査として、対象文書の階層構造、タグ名、属性名などをログ（ファイル）に出力したいと思ったことがよくあった。そこで、タグ付けされたデータをログに出力する検討を行ったので、結果とサンプルコードを以下に掲載する。

サンプルコード

読み込むXML文書

適当なものはないかと探して、以下のものが見つかった。これをスクリプトと同じフォルダ階層に配置している。

サンプル XML ファイル : 一般的な購買発注書 (LINQ to XML)

処理コード

これが今回の記事のメインの成果物。リンクにあるたくさんのリンクを参考に作成した。

Option Explicit

Dim objDOM
Dim rtResult

Dim nodeTypeTable
Set nodeTypeTable = CreateObject("Scripting.Dictionary")
initializeNodeTypeConstants

Sub initializeNodeTypeConstants		'①
	nodeTypeTable.add 1, "ELEMENT_NODE"
	nodeTypeTable.add 2, "ATTRIBUTE_NODE"
	nodeTypeTable.add 3, "TEXT_NODE"
	nodeTypeTable.add 4, "CDATA_SECTION_NODE"
	nodeTypeTable.add 5, "ENTITY_REFERENCE_NODE"
	nodeTypeTable.add 6, "ENTITY_NODE"
	nodeTypeTable.add 7, "PROCESSING_INSTRUCTION_NODE"
	nodeTypeTable.add 8, "COMMENT_NODE"
	nodeTypeTable.add 9, "DOCUMENT_NODE"
	nodeTypeTable.add 10, "DOCUMENT_TYPE_NODE"
	nodeTypeTable.add 11, "DOCUMENT_FRAGMENT_NODE"
	nodeTypeTable.add 12, "NOTATION_NODE"
End Sub

Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")
rtResult = objDOM.load("PurchaseOrder.xml")
If rtResult = True Then
	logNode objDOM.childNodes
End If
Set objDOM = Nothing

Sub logNode(objNode)
	Dim obj
	For Each obj In objNode
		objLogFile.Write 1, "obj.nodeName : " & obj.nodeName
		objLogFile.Write 1, "obj.nodeType : " & convertNodeTypeToText(obj.nodeType)
		objLogFile.Write 1, "obj.nodeValue : " & obj.nodeValue
		If Not obj.attributes Is Nothing Then		'②
			objLogFile.Write 1, "obj.attributes.length : " & obj.attributes.length
			Dim attr
			For Each attr In obj.attributes
				objLogFile.Write 1, "obj.nodeName attr.name : " & attr.name
				objLogFile.Write 1, "obj.nodeName attr.text : " & attr.text
			Next
		End If
		If obj.hasChildNodes Then
			logNode obj.childNodes
		End If
	Next
End Sub

Function convertNodeTypeToText(ByVal nodetype)		'③
	If nodeTypeTable.Exists(nodetype) Then
		convertNodeTypeToText = nodeTypeTable.Item(nodetype)
	Else
		convertNodeTypeToText = "Unknown : " & nodetype
	End If
End Function

補足

①と③は可読性をあげるためのちょっとした工夫。①の関数はノードタイプ（数値）を文字列に変換する関数で、内部でDictionaryオブジェクトの初期化を行なっている。また、③の関数は初期化した引数で指定されたノードタイプをkeyにDictionaryから該当する文字列を返却する。より楽な手法として、定数を読み込む方法があるが、うまく実現できなかった。ベタ書きが気に入らない面もあるが、動作はしているのでしばらくは良しとする
②はエラー処理。リンクに載せた記事によると、ノードに属性がひとつも存在しない場合は、戻り値のコレクションオブジェクトが"Nothing"となるらしい。ただし、Nothingにはならず要素数が0となる場合もある。どういう理屈なのかは今後調査することにしよう

結果

"obj.nodeName : xml"
"obj.nodeType : PROCESSING_INSTRUCTION_NODE"
"obj.nodeValue : version=""1.0"""
"obj.attributes.length : 1"
"obj.nodeName attr.name : version"
"obj.nodeName attr.text : 1.0"
"obj.nodeName : PurchaseOrder"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 2"
"obj.nodeName attr.name : PurchaseOrderNumber"
"obj.nodeName attr.text : 99503"
"obj.nodeName attr.name : OrderDate"
"obj.nodeName attr.text : 1999-10-20"
"obj.nodeName : Address"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 1"
"obj.nodeName attr.name : Type"
"obj.nodeName attr.text : Shipping"
"obj.nodeName : Name"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Ellen Adams"
"obj.nodeName : Street"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 123 Maple Street"
"obj.nodeName : City"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Mill Valley"
"obj.nodeName : State"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : CA"
"obj.nodeName : Zip"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 10999"
"obj.nodeName : Country"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : USA"
"obj.nodeName : Address"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 1"
"obj.nodeName attr.name : Type"
"obj.nodeName attr.text : Billing"
"obj.nodeName : Name"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Tai Yee"
"obj.nodeName : Street"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 8 Oak Avenue"
"obj.nodeName : City"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Old Town"
"obj.nodeName : State"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : PA"
"obj.nodeName : Zip"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 95819"
"obj.nodeName : Country"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : USA"
"obj.nodeName : DeliveryNotes"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Please leave packages in shed
"obj.nodeName : Items"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : Item"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 1"
"obj.nodeName attr.name : PartNumber"
"obj.nodeName attr.text : 872-AA"
"obj.nodeName : ProductName"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Lawnmower"
"obj.nodeName : Quantity"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 1"
"obj.nodeName : USPrice"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 148.95"
"obj.nodeName : Comment"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Confirm this is electric"
"obj.nodeName : Item"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 1"
"obj.nodeName attr.name : PartNumber"
"obj.nodeName attr.text : 926-AA"
"obj.nodeName : ProductName"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : Baby Monitor"
"obj.nodeName : Quantity"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 2"
"obj.nodeName : USPrice"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 39.98"
"obj.nodeName : ShipDate"
"obj.nodeType : ELEMENT_NODE"
"obj.nodeValue : "
"obj.attributes.length : 0"
"obj.nodeName : #text"
"obj.nodeType : TEXT_NODE"
"obj.nodeValue : 1999-05-21"

リンク

無料のVBScriptでXMLプログラミング
Msxml2.DOMDocumentを使ってVBScriptでXMLファイルを読み込む
初心者のための XML DOM ガイド
nodeTypeプロパティで得られる定数の定義
DOMとJavaScript: 子ノードを調べる、他
DOMとJavaScript: 属性をみる
attributes Property
IXMLDOMNamedNodeMap
IXMLDOMNamedNodeMap Members
name Property (IXMLDOMAttribute)
- VBScriptのサンプルコードはないが、メソッドやメンバーの情報が参考になる
文書オブジェクトモデルコア
- 仕様書？より深く知りたい場合に見るサイトか

このページを編集するこのページを元に新規ページを作成

印刷する

コメント（0）

カテゴリ：
パソコン
ソフト

XMLファイルの全node、全attributeを出力する - 組み込み系プログラマの覚書先頭へ

タグ

コメントをかく

名前	ユーザIDを使用しないで書き込む	ユーザーIDを使う	ログインする
画像コード	画像に記載されている文字を下のフォームに入力してください。
備考	「http://」を含む投稿は禁止されています。
本文
利用規約をご確認のうえご記入下さい

組み込み系プログラマの覚書

このページについて

サンプルコード

読み込むXML文書

処理コード

補足

結果

リンク

コメントをかく

Wiki内検索

最近更新したページ

2015-08-10

2015-07-20

2015-07-09

2015-04-20

2015-04-12

2014-07-13

2014-07-07

2014-07-03

2014-06-23

2014-06-13

2014-04-27

2014-03-26

2014-02-19

2014-02-18

2014-01-05

2013-12-20

最新コメント

Menu

タグ

参加者一覧

フリーエリア

アクセス解析中