VB2005でXMLデータをParserを使って項目を抽出する方法

質問

VB2005の初心者です。

XMLデータをパーサーをかけて、特定の項目を抽出してDBに登録したいのですが、パーサーの機能（？）で特定の項目を抽出することはできるのでしょうか。
下記のように、msxmldocにLoadした後、タグ名で検索して特定の項目を抽出する方法はあるのでしょうか。

Dim msxmlDoc As MSXML2.DOMDocument
msxmlDoc = New MSXML2.DOMDocument
msxmldoc.Loadxml(strFullText)

何かヒントでも、他の方法でも、たくさんの方の知恵をお借りしたいです。よろしくお願い致します。

回答No.1

himajin100000 · ベストアンサー

'Microsoft XML v6.0を参照に追加

Public Class Q3474337
Shared Sub Main
Dim msxmlDoc As MSXML2.DOMDocument
Dim fugaElements As MSXML2.IXMLDOMNodeList

'.NET系の言語ではUTF-8ベースで動くと思っていたのだが
'たとえShift_JISとなっていても正しく表示されるようだ。
'ただ,内部サブセットで各要素を定義するDOCTYPE宣言があると駄目っぽい
'外部サブセットは知らん。
Dim strFullText As String = "<?xml version=""1.0"" encoding=""UTF-8"" ?><hoge xmlns=""fugahoge""><fuga>あ</fuga><fuga>い</fuga><gura>う</gura></hoge>"
msxmlDoc = New MSXML2.DOMDocument
msxmlDoc.Loadxml(strFullText)

'XMLを扱うときの毎度お馴染みのメソッドgetElementsByTagNameですね。
'名前空間を特に指定しなくても動いてしまう
'何故かgetElementByIdメソッドがメンバリストに現れない
fugaElements = msxmlDoc.getElementsByTagName("fuga")
For Each fuga As MSXML2.IXMLDOMNode In fugaElements

System.Console.WriteLine(fuga.text)

Next
'コンソールへの出力内容は
'あ
'い

Stop

End Sub

End Class

お礼

遅くなりましたが、返答ありがとうございました。
教えていただいた getElementsByTagName というメソッドを初めて知りました。（初心者なので・・・）
本当にありがとうございました。