vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Re: Online-Entfernungsermittlung zwischen zwei Orten 
Autor: gunthard
Datum: 02.10.10 11:18

z.Zt. ist der Zugriff auf www.maps.google.de langsam bzw. gar nicht möglich.
Alternative:
Zugriff über www.maps.google.com. Funktioniert schnell, es muss aber das Land eingegeben werden.
Hier der gesamte Code:
Private Sub Form_Load()
    Dim Route As String
    Dim KM As Integer
    Dim Stunden As Integer
    Dim Minuten As Integer
    Dim Start As Integer
    Dim AufSplitten() As String
 
    Route = getDistance("Google", "23847", "20146", "Steinhorst", "Hamburg", _
      "Mühlenbrook 1", "Binderstraße 13", "Deutschland", "Deutschland")
 
    Debug.Print Route
    Start = InStr(Route, "Stunde")
    If Start > 0 Then
        Stunden = Val(Route)
        Start = InStr(Route, "Stunden.")
        If Start > 0 Then
            Route = Trim$(Mid$(Route, Start + 8, 100))
        End If
        Start = InStr(Route, "Stunden")
        If Start > 0 Then
            Route = Trim$(Mid$(Route, Start + 7, 100))
        End If
        Start = InStr(Route, "Stunde")
        If Start > 0 Then
            Route = Trim$(Mid$(Route, Start + 6, 100))
        End If
    End If
    Start = InStr(Route, "Minute")
    If Start > 0 Then
        Minuten = Val(Route)
    End If
 
 
    AufSplitten = Split(Route, vbCrLf)
    Start = InStr(AufSplitten(1), "km")
    If Start > 0 Then
        KM = Val(AufSplitten(1))
    End If
 
    Debug.Print "Stunden="; Stunden
    Debug.Print "Minuten="; Minuten
    Debug.Print "KM="; KM
End Sub
 
Public Function getDistance(theMap As String, Optional plz1 As String = "", _
  Optional plz2 As String = "", Optional ort1 As String = "", Optional ort2 As _
  String = "", Optional Strasse1 As String = "", Optional Strasse2 As String = _
  "", Optional land1 As String = "", Optional land2 As String = "")
 
    Dim IEApp As Object
    Dim IEDocument As Object
    Dim strURL As String
    Dim Entfernung As String
    Dim von As String
    Dim nach As String
 
    ' IE-Instanz erstellen
    Set IEApp = CreateObject("InternetExplorer.Application")
    With IEApp
        ' IE-Fenster unsichtbar lassen
        .Visible = True
 
        ' von PLZ, Ort, Land
        von = plz1 & IIf(Len(ort1) > 0, "," & ort1, "") & IIf(Len(Strasse1) _
          > 0, "," & Strasse1, "") & IIf(Len(land1) > 0, "," & land1, "")
 
        ' nach PLZ, Ort, Land
        nach = plz2 & IIf(Len(ort2) > 0, "," & ort2, "") & IIf(Len(Strasse1) _
          > 0, "," & Strasse2, "") & IIf(Len(land2) > 0, "," & land2, "")
 
        ' URL aufrufen
 
        .Navigate "http://maps.google.com/maps?f=d&hl=de&saddr=" & von & _
          "&daddr=" & nach & "&output=html"
 
        ' Warten, bis Seite geladen
        Do: Loop Until .Busy = False
        Do: Loop Until .Busy = False
        While IEApp.Busy: Wend
 
        ' IE-Dokument
        Set IEDocument = .Document
    End With
 
 
    ' Warten...
    Do
        DoEvents
    Loop Until IEDocument.readyState <> 4
    DoEvents
    Dim Start As Integer
    Dim GoogleText As String
 
    DoEvents
    GoogleText = IEDocument.Body.innerText
    Start = InStr(GoogleText, "Vorgeschlagene Routen")
    DoEvents
    Debug.Print "start="; Start
    Entfernung = Mid$(GoogleText, Start + 24, 40)
    If Start = 0 Then
        Entfernung = "Fehler: Route konnte nicht berechnet werden."
    End If
    '
    Entfernung = Replace(Entfernung, ",", ".")
    If theMap <> "Google" Then IEApp.Quit
 
    ' Objekte zerstören
    Set IEDocument = Nothing
    Set IEApp = Nothing
 
    ' Rückgabewert (KM-Entfernung)
    getDistance = Entfernung
End Function


Beitrag wurde zuletzt am 02.10.10 um 11:49:37 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 1916: Online-Entfernungsermittlung zwischen zwei Orten8.261gunthard30.12.08 12:25
Re: Online-Entfernungsermittlung zwischen zwei Orten4.963gunthard31.12.08 00:44
Re: Online-Entfernungsermittlung zwischen zwei Orten5.006dh04.01.09 11:07
Re: Online-Entfernungsermittlung zwischen zwei Orten4.886gunthard12.01.09 13:34
Re: Online-Entfernungsermittlung zwischen zwei Orten4.862gunthard12.01.09 11:52
Re: Online-Entfernungsermittlung zwischen zwei Orten4.493binwo24.09.10 18:21
Re: Online-Entfernungsermittlung zwischen zwei Orten4.602thuring25.09.10 09:47
Re: Online-Entfernungsermittlung zwischen zwei Orten4.598binwo29.09.10 21:03
Re: Online-Entfernungsermittlung zwischen zwei Orten4.493binwo29.09.10 21:05
Re: Online-Entfernungsermittlung zwischen zwei Orten4.340thuring29.09.10 22:13
Re: Online-Entfernungsermittlung zwischen zwei Orten4.385binwo30.09.10 10:59
Re: Online-Entfernungsermittlung zwischen zwei Orten4.355thuring30.09.10 22:15
Re: Online-Entfernungsermittlung zwischen zwei Orten4.680binwo01.10.10 15:16
Re: Online-Entfernungsermittlung zwischen zwei Orten4.555gunthard01.10.10 21:02
Re: Online-Entfernungsermittlung zwischen zwei Orten4.652gunthard02.10.10 11:18
Re: Online-Entfernungsermittlung zwischen zwei Orten4.456gunthard02.10.10 16:18
Re: Online-Entfernungsermittlung zwischen zwei Orten4.354thuring02.10.10 16:52
Re: Online-Entfernungsermittlung zwischen zwei Orten4.706gunthard04.10.10 09:17
Re: Online-Entfernungsermittlung zwischen zwei Orten3.841Hug Me11.05.15 16:05
Re: Online-Entfernungsermittlung zwischen zwei Orten3.707Hug Me11.05.15 23:25
Re: Online-Entfernungsermittlung zwischen zwei Orten3.874gunthard11.05.15 23:46
Re: Online-Entfernungsermittlung zwischen zwei Orten3.743gunthard11.05.15 23:48
Re: Online-Entfernungsermittlung zwischen zwei Orten3.623Hug Me12.05.15 00:35
Re: Online-Entfernungsermittlung zwischen zwei Orten3.659Hug Me12.05.15 01:27
Re: Online-Entfernungsermittlung zwischen zwei Orten3.795gunthard12.05.15 10:32
Re: Online-Entfernungsermittlung zwischen zwei Orten4.610gunthard16.08.15 19:11

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel