Converting a multilevel XML into generic list in VB.NET

See more:

VB

ASP.NET

XML

LINQ

C#3.5

Dear all,

I have below xml which I wanted to convert it into a generic list of class.

<?xml version="1.0" encoding="utf-8"?>
<menuroot>
  <Menu id="home" text="Home">
    <subMenu id="Syllabusboard" text="Syllabusboard" url="Syllabusboard.aspx">
    
  
  <Menu id="Subjects" text="Subjects">
    <SubMenu id="SyllabusreView" text="SyllabusreView" url="SyllabusreViewReport.aspx">
    <SubMenu id="Subject " text="Subject Map" url="Subject.aspx">
    
  <Menu id="grade" text="Traceability">
    <SubMenu id="grade" text="grade Report" url=" gradeReport.aspx">
    
  
  <Menu id="testresults" text="Test results">
    <SubMenu id="testReport" text="Test Report" url="TestReport.aspx">
    
    <SubMenu id="testresultsforstudent" text="testresultsforstudent" url="testresultsforstudent.aspx">
    
  
  <Menu id="Students" text="Students">
    <SubMenu id="AttendaceLog" text="Attendace Log" url="Attendace.aspx">
    
    <SubMenu id="studentMpping" text="studentMpping" url="studentMpping.aspx">

In the above XML, I am able to attributes of Menu ID and Menu text. But not getting how to get values from <submenu> attributes.

Below is the code which I tried to implement this. But I want to know more efficient code than the below. Please help me the same.

Dim attrAdminMenuObjects = XDocument.Parse(xmlAdminDoc.InnerXml).Descendants("Menu")
                    Dim objMenuSettings As New MenuSettings
 

                    For Each headerMenuNode In attrAdminMenuObjects.Elements
                        For Each childNode In headerMenuNode.Nodes
                            objMenuSettings .Menu_ID = headerMenuNode.FirstAttribute.Value
                           objMenuSettings .Menu_Text = headerMenuNode.LastAttribute.Value
                            Dim xeSubmenuElements As XElement = DirectCast(childNode, System.Xml.Linq.XElement)
                            If xeSubmenuElements.HasAttributes Then
                                Dim attrSubMenuElementList As IEnumerable(Of XAttribute) = From attrSubMenuelement In xeSubmenuElements.Attributes() Select attrSubMenuelement
                                For Each att In attrSubMenuElementList
                                    Select Case att.Name
                                        Case "id"
                                            objMenuSettings .SubMenu_ID = att.Value
                                        Case "text"
                                            objMenuSettings .SubMenu_Text = att.Value
                                        Case "url"
                                            objMenuSettings .URL = att.Value
                                        Case "Pagination"
                                            objMenuSettings .isPaginationRequired = att.Value
                                        Case "Filter"
                                            objMenuSettings .isFilterRequired = att.Value
                                        Case "Choose_Columns"
                                            objMenuSettings .ChooseColumns = att.Value
                                    End Select
                                    lstSiteMenuSettings.Add(objMenuSettings)
                                Next
                            End If

                        Next

                    Next

I wanted to know if there is any efficient way to implement this scenario. Please help me the same.

What I have tried:

Dim attrAdminMenuObjects = XDocument.Parse(xmlAdminDoc.InnerXml).Descendants("Menu")
                    Dim objMenuSettings As New MenuSettings
 

                    For Each headerMenuNode In attrAdminMenuObjects.Elements
                        For Each childNode In headerMenuNode.Nodes
                            objMenuSettings .Menu_ID = headerMenuNode.FirstAttribute.Value
                           objMenuSettings .Menu_Text = headerMenuNode.LastAttribute.Value
                            Dim xeSubmenuElements As XElement = DirectCast(childNode, System.Xml.Linq.XElement)
                            If xeSubmenuElements.HasAttributes Then
                                Dim attrSubMenuElementList As IEnumerable(Of XAttribute) = From attrSubMenuelement In xeSubmenuElements.Attributes() Select attrSubMenuelement
                                For Each att In attrSubMenuElementList
                                    Select Case att.Name
                                        Case "id"
                                            objMenuSettings .SubMenu_ID = att.Value
                                        Case "text"
                                            objMenuSettings .SubMenu_Text = att.Value
                                        Case "url"
                                            objMenuSettings .URL = att.Value
                                        Case "Pagination"
                                            objMenuSettings .isPaginationRequired = att.Value
                                        Case "Filter"
                                            objMenuSettings .isFilterRequired = att.Value
                                        Case "Choose_Columns"
                                            objMenuSettings .ChooseColumns = att.Value
                                    End Select
                                    lstSiteMenuSettings.Add(objMenuSettings)
                                Next
                            End If

                        Next

                    Next