Mega Code Archive

 

Categories / VB.Net / XML

 

XmlNode GetPrefixOfNamespace

Option Strict Option Explicit Imports System Imports System.IO Imports System.Xml Public Class Sample     Public Shared Sub Main()         Dim doc As New XmlDocument()         doc.LoadXml("<book xmlns:bk='urn:samples' bk:ISBN='1-111111-57-5'>" & _                     "<title>C#</title>" & _                     "</book>")         Dim root As XmlNode = doc.FirstChild         'Create a new node.         Dim prefix As String = root.GetPrefixOfNamespace("urn:samples")         Dim elem As XmlElement = doc.CreateElement(prefix, "style", "urn:samples")         elem.InnerText = "hardcover"         root.AppendChild(elem)         doc.Save(Console.Out)     End Sub End Class