@IT会議室は、ITエンジニアに特化した質問・回答コミュニティ「QA@IT」に生まれ変わりました。ぜひご利用ください。
- PR -

MSXMLでのノード追加について

1
投稿者投稿内容
sasaki
会議室デビュー日: 2008/06/04
投稿数: 5
投稿日時: 2008-06-04 18:10
こんにちは。よろしくお願いします。

DelphiでMSXMLを使用しております。

デフォルト名前空間が指定されているXMLで、名前空間をプレフィックス指定し(※)、取得したノードに対してノードを追加すると、タグに「xmlns=""」が入ってしまい困っております。

※ プレフィックスを指定しないと「selectSingleNode」でノードがリターンされないため

[XML]
------------------------------------------------------------------
<?xml version='1.0'?>
<Books xmlns="urn:books">
 <Book>
  <Title>Beginning XML</Title>
  <Publisher>Wrox</Publisher>
 </Book>
</Books>

[ソース]
------------------------------------------------------------------
procedure TForm1.Test;
var
 doc : IXMLDOMDocument2;
 node, item : IXMLDOMNode;
begin
 doc := CoDOMDocument40.Create();
 doc.load('test.xml');
 doc.setProperty('SelectionNamespaces', 'xmlns:bk="urn:books"');

 node := doc.selectSingleNode('/bk:Books/bk:Book');
 if node <> nil then begin
  item := doc.createElement('TEST');
  item.appendChild(doc.createTextNode('TEXT'));
  Node.appendChild(item);
 end;

 doc.save('test.xml');
end;

[結果]
------------------------------------------------------------------
<?xml version="1.0"?>
<Books xmlns="urn:books">
 <Book>
  <Title>Beginning XML</Title>
   <Publisher>Wrox</Publisher>
   <TEST xmlns="">TEXT</TEST>   ←ここです
  </Book>
</Books>

------------------------------------------------------------------
<TEST xmlns="">TEXT</TEST>

ではなく、

<TEST>TEXT</TEST>

とノードを追加する方法がありましたら、ご教授ください。
よろしくお願いします。

スフレ
ぬし
会議室デビュー日: 2005/05/27
投稿数: 281
お住まい・勤務地: 東京
投稿日時: 2008-06-04 18:36
createElement()が作るのは名前空間が空のTEST要素なので、これは仕様どおり動いています。

MSXMLは使ったことないんですが、調べてみるとdoc.createNode()で名前空間付きの要素が作成できるようですね。
sasaki
会議室デビュー日: 2008/06/04
投稿数: 5
投稿日時: 2008-06-05 09:22
スフレさん、こんにちは。

doc.createNode()

を使うことで解決できました。

ありがとうございました。

--------------------------------------------------------------------
procedure TForm1.test;
var
 doc : IXMLDOMDocument2;
 node ,
 item : IXMLDOMNode;
begin
 doc := CoDOMDocument40.Create();
 doc.load('test.txt');
 doc.setProperty('SelectionNamespaces', 'xmlns:bk="urn:books"');

 node := doc.selectSingleNode('/bk:Books/bk:Book');
 if node <> nil then begin
// item := doc.createElement('TEST');              ←変更
  item := doc.createNode(NODE_ELEMENT, 'TEST', 'urn:books');  ←変更
  item.appendChild(doc.createTextNode('TEXT'));
  Node.appendChild(item);
 end;

 doc.save('test.xml');
end;
1

スキルアップ/キャリアアップ(JOB@IT)