reading xml

[irade92]

I am trying to put in a variable from xmlnode.element ( facsimile) value '777777'

<hospital>
<specialist1>
<id>815175007</id>
<medic>
<facsimile>777777</facsimile>
<first_name>Bob</first_name>
<last_name>Smith</last_name>
</medic>
</specialist1>
</hospital>
I am using this code:

Set xmlNodeList = resp.getElementsByTagName("*")
For Each xmlNode In xmlNodeList
If xmlNode.nodeName = "specialist1" Then
Dim spec1 As String

If xmlNode.HasChildNodes = True Then
If xmlNode.ChildNodes.item(1).nodeName = "medic" Then
If xmlNode.HasChildNodes = True Then
spec1 = xmlNode.ChildNodes.item(0).text
End If
End If
End If
Next
but it doesn't work
Please help

 

[theDBguy]

Hmm, would it be easier to use an XPath instead? For example:

Set xmlNode=resp.SelectSingleNode("/hospital/medic/facsimile")

(untested - just a guess)

 

[irade92]

Hmm, would it be easier to use an XPath instead? For example:

Set xmlNode=resp.SelectSingleNode("/hospital/medic/facsimile")

(untested - just a guess)

and then how to put the value in the variable?

 

[theDBguy]

and then how to put the value in the variable?

Maybe something like?

varname = xmlNode.nodeValue

If that doesn't work, you could try:

varname = xmlNode.childNodes(0).nodeValue

 

[MrHans]

Here is a really nice example of using XPath to work with XML results

https://myengineeringworld.net/2013/08/custom-vba-trip-distance-function-google-directions-api.html

 

[irade92]

Maybe something like?

varname = xmlNode.nodeValue

If that doesn't work, you could try:

varname = xmlNode.childNodes(0).nodeValue

Thanks a lot ...very nice idea..

 

[irade92]

Here is a really nice example of using XPath to work with XML results

https://myengineeringworld.net/2013/08/custom-vba-trip-distance-function-google-directions-api.html

Thanks a lot..very gratefull