0

でレガシー アプリケーションを実際に更新していVB 6.0て、 として宣言された XML に要素を追加する必要がありますIXMLDOMElement。私の XML オブジェクトの内容は実際には次のとおりです。

<ChoiceLists>
 <Test Default="*">
  <Choice Value="1" Description="Hours"/>
  <Choice Value="2" Description="Days"/>
 </Test>
</ChoiceLists>

そして今、私はすでに XML 形式の結果を (文字列として) 返しているクエリを持っています。

<Test2 Default="*">
  <Choice Value="276" Description="#276"/>
  <Choice Value="177" Description="#177"/>
  <Choice Value="0000" Description="#0000"/>
  <Choice Value="176" Description="#176"/>
</Test2>

ルート ノードにある XML に統合する必要があります<ChoiceLists>。

この文字列を XML に追加する方法を教えてください。IXMLDOMElementオブジェクトのさまざまな機能を試してきましたが、無駄です。

ありがとう

4

1 に答える 1

2

メソッドを使用しIXMLDOMNode.appendChild()て、1 つの要素 (および子) を別の要素に追加できます。変換する必要がある生の文字列がある場合は、それを新しいものにロードできDOMDocumentますIXMLDOMDocument.loadXML()

Dim TargetDocument As IXMLDOMDocument
Dim TargetElement As IXMLDOMElement
Dim NewDocument As IXMLDOMDocument
Dim NewElement As IXMLDOMElement

'Load your target document here
Set TargetDocument = New DOMDocument
TargetDocument.Load "P:\iCatcher Console\XML\feedlist.xml"

'Get a reference to the element we want to append to (I'm assuming it's the document element)
Set TargetElement = TargetDocument.DocumentElement

'Create a new documents to parse the XML string
Set NewDocument = New DOMDocument
NewDocument.loadXML NewXMLString

'The root of this document will be the outer element in the string so get a reference to that
Set NewElement = NewDocument.DocumentElement

'Append the new element to the target's children
TargetElement.appendChild NewElement

結果の XML は次のようになります。

<ChoiceLists>
 <Test Default="*">
  <Choice Value="1" Description="Hours"/>
  <Choice Value="2" Description="Days"/>
 </Test>
 <Test2 Default="*">
  <Choice Value="276" Description="#276"/>
  <Choice Value="177" Description="#177"/>
  <Choice Value="0000" Description="#0000"/>
  <Choice Value="176" Description="#176"/>
 </Test2>
</ChoiceLists>
于 2014-09-16T12:25:22.017 に答える