2011年12月16日


XMLファイルの更新

このような XML を読み込んでデータを追加した後、
新しいファイルとして保存します
<?xml version="1.0" encoding="UTF-8"?>
<channel>
	<item>
		<title>タイトル</title>
		<link>対象URL</link>
		<description>内容の説明</description>
		<date>2011-12-14</date>
	</item>
</channel>



※ 更新した結果を IE で表示すると以下のようになりました

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

' 既存 XML 入力
dom.load( "index.xml" )

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

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

' **********************************************************
' title ノードを作成
' **********************************************************
Set nodeChild = dom.createElement("title")
nodeChild.appendChild( dom.createTextNode("これは") )
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 )

' **********************************************************
' dc:date ノードを作成
' **********************************************************
Set nodeChild = dom.createElement("date")
nodeChild.appendChild( dom.createTextNode("内部コードに変換されます") )
node.appendChild( nodeChild )


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

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



タグ:xml
posted by at 00:25 | Comment(0) | サンプル | このブログの読者になる | 更新情報をチェックする


この記事へのコメント
コメントを書く
お名前:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
※ブログオーナーが承認したコメントのみ表示されます。