Estrarre le coordinate geografiche presenti in un file gpx

Il file di formato GPX (GPS eXchange Format) è di tipo XML contenente dati GPS.

Per estrarre i valori attinenti alla latitudine e alla longitudine di ciascun punto, referenziato dal file, si potrà utilizzare il seguente codice:

Public Sub Main()
 
 Dim gpx, s As String
 Dim ss As String[]
 Dim lat, lon As New String[]
 Dim i As Integer  
 
 gpx = File.Load("/percorso/del/file.gpx")
 
 ss = Split(gpx, gb.NewLine, Null, False, False)
 
 For Each s In ss
   If Trim(s) Begins "<trkpt lat" Then
     lat.Push(Scan(s, "*trkpt lat=\"*\"*")[1])
     lon.Push(Scan(s, "*trkpt lat=\"*\" lon=\"*\"*")[2])
   Endif
 Next
 
 For i = 0 To lat.Max
   Print lat[i], lon[i]
 Next
 
End

Riferimenti

• https://www.topografix.com/gpx.asp