VB.Net GPX转到数据表

Imports System.Xml

Public Class GpxToDataTableConverter
    Public Function ConvertGpxToDataTable(gpxFilePath As String) As DataTable
        Dim dataTable As New DataTable()
        dataTable.Columns.Add("Latitude", GetType(Double))
        dataTable.Columns.Add("Longitude", GetType(Double))
        dataTable.Columns.Add("Elevation", GetType(Double))
        dataTable.Columns.Add("Time", GetType(DateTime))

        Dim xmlDoc As New XmlDocument()
        xmlDoc.Load(gpxFilePath)

        Dim namespaceManager As New XmlNamespaceManager(xmlDoc.NameTable)
        namespaceManager.AddNamespace("gpx", "http://www.topografix.com/GPX/1/1")

        Dim trackPoints As XmlNodeList = xmlDoc.SelectNodes("//gpx:trkpt", namespaceManager)

        For Each trackPoint As XmlNode In trackPoints
            Dim latitude As Double = Double.Parse(trackPoint.Attributes("lat").Value)
            Dim longitude As Double = Double.Parse(trackPoint.Attributes("lon").Value)
            Dim elevation As Double = Double.Parse(trackPoint.SelectSingleNode("gpx:ele", namespaceManager).InnerText)
            Dim time As DateTime = DateTime.Parse(trackPoint.SelectSingleNode("gpx:time", namespaceManager).InnerText)

            dataTable.Rows.Add(latitude, longitude, elevation, time)
        Next

        Return dataTable
    End Function
End Class