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
sh****@shariqkhan.com
"Adrian" <Ad****@nospamhotmail.com.uk> wrote in message
news:cs**********@titan.btinternet.com...
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