VB.net读取XML

Question

Can someone help me how to read values in xml with his format?

Below is the sample xml . I need to get the following:

>id = 4ebc-9c89
>employeeidnumber = 12345
>name = Smith, John
>weekday = 31/10/2016
>reason = VL

>weekday = 1/11/2016
>reason = VL

>id = 35bc-9c89
>employeeidnumber = 54321
>name = Smith, Jane
>weekday = 1/11/2016
>reason = VL*

If employee applied for two or more leave, the program should get all his/her leaves.

<employeeleaverequest>
      <leaverequest>
        <id>4ebc-9c89</id>
        <employeeidnumber>12345</employeeidnumber>
        <name>Smith, John</name>
        <company name="ABC Company">42b8</company>    
        <position name="08">-d00077504</position>
        <dayleaverequest>
          <weekday date="31/10/2016">2</weekday>
          <segments>
            <segment>
              <id>ae2f2c</id>
              <hours>8</hours> 
              <reason name="Vacation Leave">VL</reason>
              <status>1</status>
            </segment>
          </segments>
        </dayleaverequest>
        <dayleaverequest>
          <weekday date="1/11/2016">3</weekday>
          <segments>
            <segment>
              <id>96898</id>
              <hours>8</hours>       
             <reason name="Vacation Leave">VL</reason>
             <status>1</status>
            </segment>
          </segments>
        </dayleaverequest>   
      </leaverequest>
      <leaverequest>
        <id>35bc-9c89</id>
        <employeeidnumber>54321</employeeidnumber>
        <name>Smith, Jane</name>
        <company name="ABC Company">42b8</company>    
        <position name="08">-d00077504</position>
        <dayleaverequest>
          <weekday date="1/11/2016">2</weekday>
          <segments>
            <segment>
              <id>ae333c</id>
              <hours>8</hours> 
              <reason name="Vacation Leave">VL</reason>
              <status>1</status>
            </segment>
          </segments>
        </dayleaverequest>    
      </leaverequest>
    </employeeleaverequest>

Here's my code so far.

  For Each Node As XmlElement In nodelist
             strId = Node("id").InnerText
              strNumber = Node("employeeidnumber").InnerText
              strName = Node("name").InnerText

              Dim sLeaveDay As XmlNode = >Node.SelectSingleNode("dayleaverequest")
              If strLeaveDay IsNot Nothing Then
                  strLeaveDay = >sLeaveDay("weekday").Attributes.ItemOf("date").InnerText
              End If

              Dim sSegments As XmlNode = >Node.SelectSingleNode>("dayleaverequest/segments/segment")
              If sSegments IsNot Nothing Then
                  strReason = sSegments("reason").InnerText              
              End If

              MessageBox.Show(strId & "|" & strNumber & "|" & strName & >"|" & strLeaveDay & "|" & strReason)
          Next

Answer 1

Try xml linq :

Imports System.Xml
Imports System.Xml.Linq
Module Module1
    Const FILENAME As String = "c:\temp\test.xml"
    Sub Main()
        Dim doc As XDocument = XDocument.Load(FILENAME)

        Dim leaverequests = doc.Descendants("leaverequest").Select(Function(x) New With {
                    .id = x.Element("id"),
                    .employeeidnumber = x.Element("employeeidnumber"),
                    .name = x.Element("name"),
                    .company = x.Element("company"),
                    .postition = x.Element("position"),
                    .dayleaverequest = x.Elements("dayleaverequest").Select(Function(y) New With {
                        .weekday = y.Element("weekday").Value,
                        .date = y.Element("weekday").Attribute("date"),
                        .id = y.Descendants("id").FirstOrDefault(),
                        .hours = y.Descendants("hours").FirstOrDefault(),
                        .reason = y.Descendants("reason").Select(Function(z) CType(z.Value, String)).FirstOrDefault(),
                        .name = y.Descendants("reason").FirstOrDefault().Attribute("name").Value,
                        .status = y.Descendants("status").FirstOrDefault()
                    }).ToList()
                }).ToList()

    End Sub

End Module

Answer 2

I was able to resolved my own problem.

This is the code that solved my problem. I just declared variable to read the dayleaverequest. Then I use for each loop on it.

For Each Node As XmlElement In NodeList strId = Node("id").InnerText strNumber = Node("employeeidnumber").InnerText strName = Node("name").InnerText

Dim InnerNodeList As XmlNodeList = Node.SelectNodes("dayleaverequest")

'loop through InnerNodeList(dayleaverequest)
For Each InnerNode As XmlNode In InnerNodeList
    strLeaveDay = InnerNode("weekday").Attributes.ItemOf("date").InnerText

    Dim sSegments As XmlNode = Node.SelectSingleNode("dayleaverequest/segments/segment")
     If sSegments IsNot Nothing Then
      strReason = sSegments("reason").InnerText              
  End If

   MessageBox.Show(strId & "|" & strNumber & "|" & strName & >"|" & strLeaveDay & "|" & strReason)
Next

Next