XmlDocumentの読み込みについて

質問

<?xml version="1.0" encoding="utf-8" ?>
<root>
　　　　<学科 name="普通">
　　　　　　<number>01</number>
　　　　　　<number>02</number>
　　　　　　<number>03</number>
　　　　　　<number>04</number>
　　　　</学科>
　　　　<学科 name="経理">
　　　　　　<number>01</number>
　　　　</学科>
　　　　<学科 name="情報">
　　　　　　<number>01</number>
　　　　</学科>
</root>

上記のようなtest.xmlがあり、下記のソースで学科:普通の一番最後のnumber(今回の場合は"04")を取得し、TextBoxに出力したいのですが、どのように修正すればいいのでしょうか？

Dim xmlDocument As XmlDocument
Dim xmlNodeList As XmlNodeList
Dim lastElem As XmlElement
Dim lastNum As Integer

xmlDocument = New XmlDocument
xmlDocument.Load("test.xml")

xmlNodeList = xmlDocument.SelectNodes("./root/学科")

lastElem = xmlNodeList(0).LastChild
lastNum = Integer.Parse(lastElem.InnerText)
Textbox.Text = lastElem.ToString

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

この２箇所でしょうかね・・・。

Dim lastElem As XmlElement
　↓
Dim lastElem As XmlNode

Textbox.Text = lastElem.ToString
　↓
Textbox.Text = lastElem.InnterText

補足

修正しましたが、lastElem = xmlNodeList(0).LastChildで"オブジェクト参照がオブジェクト インスタンスに設定されていません。"というエラーが発生してしまいます。

回答No.2

うぃず（@Wizard_Zero）

> lastElem = xmlNodeList(0).LastChildで"オブジェクト参照がオブジェクト インスタンスに設定されていません。"

つまり、xmlNodeList(0).LastChild または xmlNodeList のどちらかが空っぽということですね・・・。

ですが同じコードで動かしても、こちらでは問題なく動作しています。
ただ、XMLのほうは全角スペースがあったので修正しました。質問投稿のインデントために入れられたものだと勝手に判断していましたが、元のXMLに全角スペースがあるようなら半角スペースに置き換えて試してみて下さい。