Vb + Xml

[resopi]

Olá

pessoal estou com um probleminha... eu tenho o seguinte XML...

<?xml version="1.0" encoding="UTF-8"?>

<gpx

version="1.0"

xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"

xmlns="http://www.topografix.com/GPX/1/0"'>http://www.topografix.com/GPX/1/0"

xsi:schemaLocation="http://www.topografix.com/GPX/1/0 http://www.topografix.com/GPX/1/0/gpx.xsd">

<time>2007-03-19T13:39:19Z</time>

<bounds minlat="-23.635751274" minlon="-46.573483000" maxlat="-23.635751274" maxlon="-46.573483000"/>

<wpt lat="-23.635751274" lon="-46.573483000">

<name>Position</name>

<cmt>Position</cmt>

<desc>Position</desc>

</wpt>

</gpx>

e eu preciso ler a propriedade lat e lon do node wpt... mas não estou conseguindo... alguém pode me dar uma mao?? o codigo que estou utilizando é esse...

Public Function obtemPosition(nmArquivo, parametro)

AbreDocXML (nmArquivo)

Set NodeConfig = objDoc.documentElement

Set nodeXML = NodeConfig.selectSingleNode(parametro)

If nodeXML Is Nothing Then

obtemPosition = ""

Else

obtemPosition = nodeXML.nodeName

End If

Set NodeConfig = Nothing

Set nodeXML = Nothing

End Function

esse codigo me retorna apenas "wpt" e eu não consigo pegar a lat e long... alguém sabe oque devo fazer para retornar isso que eu quero?

[Graymalkin]

Obtenha os atributos do nó assim:

lat = nodeXML.Attributes.getNamedItem("lat").Text
lon = nodeXML.Attributes.getNamedItem("lon").Text

Certo? ;)

Graymalkin