Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
Public Shared Sub Main()
Dim doc As New XmlDocument()
doc.LoadXml("<book genre='novel' ISBN='11111111111'><title>AAA</title></book>")
Dim attr As XmlAttribute = doc.CreateAttribute("publisher")
attr.Value = "WorldWide Publishing"
doc.DocumentElement.SetAttributeNode(attr)
doc.Save(Console.Out)
End Sub
End Class
|