xml読み込み時に子ﾘｽﾄをすべて取得する方法

Question

vb.netでXMLﾌｧｲﾙを読み込んで子ﾘｽﾄをすべて取得するﾌﾟﾛｸﾞﾗﾑを作成しています。
すべてのnameとpathを取得したいのですが方法がわからないのでご教授いただきたいです。

<?xml version="1.0" encoding="Shift_JIS" ?>
<doc>
    <folder>
        <name>取得元</name>
        <path>C:\仕事\取得元\</path>
    </folder>
    <folder>
        <name>担当csv</name>
        <path>C:\仕事\担当.csv</path>
    </folder>
    <folder>
        <name>使用しない</name>
        <path>C:\仕事\_使用しない</path>
    </folder>
    <folder>
        <name>ｷｬﾝｾﾙ</name>
        <path>C:\仕事\キャンセル</path>
    </folder>
    <folder>
        <name>その他</name>
        <path>C:\仕事\その他</path>
    </folder>
</doc>

' XMLを扱うためのオブジェクト
Dim xmlDoc As New XmlDocument()
Dim xroot As XmlNode
Dim xfolder As XmlNodeList
Dim xname(4) As String
Dim xpath(4) As String
Dim xnode As XmlNode
Dim i As Integer = 0

' XMLを読み込む
xmlDoc.Load("C:\仕事\使用ﾌｫﾙﾀﾞ.xml")

' XMLドキュメントからルート要素を取り出す
xroot = xmlDoc.DocumentElement

'ルート要素から親リストを取得する
xfolder = xroot.SelectNodes("//doc/folder")

'親リストから親要素を取り出す
For Each xnode In xfolder
    '親要素の中の子リストを取り出す
    '↓以下2行で取得しようとしているのですが"Nothing"で取得できないので悩んでいます
    xname(i) = xnode.SelectSingleNode("//folder/name").Value
    xpath(i) = xnode.SelectSingleNode("//folder/path").Value
    i = i + 1
Next

環境はVisual Studio2008,VB.netです。
宜しくお願いします。

Answer 1

質問者さんのコードでXMLから指定要素の値を取れない原因は2つあります。

SelectSingleNodeでのnameとpath要素へのXPATHの指定に誤りがあるのが原因の1つ目です。"//doc/folder"指定で"<doc><folder>"で起点とするノードを指定できているわけですから、この場合は"name"と"path"だけにすべきです。

2つ目は、xnode.SelectSingleNode("正しいXPATH").Valueの部分で、Valueプロパティはその要素のXmlNodeTypeがテキスト(文字列)の場合のみセットされます。それ以外はNothingです。ここが合っていません。以下のドキュメントを参照してください。
Microsoft Doc - XmlNode.Value Property

<doc><folder><name>取得元</name>の"取得元"のテキスト部分は、<name>要素の子であるひとつのノードです。この部分が現状のコードでは正しく指し示されていません。以下のように子ノードを指すようにすれば、Valueプロパティが使えます。

Dim s As String
s = xnode.SelectSingleNode("name").FirstChild.Value

もうひとつ、"取得元"を<name>のInnerTextとして取得する方法があります。

Dim s As String
s = xnode.SelectSingleNode("name").InnerText

質問者さんのコードをもとに上記を適用し、以下のコードで確認しました。Windows XP上のVisual Studio 2008 + .NET Framework 2.0 のSystem.Xml と、Windows 7 上のVisual Studio 2017 + .NET Framework 4.0 のSystem.Xmlで同じ挙動でしたので不安は無いと思います。

        Dim s As String

        '親リストから親要素を取り出す
        For Each xnode In xfolder
            '親要素の中の子リストを取り出す

            ' テキストノードとして取り出す
            xname(i) = xnode.SelectSingleNode("name").FirstChild.Value
            xpath(i) = xnode.SelectSingleNode("path").FirstChild.Value

            Debug.WriteLine("--- " & i)
            Debug.WriteLine("name: " & xname(i))
            Debug.WriteLine("path: " & xpath(i))

            ' "name", "path"ノードのInnerTextとして取り出す
            s = xnode.SelectSingleNode("name").InnerText
            Debug.WriteLine("name(InnerText): " & s)

            s = xnode.SelectSingleNode("path").InnerText
            Debug.WriteLine("path(InnerText): " & s)

            i = i + 1
        Next

以下のように出力ウインドウ（デバッグ端末）に出力されます。

--- 0
name: 取得元
path: C:\仕事\取得元\
name(InnerText): 取得元
path(InnerText): C:\仕事\取得元\
--- 1
name: 担当csv
path: C:\仕事\担当.csv
name(InnerText): 担当csv
path(InnerText): C:\仕事\担当.csv
--- 2
name: 使用しない
path: C:\仕事\_使用しない
name(InnerText): 使用しない
path(InnerText): C:\仕事\_使用しない
--- 3
name: ｷｬﾝｾﾙ
path: C:\仕事\キャンセル
name(InnerText): ｷｬﾝｾﾙ
path(InnerText): C:\仕事\キャンセル
--- 4
name: その他
path: C:\仕事\その他
name(InnerText): その他
path(InnerText): C:\仕事\その他

動作させながらデバッガーでxnodeなどの変数をウォッチして確認してみてください。

Comments

[netta]

お忙しいところありがとうございます。
サンプルソースで実際動かしてみたところ意図した動きになりました。