Excellent!
Many many thanks
"Shariq Khan" <shariq@shariqkhan.com> wrote in message
news:epMdMUL$EHA.2984@TK2MSFTNGP09.phx.gbl...[color=blue]
> 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
>
shariq@shariqkhan.com
>
>
> "Adrian" <Adrian@nospamhotmail.com.uk> wrote in message
> news:csgpoi$qts$1@titan.btinternet.com...[color=green]
>> 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
>>
>>[/color]
>
>[/color]
