how should this work ?? ( XML )

[M. Posseth]

Hello ,,,

i am currently bussy to learn some XML parsing however i have a slight
problem with it :-)

in the below code i would expect the msgbox to give the result 0201 however
it returns an empty value

how should i handle this ???

( tryed all sorts of combinations with nodes and elements and attributes but
i do not get any values ..... aaaahrghhhh ;-) )



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim x As String = "<?xml version=""1.0"" encoding=""iso-8859-1""?>" & vbCrLf
& _

"<tirep>" & vbCrLf & "<request>" & vbCrLf & "<cmd>0201</cmd>" & vbCrLf &
"<dsc>VS_GetBrands</dsc>" & vbCrLf & _

"<maxcount>200</maxcount>" & vbCrLf & "<IDsOnly></IDsOnly>" & vbCrLf &
"</request>" & vbCrLf & _

"<params>" & vbCrLf & "<session>{[GUID]}</session>" & vbCrLf &
"<BrandName>Au</BrandName>" & _

vbCrLf & "</params>" & vbCrLf & "</tirep>"

MsgBox(x)

Dim xmldoc As New XmlDocument

xmldoc.LoadXml(x)

With xmldoc.SelectSingleNode("tirep")

MsgBox(.Item("request").Item("cmd").Value)
End With

End Sub

[Scott M.]

Change your code to this:

With xmldoc.SelectSingleNode("tirep")
MsgBox(.Item("request").Item("cmd").firstChild.Val ue)
End With

remember that the text of an element is a child node of that element.
"M. Posseth" <mi*****@nohausystems.nl> wrote in message
news:d0**********@reader08.wxs.nl...

Hello ,,,

i am currently bussy to learn some XML parsing however i have a slight
problem with it :-)

in the below code i would expect the msgbox to give the result 0201
however
it returns an empty value

how should i handle this ???

( tryed all sorts of combinations with nodes and elements and attributes
but
i do not get any values ..... aaaahrghhhh ;-) )



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim x As String = "<?xml version=""1.0"" encoding=""iso-8859-1""?>" &
vbCrLf
& _

"<tirep>" & vbCrLf & "<request>" & vbCrLf & "<cmd>0201</cmd>" & vbCrLf &
"<dsc>VS_GetBrands</dsc>" & vbCrLf & _

"<maxcount>200</maxcount>" & vbCrLf & "<IDsOnly></IDsOnly>" & vbCrLf &
"</request>" & vbCrLf & _

"<params>" & vbCrLf & "<session>{[GUID]}</session>" & vbCrLf &
"<BrandName>Au</BrandName>" & _

vbCrLf & "</params>" & vbCrLf & "</tirep>"

MsgBox(x)

Dim xmldoc As New XmlDocument

xmldoc.LoadXml(x)

With xmldoc.SelectSingleNode("tirep")

MsgBox(.Item("request").Item("cmd").Value)
End With

End Sub

[M. Posseth]

Thanks ,,,

This worked great !

i also found this alternative method

MsgBox(xmldoc.GetElementsByTagName("cmd").Item(0). InnerText)

wich gives me the same result however , i do not trust this method as much
as i do yours :-)

again thanks for your help

Michel

"Scott M." <s-***@nospam.nospam> wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...

Change your code to this:

With xmldoc.SelectSingleNode("tirep")
MsgBox(.Item("request").Item("cmd").firstChild.Val ue)
End With

remember that the text of an element is a child node of that element.
"M. Posseth" <mi*****@nohausystems.nl> wrote in message
news:d0**********@reader08.wxs.nl...

Hello ,,,

i am currently bussy to learn some XML parsing however i have a slight
problem with it :-)

in the below code i would expect the msgbox to give the result 0201
however
it returns an empty value

how should i handle this ???

( tryed all sorts of combinations with nodes and elements and attributes
but
i do not get any values ..... aaaahrghhhh ;-) )



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim x As String = "<?xml version=""1.0"" encoding=""iso-8859-1""?>" &
vbCrLf
& _

"<tirep>" & vbCrLf & "<request>" & vbCrLf & "<cmd>0201</cmd>" & vbCrLf &
"<dsc>VS_GetBrands</dsc>" & vbCrLf & _

"<maxcount>200</maxcount>" & vbCrLf & "<IDsOnly></IDsOnly>" & vbCrLf &
"</request>" & vbCrLf & _

"<params>" & vbCrLf & "<session>{[GUID]}</session>" & vbCrLf &
"<BrandName>Au</BrandName>" & _

vbCrLf & "</params>" & vbCrLf & "</tirep>"

MsgBox(x)

Dim xmldoc As New XmlDocument

xmldoc.LoadXml(x)

With xmldoc.SelectSingleNode("tirep")

MsgBox(.Item("request").Item("cmd").Value)
End With

End Sub

[Scott M.]

There are many ways to parse through XML using the W3C DOM and MS's
implementation of its own XML DOM. Just remember that when parsing through
XML, everything is considered a node and you must treat each item as such.
"M. Posseth" <mi*****@nohausystems.nl> wrote in message
news:d0**********@reader08.wxs.nl...

Thanks ,,,

This worked great !

i also found this alternative method

MsgBox(xmldoc.GetElementsByTagName("cmd").Item(0). InnerText)

wich gives me the same result however , i do not trust this method as much
as i do yours :-)

again thanks for your help

Michel

"Scott M." <s-***@nospam.nospam> wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...

Change your code to this:

With xmldoc.SelectSingleNode("tirep")
MsgBox(.Item("request").Item("cmd").firstChild.Val ue)
End With

remember that the text of an element is a child node of that element.
"M. Posseth" <mi*****@nohausystems.nl> wrote in message
news:d0**********@reader08.wxs.nl...

> Hello ,,,
>
> i am currently bussy to learn some XML parsing however i have a slight
> problem with it :-)
>
> in the below code i would expect the msgbox to give the result 0201
> however
> it returns an empty value
>
> how should i handle this ???
>
> ( tryed all sorts of combinations with nodes and elements and
> attributes
> but
> i do not get any values ..... aaaahrghhhh ;-) )
>
>
>
>
>
>
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
> Dim x As String = "<?xml version=""1.0"" encoding=""iso-8859-1""?>" &
> vbCrLf
> & _
>
> "<tirep>" & vbCrLf & "<request>" & vbCrLf & "<cmd>0201</cmd>" & vbCrLf
> &
> "<dsc>VS_GetBrands</dsc>" & vbCrLf & _
>
> "<maxcount>200</maxcount>" & vbCrLf & "<IDsOnly></IDsOnly>" & vbCrLf &
> "</request>" & vbCrLf & _
>
> "<params>" & vbCrLf & "<session>{[GUID]}</session>" & vbCrLf &
> "<BrandName>Au</BrandName>" & _
>
> vbCrLf & "</params>" & vbCrLf & "</tirep>"
>
> MsgBox(x)
>
> Dim xmldoc As New XmlDocument
>
> xmldoc.LoadXml(x)
>
> With xmldoc.SelectSingleNode("tirep")
>
> MsgBox(.Item("request").Item("cmd").Value)
>
>
> End With
>
> End Sub
>
>
>
>
>
>
>
>
>
>