Advertisement
Guest User

Untitled

a guest
Jul 31st, 2015
208
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.19 KB | None | 0 0
  1. Imports HtmlAgilityPack
  2.  
  3. Private Sub webXML()
  4.  
  5. Dim oXml As New XmlDocument
  6.  
  7. 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>")
  8.  
  9. ''Add Namespace
  10. Dim NS As New Xml.XmlNamespaceManager(oXml.NameTable)
  11. NS.AddNamespace("ns", "http://www.test.com/test1")
  12. NS.AddNamespace("n1", "http://www.test.com/test2")
  13. NS.AddNamespace("xsi", "http://www.test.com/test3")
  14.  
  15. ''Create XML declaration
  16. Dim xmldecl As XmlDeclaration
  17. xmldecl = oXml.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
  18. xmldecl.Encoding = "UTF-8"
  19.  
  20. ''Add node to document
  21. Dim root As XmlElement = oXml.DocumentElement
  22. oXml.InsertBefore(xmldecl, root)
  23.  
  24. ''info
  25. Dim info As XmlNode = oXml.CreateNode("element", "info", "http://www.test.com/test1")
  26.  
  27. ''data1
  28. Dim data1 As XmlNode = oXml.CreateNode("element", "data1", "http://www.test.com/test1")
  29. Dim data1Value As String = HtmlEntity.Entitize(Trim("Company Name 1 ©"), True)
  30. Dim data1Text As XmlText = oXml.CreateTextNode(data1Value)
  31. data1.AppendChild(data1Text)
  32. info.AppendChild(data1)
  33. Console.WriteLine("Data1 value: " + data1Value)
  34. Console.WriteLine("Data1 text node value: " + data1Text.Value)
  35. Console.WriteLine("Data1 node text value: " + data1.InnerText)
  36. Console.WriteLine("Data1 node XML value: " + data1.InnerXml)
  37.  
  38. ''data2
  39. Dim data2 As XmlNode = oXml.CreateNode("element", "data2", "http://www.test.com/test1")
  40. Dim data2Value As String = Trim(HtmlEntity.Entitize("Company Name 2 ®", False))
  41. data2.InnerText = data2Value
  42. info.AppendChild(data2)
  43. Console.WriteLine("Data2 value: " + data2Value)
  44. Console.WriteLine("Data2 node text value: " + data2.InnerText)
  45. Console.WriteLine("Data2 node XML value: " + data2.InnerXml)
  46.  
  47. ''data3
  48. Dim data3 As XmlNode = oXml.CreateNode("element", "data3", "http://www.test.com/test1")
  49. Dim data3value As String = Trim(HtmlEntity.Entitize("Company Name 3 ®", False))
  50. data3.InnerXml = data3value
  51. info.AppendChild(data3)
  52. Console.WriteLine("Data3 value: " + data3value)
  53. Console.WriteLine("Data3 node text value: " + data3.InnerText)
  54. Console.WriteLine("Data3 node XML value: " + data3.InnerXml)
  55.  
  56. ''Add info to Root
  57. root.AppendChild(info)
  58.  
  59. oXml.Save(Console.Out)
  60. oXml.Save("C:UsersChrisDropboxSECUREXJunktextXML.xml")
  61.  
  62. End Sub
  63.  
  64. Data1 value: Company Name 1 &copy;
  65. Data1 text node value: Company Name 1 &copy;
  66. Data1 node text value: Company Name 1 &copy;
  67. Data1 node XML value: Company Name 1 &copy;
  68. Data2 value: Company Name 2 &#174;
  69. Data2 node text value: Company Name 2 &#174;
  70. Data2 node XML value: Company Name 2 &#174;
  71. Data3 value: Company Name 3 &#174;
  72. Data3 node text value: Company Name 3 ®
  73. Data3 node XML value: Company Name 3 ®
  74. <?xml version="1.0" encoding="Windows-1252"?>
  75. <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">
  76. <info>
  77. <data1>Company Name 1 &copy;</data1>
  78. <data2>Company Name 2 &#174;</data2>
  79. <data3>Company Name 3 ®</data3>
  80. </info>
  81. </webTable>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement