2つのxmlをマージしたいです。以下のPGMを作成しましたがマージできません。ご教示願います。
myfileのtagAに対してC:\にあるファイルの特定のタグ(tagB)を移植するPGMを作成したいです。構文的には問題ないように思いますが「appendChild」がうまくいきません。。。
Sub Loadfile(myfile)
'tag追加
dim fso
set fso = createObject("Scripting.FileSystemObject")
dim folder
set folder = fso.getFolder("C:")
' DOM Object 作成
Set dom1 = Wscript.CreateObject("Msxml2.DOMDocument")
' 既存 XML 入力
dom1.load( myfile )
Wscript.Echo myfile
Dim nodeList
Set nodeList = dom1.getElementsByTagName("tagA")
dim file
dim i
i=0
for each file in folder.files
' DOM Object 作成
Set dom2 = Wscript.CreateObject("Msxml2.DOMDocument")
' XML Load dom2.load( file.name ) '対象Node Set nodeRoot2 = dom2.getElementsByTagName("tagB").Item(0) 'マージ nodeList(0).appendChild( nodeRoot2 ) i = i + 1
next
End Sub
あなたの回答
tips
プレビュー