VB.net - XML

Version imprimable

24/07/2011, 13h47
Muller Guy

1 pièce(s) jointe(s)

VB.net - XML
Bonjour,
J'ai une lecture d'un fichier GPX de garmin (voir annexe) je souhaite récupérer les attreibuts des WPT.

Je ne suis pas très à l'aise avec XML, voici un semblant de code :
Code:

1 2 3 Dim geoXml As New XmlDocument() geoXml.Load("...\Current.gpx") TextBox1.Text = geoXml.SelectSingleNode(?????).InnerText.ToString()
Je n'e trouve pas la syntaxe pour me positionner sur "Lat", Lng etc...

Merci d'avance pour votre aide.

Muller Guy

Bonjour,

Je ne sais pas si c'est la meilleure des solutions, mais j'utiliserais XPath, avec la requête suivante :

Code:

/gpx/wpt/@lat

Logiquement le code suivant devrait fonctionner, mais ce n'est pas le cas. Mais c'est déjà un début de piste :
Code:

1 2 3 4 5 6 Dim geoXPath As New XPath.XPathDocument("C:\Users\Mathieu\Downloads\Current.xml") Dim xpathNav As XPath.XPathNavigator = geoXPath.CreateNavigator() Dim xpathNI As XPath.XPathNodeIterator = xpathNav.Select("/gpx/wpt/@lat") While (xpathNI.MoveNext()) Console.WriteLine(xpathNI.Current.Value) End While
Peut être que quelqu'un d'autre (ou toi) trouvera l'erreur.

Edit 19:15
Je n'ai toujours pas trouvé d'où vient mon erreur (pas normal car la requête XPath est bonne, c'est celle donnée par plusieurs applis), mais voici une solution de secours :
Code:

1 2 3 4 5 6 7 8 Imports System.Text.RegularExpressions Dim chemin As String = "C:\Users\Mathieu\Downloads\Current.xml" Dim match As Match = Regex.Match(My.Computer.FileSystem.OpenTextFileReader(chemin).ReadToEnd, "lat=""([-]?[\d]+[.]?[\d]*)""") While (match.Success) Console.WriteLine(match.Groups(1).Value) match = match.NextMatch End While
@+
Mat

:ccool:Un grand merci pour cette info,

Salutations
Muller Guy

voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
sFile = "...\Gpx\Current.gpx"
        Dim gpxDoc As XDocument = GetGpxDoc(sfile)
 
        Dim gpx As XNamespace = GetGpxNameSpace()
 
 
        Dim doc = XDocument.Load(sfile)
        For Each result In doc.Descendants(gpx + "wpt")
            Console.WriteLine(result.Element(gpx + "name").Value)
            Console.WriteLine(result.@lat)
            Console.WriteLine(result.@lon)
        Next

Code pour geocodage

Je profite de cette demande pour lister du code google map

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
     Dim uriRequest As New Uri("http://maps.googleapis.com/maps/api/geocode/xml?address=rue du verger 21b+chavornay+1373+ch&sensor=false")
        Dim geoRequest As Net.HttpWebRequest = Net.WebRequest.Create(uriRequest)
        Dim geoResponse As Net.HttpWebResponse = geoRequest.GetResponse()
        Dim sr As New StreamReader(geoResponse.GetResponseStream(), Encoding.UTF8)
        'instantiate new xml document to hold the google geo resulting 
 
        Dim geoXml As New XmlDocument()
 
        geoXml.LoadXml(sr.ReadToEnd().ToString())
        geoXml.GetElementsByTagName("address_component")
 
        Form1.TextBox1.Text = geoXml.SelectSingleNode("/GeocodeResponse/result/geometry/location/lat").InnerText.ToString()
        Form1.TextBox2.Text = geoXml.SelectSingleNode("/GeocodeResponse/result/geometry/location/lng").InnerText.ToString()