XML from VB 6 to VB.net Help please

[Adrian]

hi
I had the following code (fragment) in a VB6 app, what should the XML
bits look like in VB.Net?

Thanks

Public Sub XML_list(ByVal xml As String)

Dim xmldom As MSXML2.DOMDocument

xmldom = New MSXML2.DOMDocument



Dim node As MSXML2.IXMLDOMNode

Dim i As Integer

xmldom.async = False

xmldom.loadXML(xml)

i = 1

message_count = xmldom.getElementsByTagName("Seg").length

TairSegs = message_count

If message_count < 1 Then message_count = 1

ReDim messageTXT_count(message_count)

If Not xmldom.getElementsByTagName("Seg") Is Nothing Then

For Each node In xmldom.getElementsByTagName("Seg")

For xmlnodecount = 0 To node.childNodes.length - 1

node_name = node.childNodes.Item(xmlnodecount).nodeName

 

[Shariq Khan]

Adrian:

See if this helps:

Imports System.Xml

Class TestClass

Public Sub XML_list(ByVal xml As String)
Dim xmldom As New Xml.XmlDocument
xmldom.LoadXml(xml)

Dim i As Integer = 1
Dim message_count As Integer =
xmldom.GetElementsByTagName("Seg").Count
Dim TairSegs As Integer = message_count

If message_count < 1 Then message_count = 1

Dim messageTXT_count(message_count) As String

If Not xmldom.GetElementsByTagName("Seg") Is Nothing Then

For Each node As Xml.XmlNode In
xmldom.GetElementsByTagName("Seg")
For xmlnodecount As Integer = 0 To node.ChildNodes.Count - 1
Dim node_name As String =
node.ChildNodes.Item(xmlnodecount).Name
Next
Next
End If
End Sub

End Class


Shariq Khan
(e-mail address removed)

 

[Adrian]

Excellent!

Many many thanks

Adrian:

See if this helps:

Imports System.Xml

Class TestClass

Public Sub XML_list(ByVal xml As String)
Dim xmldom As New Xml.XmlDocument
xmldom.LoadXml(xml)

Dim i As Integer = 1
Dim message_count As Integer =
xmldom.GetElementsByTagName("Seg").Count
Dim TairSegs As Integer = message_count

If message_count < 1 Then message_count = 1

Dim messageTXT_count(message_count) As String

If Not xmldom.GetElementsByTagName("Seg") Is Nothing Then

For Each node As Xml.XmlNode In
xmldom.GetElementsByTagName("Seg")
For xmlnodecount As Integer = 0 To node.ChildNodes.Count -
1
Dim node_name As String =
node.ChildNodes.Item(xmlnodecount).Name
Next
Next
End If
End Sub

End Class


Shariq Khan
(e-mail address removed)