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
<?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>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)