Moin Leute:
Habe bereits einen Code zum Ermitteln der Entfernung von 2 Orten via Google.
Funktioniert jedoch nicht.
Kriege jedes mal de Exception geworfen, weiß allerdings nicht wieso.
Hat jemand eine Idee wie ich das Problem löäsen kann?
Oder weiß jemand? Wie ich noch elichter bei Google ne Entfernung von 2 Orten abrufen kann?
Am besten Straße und Hausnummer
Besten Dank schonmal
Habe bereits einen Code zum Ermitteln der Entfernung von 2 Orten via Google.
VB.NET-Quellcode
- Imports System.IO
- Imports System.Net
- Imports System.Text.RegularExpressions
- Public Class MapService
- ''' <summary>
- ''' Ermittelt über Google-Maps die KM-Entfernung zweier Orte
- ''' </summary>
- ''' <param name="source">Ausgangsort</param>
- ''' <param name="destination">Zielort</param>
- ''' <returns>KM-Entfernung</returns>
- Public Shared Function GetKMDistance(ByVal source As String,
- ByVal destination As String) As Integer
- Dim response As String = (New WebClient).DownloadString(
- String.Format("http://maps.google.de/maps?f=d&hl=de&saddr={0}&daddr={1}&output=html",
- source, destination))
- ' innerhalb des Response-Wertes nach folgendem String suchen
- ' Fahrt:</td><td align="right" nowrap class="timedist ul">
- ' <div class="noprint"><div>136 km
- Dim pattern As String = "Fahrt:\D+(\d+).+?km"
- Dim match = Regex.Match(response, pattern)
- If Not match.Success OrElse match.Groups.Count < 2 Then
- Throw New Exception("Anfrage bei GoogleMaps fehlgeschlagen!")
- Else
- Return Integer.Parse(match.Groups(1).Value)
- End If
- End Function
- 'Aufruf
- Sub Aufruf()
- Dim KM As Integer
- KM = MapService.GetKMDistance("86517", "Leipzig")
- MsgBox("Die Entfernung beträgt " & KM.ToString() & " KM")
- End Sub
- End Class
Funktioniert jedoch nicht.
Kriege jedes mal de Exception geworfen, weiß allerdings nicht wieso.
Hat jemand eine Idee wie ich das Problem löäsen kann?
Oder weiß jemand? Wie ich noch elichter bei Google ne Entfernung von 2 Orten abrufen kann?
Am besten Straße und Hausnummer
Besten Dank schonmal
~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~