Discussion :

[Muller Guy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[matll]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

/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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Muller Guy]

Un grand merci pour cette info,

Salutations
Muller Guy

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A

[Muller Guy]

Je profite de cette demande pour lister du code google map

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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()