• 締切済み

VB.NET　XML要素取り出し

VB.NETでXMLに関して質問です 下記のようなXML <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <list> 　　　　<Vegetablefolder> 　　　　　　　　<folder id="1" path="Vegetablelist/allVegetable.xml" name="すべての野菜"/> 　　　　　　　　<folder id="2" path="Vegetablelist/tomato.xml" name="トマト"/> 　　　　　　　　<folder id="3" path="Vegetablelist/kyuri.xml" name="きゅうり"/> 　　　　</Vegetablefolder> 　　　　<picture> 　　　　　　　　<select bg="bg/select.jpg"/> 　　　　</picture> </list> を読み取り要素であるid、path、nameの内容を変数に入れるプログラムを作成しようと思っています そこで下記のようなプログラム Dim xDocument As Xml.XmlDocument = New Xml.XmlDocument Dim xRoot As Xml.XmlElement Dim xVegetablefolderlist As Xml.XmlNodeList Dim xfolderlist As Xml.XmlNodeList Dim xpicturelist As Xml.XmlNodeList Dim xselectlist As Xml.XmlNodeList 'XMLファイルの呼び出し() Call xDocument.Load(My.Settings.flistpass) 'XMLドキュメントからルート要素を取り出す() xRoot = xDocument.DocumentElement 'XMLのルートが発見できなかった時() If xRoot Is Nothing Then MessageBox.Show("folderlist.xmlの記述が誤っています。", _ "エラー", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) GoTo exi End If xmusicfolderList = xRoot.GetElementsByTagName("Vegetablefolder") For Each xElement1 As Xml.XmlElement In xVegetablefolderlist Call MessageBox.Show(String.Format("データあり : {0}個", xVegetablefolderlist.Count)) xfolderlist = xElement1.GetElementsByTagName("folder") Call MessageBox.Show(String.Format("データあり : {0}個", xfolderlist.Count)) '項目一覧から<folder>項目を取り出す For Each xfolder As Xml.XmlDocument In xfolderlist '<folder>属性を読み取る ??? Next xfolder Next xElement1 xpicturelist = xRoot.GetElementsByTagName("picture") For Each XElement2 As Xml.XmlElement In xpicturelist Call MessageBox.Show(String.Format("データあり : {0}個", xpicturelist.Count)) xselectlist = XElement2.GetElementsByTagName("select") For Each xselect As Xml.XmlDocument In xselectlist Call MessageBox.Show(xselect.SelectSingleNode("@bg").Value) Next xselect Next XElement2 を試しに作成したのですが、属性を読み取り変数に格納するところの記述に困っています（???の部分） <folder>の項目は一定では無く、例は3つですがもっと多い場合もあるので 配列を使うのが適切だと思うのですがどのように記述するのが適切でしょうか？ アドバイスをお願いします

  • xso
  • お礼率95% (279/291)

みんなの回答

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

詳しくはないですが。 12.指定した要素の属性値を取得する http://hiros-dot.net/CS2003/XML/XML12.htm こちらが参考になるのでしょうか？

xso
質問者

お礼

回答ありがとうございました

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 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

  • xmlの値を配列に格納したいんですけどエラーがでてしまう。

    <?xml version="1.0" encoding="UTF-8" ?> <Dataroot> <aaa> <bbb> <ccc>値１</ccc> </bbb> <bbb> <ccc>値２</ccc> </bbb> </aaa> </Dataroot> ---------------------------------------------------------------- のようなＸＭＬ文書がある時<ccc></ccc>の値を取り出す場合 ---------------------------------------------------------------- Imports System Imports System.IO Imports System.Xml public class Sample public shared sub Main() Dim doc as XmlDocument = new XmlDocument() doc.Load("data.xml") 'XML文書の読み込み Dim root as XmlElement = doc.DocumentElement Dim nodeList as XmlNodeList nodeList = root.SelectNodes("/Dataroot/aaa/bbb")'/cccまでやる方が簡単 Dim node as XmlNode Dim ccclist() As String = Nothing for each node in nodeList ccclist(nodeList.Count) = node.SelectSingleNode("ccc").InnerText '内容の取り出し next end sub end class としているのですが ccclist(nodeList.Count) = node.SelectSingleNode("ccc").InnerText '内容の取り出し この行で オブジェクト参照がオブジェクト インスタンスに設定されていません。 とエラーがでて困っています。 これはどのように修正すればよろしいでしょうか？ 教えてください。お願いします。

  • ＶＢ６．０でＤＯＭを使用してＸＭＬを編集したい

    ＶＢ６．０でＤＯＭを使用して下記ＸＭＬを読込んで<著者 id="1234567">のidの内容を「1234567」→「9999999」に変更したいのですがどのようにしたらよいのかわからなくて困っています。 よろしくお願いします。 【SAMPLE.XML】 <?xml version='1.0' encoding="UTF-8" ?> <書籍情報> <著者 ="1234567"> <名前>磯野カツオ</名前> <性別>男性</性別> </著者> </書籍情報> 【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")

  • VB.NETSystem.Xml 要素数を得るには

    VB.NETでSystem.Xmlを参照設定して以下のXMLファイル(test.xml)のsub4_9のtestの個数を得たいのですが domNode = domDoc.SelectSingleNode("top/sub4_9/test") Console.WriteLine("Count of top/sub4_9/test = " & domNode.?????) というようにしましたが?????の部分にLengthやCountがありません。 また、 rootElement = domDoc.DocumentElement domNodeList = rootElement.GetElementsByTagName("sub4_9/test") Console.WriteLine("Count of top/sub4_9/test = " & domNodeList.Count) というようにもしてみましたが個数は誤った0が返されます。 どのように記述すればsub4_9のtestの個数を得ることができるでしょうか。 ----test.xml------------- <top> 　<sub1_1> 　　<test>123</test> 　　<test>451</test> 　　　: 　</sub1_1> 　　　: 　<sub4_9> 　　<test>432</test> 　　<test>123</test> 　　<test>745</test> 　　　: 　</sub4_9> 　　　: 　<sub9_5> 　　<test>222</test> 　　　: 　</sub9_5> </top> --VB.NET------------------------ Imports System.Xml Imports System.IO Module Module1 　Sub Main() 　　Dim domDoc As New XmlDocument 　　Dim domNode As XmlNode 　　Dim domNodeList As XmlNodeList 　　Dim rootElement As XmlElement 　　domDoc.Load("test.xml") 　　rootElement = domDoc.DocumentElement 　　domNode = domDoc.SelectSingleNode("top/sub4_9/test") 　　Console.WriteLine("Count of top/sub4_9/test = " & domNode.?????) 　　domNodeList = rootElement.GetElementsByTagName("sub4_9/test") 　　Console.WriteLine("Count of top/sub4_9/test = " & domNodeList.Count) 　End Sub End Module ----------------------------------- よろしくお願いします (WindpwsXP,VisualStudio2010)

  • VB6でXMLを作成しているのですがエラーが出ます

    VB6でXML作成のプログラムを作ったのですが、読み取り専用のノードを編集しようとしましたのメッセージボックスが表示されます。　どなたかどこが悪いのか、ご教授願います。　ソースコードは以下の通りです。 Dim xmlDoc As MSXML.DOMDocument 'XMLドキュメント Dim xmlPI As IXMLDOMProcessingInstruction 'XML宣言 Dim node(3) As IXMLDOMNode '要素 Dim attr As MSXML.IXMLDOMAttribute '属性 Dim newText Set xmlDoc = New MSXML.DOMDocument 'XMLドキュメントを作成します。 'XML宣言を追加します。 Set xmlPI = xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")) '<ClinicalDocument>要素を追加します。 Set node(1) = xmlDoc.createElement("ClinicalDocument") Call xmlDoc.appendChild(node(1)) 'xmlns:xsi属性を追加します。 Set attr = xmlDoc.createAttribute("xmlns:xsi") Call node(1).Attributes.setNamedItem(attr) attr.nodeValue = "http://www.w3.org/2001/XMLSchema-instance" ''ここでエラーが出ます '<Customer>要素を追加します。 Set node(2) = xmlDoc.createElement("Customer") Call node(1).appendChild(node(2)) Call node(2).appendChild(xmlDoc.createTextNode(vbNewLine)) 'id属性を追加します。 Set attr = xmlDoc.createAttribute("id") Call node(2).Attributes.setNamedItem(attr) attr.nodeValue = "1" '<Name>要素を追加します。 Set node(3) = xmlDoc.createElement("Name") Call node(2).appendChild(node(3)) Set newText = xmlDoc.createTextNode("Jhon") Call node(3).appendChild(newText) 'XMLドキュメントの出力 xmlDoc.save (App.Path & "\customer.xml")

  • VB2005でXMLデータから複数ある要素の入れ子を取得する方法

    VB2005、XML　の初心者です。 VB2005でXMLデータをMSXMLで解析していますが、下記のようなXMLの場合、Itemがうまく解析できません。 Module > Parent > Item という親子関係ですが、 全て数は可変です。（子がない場合もあります。） <Body> <Content> <Module> </Module> <Module> <Parent> <Item>A</Item> </Parent> </Module> <Module> <Parent> <Item>AA</Item> <Item>BB</Item> <Item>CC</Item> </Parent> </Module> <Module> </Module> </Content> </Body> ソースは下記です。 Dim LmsxmlDoc As MSXML2.DOMDocument LmsxmlDoc = New MSXML2.DOMDocument LmsxmlDoc.LoadXml(XMLData) Dim LModules As MSXML2.IXMLDOMNodeList '下記Moduleは取得できる LModules = LmsxmlDoc.SelectNodes("/Body/Content/Module") Dim LItems As MSXML2.IXMLDOMNodeList Dim LmsxmlModule As MSXML2.DOMDocument LmsxmlModule = New MSXML2.DOMDocument For Each LModule As MSXML2.IXMLDOMNode In LModules '下記(1)でも(2)でもItemが取得できない (1)LItems = LModule.selectNodes("/Module/Parent/Item") LmsxmlModule.LoadXml(LModule.Xml) (2)LItems = LmsxmlModule.selectNodes("/Module/Parent/Item") For Each LItem As MSXML2.IXMLDOMNode In LItems '処理 Next Next 上記ソースでは、(1)、(2)のどちらの方法でもなぜかItemが取得できません。 Itemを取得するにはどうすれば良いのでしょうか。 ヒントでも良いので、皆様の知恵をお借りできれば幸いです。 よろしくお願い致します。

  • VBA でxmlの全要素・属性の読み込み

    お世話になります。 ExcelのVBAを使用して、xmlファイルの全要素・全属性を読み込み、 Excelに書き出したいと思っております。 ネットを参考に下記のソースで、全ての要素をエクセルに 書き出すことは、できたのですが、どうしても全属性を読み込むことが できません。 どのようにすればよいか教えて頂けないでしょうか？ お手数ですがよろしくお願い致します。 -----------------ソース---------------- Sub main() Dim myxml As New DOMDocument40 Dim nodelist As IXMLDOMNodeList Dim onenode As IXMLDOMNode Dim i As Integer myxml.Load ("C:\Users\harada\Desktop\problem_info取り込み\problem_info.xml") Set nodelist = myxml.DocumentElement.ChildNodes i = 1 For Each onenode In nodelist Call submain(onenode, i, 1) i = i + 1 Next End Sub Sub submain(tmp As IXMLDOMNode, itmp As Integer, j As Integer) If tmp.HasChildNodes = False Then Exit Sub k = tmp.ChildNodes.Length For m = 0 To k - 1 Cells(itmp, j + m).Value = tmp.ChildNodes(m).Text Next j = j + m Set tmp = tmp.ChildNodes.NextNode Call submain(tmp, itmp, j) End Sub

  • XMLの要素の内容の中に要素

    VisualBasic6.0にて、XMLを作成するプログラムを作っています。 XMLの作成、編集はMSXMLを使用しており、編集保存はできたのですが、下記のような要素の出力の仕方がわかりません。 ＜Node1＞ 　あいうえお 　＜Node1-1＞abcde＜/Node1-1＞ 　かきくけこ ＜/Node1＞ このように要素の文字列の途中に子要素を作成したいです。 「Node1」要素に、子要素「Node1-1」を追加するサンプルです。 Cドライブ直下に以下の内容のXMLファイル「test.xml」を作成 <?xml version="1.0" encoding="shift_jis"?> <Node1> </Node1> VB6にて、参照設定に「Microsoft XML V6.0」を追加し以下のコードを作成。 Private Sub Command1_Click() Dim xDoc As MSXML2.DOMDocument Set xDoc = New MSXML2.DOMDocument Dim node As IXMLDOMNodeList Dim Addnode As IXMLDOMNode Dim obj As IXMLDOMNode If xDoc.Load("C:\test.xml") Then Set node = xDoc.documentElement.selectNodes("/Node1") For Each obj In node Set Addnode = obj.appendChild(xDoc.createNode(NODE_ELEMENT, "Node1-1", "")) Addnode.Text = "abcde" Next xDoc.save ("C:\test.xml") End If Set xDoc = Nothing End Sub

  • VB2005による旧形式の対応について

    どなたかご教授下さい。 現在、WINXPでVB2005へのバージョンアップ処理をしています。 VB2003のときは出なかったのですが、下記ソースの「objXml.Document」で警告が出てしまいました。 いろいろ調べたのですがどう対処したらよいかわかりません。どなたかご教授願いないでしょうか？ 互換による影響だということは分かるのですが、どう修正すればよいのか途方にくれております。 Protected WithEvents objXml As Global.System.Web.UI.WebControls.Xml Dim xml As String = XML_DATA Dim objDoc As XmlDocument = New XmlDocument objDoc.Load(New XmlTextReader(New StringReader(xml))) objXml.Document = objDoc 警告 'Public Property Document() As System.Xml.XmlDocument' は旧形式です: 'The recommended alternative is the XPathNavigator property. Create a System.Xml.XPath.XPathDocument and call CreateNavigator() to create an XPathNavigator.

  • C#のXmlDocumentについて

    C#のXmlDocumentについて質問です。 using System; using System.Xml; using System.Windows; public class XmlNewClass{ public static void Main(String [] args){ XmlDocument xmlObj = new XmlDocument(); xmlObj.Load("./test.xml"); XmlNode nodeObj = xmlObj.GetElementsByTagName("root").Item(0); Console.WriteLine(nodeObj); } } 上記のようなコードがあったとします。 この場合、プロンプトに表示されるないようは 〔System.Xml.XmlElement〕という記述が出力されます。 次に XmlElement elementObj =nodeObj; というコードを追加したとします。 それを実行してみると /****************************************************************** xml.cs(21,26): error CS0266: 型 'System.Xml.XmlNode' を 'System.Xml.XmlElement' に暗黙的に変換できません。明示的な変換が存在します。(cast が不足していないかどうかを確認してください) ***************************************************************************/ というようなエラーがプロンプト上に表示されます。 これはnodeObjがXmlNodeというクラスだということですが (実際GetElementsByTagNameで帰って来るオブジェクトはXmlNodeというクラスだとマニュアルにも記載がありました） なぜ冒頭のコードで Console.WriteLine(nodeObj); の箇所の出力で〔XmlElement〕という内容が出力されたのでしょうか？ 同じオブジェクトなのに、なぜ出力と型がことなるのでしょうか？ ご教授よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する