ParseXml file in vb.net

See more:

VB8

VB9

VB

VBScript

VB10

Hi, Can i get some help to retrieve all name from the xml and display them on a listbox.


I tried some codes, but it is displaying only the fist tag name in a textbox,how to display all in a list box.

Imports System.IO
Imports System.Xml
Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim clsDocument As New System.Xml.XmlDocument
        clsDocument.Load("C:\Users\Viraj\Desktop\XMLFile1.xml")
        Dim clsAuthors As System.Xml.XmlNodeList = clsDocument.SelectNodes("//bookstore/book/author")
        clsAuthors = clsDocument.GetElementsByTagName("author")
        For Each clsNode As System.Xml.XmlNode In clsAuthors
            Dim sName As String
            Try
                If clsNode.ChildNodes.Count = 1 Then
                    sName = clsNode.Item("name").InnerText
                ElseIf clsNode.ChildNodes.Count = 2 Then
                    sName = String.Concat(clsNode.Item("first-name").InnerText, " ", clsNode.Item("last-name").InnerText)
                End If
            Catch
                sName = "(Unable to retrieve name)"
            End Try
            TextBox1.Text = String.Concat(TextBox1.Text, sName, ControlChars.CrLf)
        Next

    End Sub

MY XML FILE IS:-

<?xml version="1.0" encoding="UTF-8"?>
<!-- This file represents a fragment of a book store inventory database -->
<bookstore>
  <book genre="autobiography" publicationdate="1981" ISBN="1-861003-11-0">
    <title>The Autobiography of Benjamin Franklin</title>
    <author>
      <first-name>Benjamin</first-name>
      <last-name>Franklin</last-name>
    </author>
    <price>8.99</price>
  </book>
  <book genre="novel" publicationdate="1967" ISBN="0-201-63361-2">
    <title>The Confidence Man</title>
    <author>
      <first-name>Herman</first-name>
      <last-name>Melville</last-name>
    </author>
    <price>11.99</price>
  </book>
  <book genre="philosophy" publicationdate="1991" ISBN="1-861001-57-6">
    <title>The Gorgias</title>
    <author>
      <name>Plato</name>
    </author>
    <price>9.99</price>
  </book>
</bookstore>