Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports HtmlAgilityPack
- Private Sub webXML()
- Dim oXml As New XmlDocument
- oXml.LoadXml("<webTable xmlns=""http://www.test.com/test1"" xmlns:n1=""http://www.test.com/test2"" xmlns:xsi=""http://www.test.com/test3"" xsi:schemaLocation=""http://www.test.com/test4""></webTable>")
- ''Add Namespace
- Dim NS As New Xml.XmlNamespaceManager(oXml.NameTable)
- NS.AddNamespace("ns", "http://www.test.com/test1")
- NS.AddNamespace("n1", "http://www.test.com/test2")
- NS.AddNamespace("xsi", "http://www.test.com/test3")
- ''Create XML declaration
- Dim xmldecl As XmlDeclaration
- xmldecl = oXml.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
- xmldecl.Encoding = "UTF-8"
- ''Add node to document
- Dim root As XmlElement = oXml.DocumentElement
- oXml.InsertBefore(xmldecl, root)
- ''info
- Dim info As XmlNode = oXml.CreateNode("element", "info", "http://www.test.com/test1")
- ''data1
- Dim data1 As XmlNode = oXml.CreateNode("element", "data1", "http://www.test.com/test1")
- Dim data1Value As String = HtmlEntity.Entitize(Trim("Company Name 1 ©"), True)
- Dim data1Text As XmlText = oXml.CreateTextNode(data1Value)
- data1.AppendChild(data1Text)
- info.AppendChild(data1)
- Console.WriteLine("Data1 value: " + data1Value)
- Console.WriteLine("Data1 text node value: " + data1Text.Value)
- Console.WriteLine("Data1 node text value: " + data1.InnerText)
- Console.WriteLine("Data1 node XML value: " + data1.InnerXml)
- ''data2
- Dim data2 As XmlNode = oXml.CreateNode("element", "data2", "http://www.test.com/test1")
- Dim data2Value As String = Trim(HtmlEntity.Entitize("Company Name 2 ®", False))
- data2.InnerText = data2Value
- info.AppendChild(data2)
- Console.WriteLine("Data2 value: " + data2Value)
- Console.WriteLine("Data2 node text value: " + data2.InnerText)
- Console.WriteLine("Data2 node XML value: " + data2.InnerXml)
- ''data3
- Dim data3 As XmlNode = oXml.CreateNode("element", "data3", "http://www.test.com/test1")
- Dim data3value As String = Trim(HtmlEntity.Entitize("Company Name 3 ®", False))
- data3.InnerXml = data3value
- info.AppendChild(data3)
- Console.WriteLine("Data3 value: " + data3value)
- Console.WriteLine("Data3 node text value: " + data3.InnerText)
- Console.WriteLine("Data3 node XML value: " + data3.InnerXml)
- ''Add info to Root
- root.AppendChild(info)
- oXml.Save(Console.Out)
- oXml.Save("C:UsersChrisDropboxSECUREXJunktextXML.xml")
- End Sub
- Data1 value: Company Name 1 ©
- Data1 text node value: Company Name 1 ©
- Data1 node text value: Company Name 1 ©
- Data1 node XML value: Company Name 1 ©
- Data2 value: Company Name 2 ®
- Data2 node text value: Company Name 2 ®
- Data2 node XML value: Company Name 2 ®
- Data3 value: Company Name 3 ®
- Data3 node text value: Company Name 3 ®
- Data3 node XML value: Company Name 3 ®
- <?xml version="1.0" encoding="Windows-1252"?>
- <webTable xmlns="http://www.test.com/test1" xmlns:n1="http://www.test.com/test2" xmlns:xsi="http://www.test.com/test3" xsi:schemaLocation="http://www.test.com/test4">
- <info>
- <data1>Company Name 1 ©</data1>
- <data2>Company Name 2 ®</data2>
- <data3>Company Name 3 ®</data3>
- </info>
- </webTable>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement