Imports System

Imports System.Xml

Imports System.IO

​

Public Module Module1

    Public Sub Main()

        Dim xmlNode As String = "<?xml version='1.0'?>" &

                                "<menu>" &

                                    "<header>" &

                                        "<listname>Files list</listname>" &

                                        "<lastlistupdate>02/08/2018</lastlistupdate>" &

                                    "</header>" &

                                    "<project name=""file001"" index=""True"" image=""x"">" &

                                        "<description>ABC Project</description>" &

                                        "<month>January</month>" &

                                    "</project>" &

                                    "<project name=""file002"" index=""true"" image=""x"">" &

                                        "<description>DEF Project</description>" &

                                        "<month>February</month>" &

                                    "</project>" &

                                "</menu>"

        Dim filename As String = ""

        Dim title As String = ""

        Dim XMLReader As XmlReader = XmlReader.Create(New StringReader(xmlNode))

        With XMLReader

            ' As long as the reader hasn't come to the end of the document, this loop is executed

            Do While .Read

                If .IsStartElement() Then

                    Select Case .Name

                        Case "project"

                            filename = .GetAttribute(0)

                            Console.WriteLine(filename)

                        Case "description"

                            title = .ReadElementString

                            Console.WriteLine(title)

                            Console.WriteLine("Found: " & filename & " - " & title)

                            Exit Select

                        Case Else

                            .Read()

                            'continue reading if nothing is special

                    End Select

                End If

            Loop

            .Close()

        End With

    End Sub

End Module