ＶＢ６．０でＤＯＭを使用してノードを削除したい

解決

ポン酢好き 2007-01-09 17:17:30 No: 97599

ＶＢ６．０でＤＯＭを使用して下記のSAMPLE.xmlより編集者以下のノードを削除してSAMPLE01.xmlとして保存したいのですがやり方がわかりません。
よろしくお願いします。

【SAMPLE.xml】
<?xml version='1.0' encoding="UTF-8" ?>
<書籍情報>
  <著者 id="00001">
    <名前>磯野カツオ</名前>
    <性別>男性</性別>
  </著者>
  <編集者 id="10001">
    <名前>磯野波平</名前>
    <性別>男性</性別>
  </著者>
</書籍情報>

【VB6.0】
Dim xmlDocument As New MSXML2.DOMDocument

If Not xmlDocument.Load("SAMPLE.xml") Then
MsgBox "XML Read Error!!!"
Exit Function
End If

'*********************************************************
' ※ここにどのようにコーディングしたらいいのでしょうか？
'*********************************************************

Call xmlDocument.Save("SAMPLE01.xml")

もげ 2007-01-09 18:24:30 No: 97600

http://homepage1.nifty.com/kodayan/xml/index.htm
のこの辺とか。
http://homepage1.nifty.com/kodayan/xml/dom/element01.htm

自己解決の場合、
「これこれこういう方法で解決しました」
のように情報をフィードバックしていただけると、
同様の問題を抱える後進への助けにもなります。
単に「解決しました」では、
貴殿の投稿が単なる無駄スレ（見ても参考になる情報なし）になってしまいますよね。

大吉末吉 2007-01-09 21:54:18 No: 97601

> 自己解決の場合、
> 「これこれこういう方法で解決しました」
> のように情報をフィードバックしていただけると、

この方「自己解決」と言いながら、実は、
単に、マルチポスト先の

http://okwave.jp/qa2652171.html

で、「教えてもらっただけ」だとか・・・

ポン酢好き 2007-01-10 07:17:23 No: 97602

以下のような方法でノード削除する事ができました。

Set oNodeList = xmlDocument.getElementsByTagName("編集者")
Set oNode = oNodeList(0).childNodes(0).parentNode
Set oParent = oNode.parentNode

oParent.removeChild oNode

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