Converting Valid XML String To Dataset

Imports System.Text
Imports System.Xml
Imports System.Data
Imports System.IO

Dim sb As New System.Text.StringBuilder
sb.Append("")
sb.Append("")
sb.Append("" & "Ethan Liew" & "")
sb.Append("" & "info@ethanliew.com" & "")
sb.Append("")
sb.Append("")

' Covert to string reader then to xmltextreader
Dim reader As New XmlTextReader(New StringReader(sb.ToString))
Dim ds As New DataSet
ds.ReadXml(reader)

' Return dataset
Return ds

1. First you need to use StringReader to read the string.
2. Convert it to XmlTextReader
3. Create a new dataset to

Display XML Tag on HTML

Sometimes you need to show the < & > Tag

You can use:

&lt; xmp &gt; my node &lt; / xmp &gt;

You will get a similiar and valid xml tag.
else you will not get < > tag in the output.

Using XPath and Xdoc In Xml Documents

'// sample xml

Dim sb As New System.Text.StringBuilder
sb.Append("")
sb.Append("1000")
sb.Append("1")
sb.Append("07.11.2007")
sb.Append("31.12.9999")
sb.Append("GARTENSTR. 66")
sb.Append("")
sb.Append("76031")
sb.Append("KARLSRUHE")
sb.Append("DE")
sb.Append("")
sb.Append("721121212")
sb.Append("")


Dim xDoc As New XmlDocument
xDoc.LoadXml(_InputXML)

'// Get Attribute
Dim tcode As String = xDoc.FirstChild.LocalName
Dim profile As String = xDoc.FirstChild.Attributes.GetNamedItem("profile").InnerText
Dim rfcname As String = xDoc.FirstChild.Attributes.GetNamedItem("rfcname").InnerText
Dim cpuid As String = xDoc.FirstChild.Attributes.GetNamedItem("cpuid").InnerText
Dim role As String = xDoc.FirstChild.Attributes.GetNamedItem("role").InnerText
Dim desc As String = xDoc.FirstChild.Attributes.GetNamedItem("desc").InnerText

' Dim doc As XPathDocument
Dim nav As XPathNavigator
Dim iter As XPathNodeIterator

'doc = New XPathDocument(_InputXML)
'nav = doc.CreateNavigator
nav = xDoc.CreateNavigator
iter = nav.Select("/") 'Your node name goes here


While iter.MoveNext
Dim iterNews As XPathNodeIterator
iterNews = iter.Current.SelectDescendants(XPathNodeType.Element, False)
While iterNews.MoveNext
' Debug.WriteLine(iterNews.Current.Name & ": " & iterNews.Current.Value)
If Not iterNews.CurrentPosition = 1 Then
SFO.Exports(iterNews.Current.Name).Value = iterNews.Current.Value
End If

End While
End While

dim sPERNR as string = xDoc.GetElementsByTagName("PERNR").Item(0).InnerText