Nog iets gevonden… 8)
Deze keer maar niet in vbscript want dan werd formatteren zo lastig:
[code]van: hoofdkantoor Telefoongids bv
naar: hoofdkantoor Gouden Gids bv
1 depart 0 0
2 S106 enterleft 49 11 Centrum
3 Cornelis Lelylaan S106 right 188 42 Centrum
4 Osdorp[S106] A10/E22 enter 357 58 Den Haag
5 De nieuwe meer A10 junction 1470 113 Utrecht
6 Amstel A2/E35 junction 7148 299 Utrecht
7 A2 A2/E35 straight 8882 356 Utrecht
8 Ouderkerk aan de Amstel[1] leave 9610 380
9 Burgemeester Stramanweg N522 left 10161 408 Amsterdam Zuidoost
10 Burgemeester Stramanweg straightimport 10544 425
11 Burgemeester Stramanweg bearright 10795 437
12 Holterbergweg S111 right 11112 453 Holendrecht
13 Holterbergweg left 11547 493
14 Hoogoorddreef uturn 12375 613
15 arrived 12467 626
1 Vertrek in noordelijke richting
2 Rijd na 50 m links de oprit van de S106 op richting Centrum
3 Ga na 140 m rechtsaf op de Cornelis Lelylaan (S106) richting Centrum
4 Rijd na 175 m de oprit van de A10 op (Osdorp[afslag S106]) richting Den Haag
5 Volg na 1.1 km op het knooppunt De nieuwe meer de A10 richting Utrecht
6 Volg na 5.7 km op het knooppunt Amstel de A2, E35 richting Utrecht
7 Ga rechtdoor de A2 (E35) op (na 1.7 km) richting Utrecht
8 Neem na 0.7 km afslag Ouderkerk aan de Amstel[afslag 1]
9 Ga na 0.6 km linksaf de Burgemeester Stramanweg (N522) op richting Amsterdam Zuidoost
10 Ga na 400 m rechtdoor de Burgemeester Stramanweg op
11 Houd na 250 m rechts aan op de Burgemeester Stramanweg
12 Ga na 300 m rechtsaf de Holterbergweg (S111) op richting Holendrecht
13 Ga na 450 m linksaf de Hoogoorddreef op
14 Keer om op de Hoogoorddreef
15 U bent gearriveerd (Hoogoorddreef amsterdam zuidoost,1102)
kilometer: 12,47
reisduur: 10:54
[/code]
[code]'referentie "TravelmanagerComponents Library " => …\system32\TravelmanagerComponents.dll
Sub Main()
With New Configuration
.DataPath = "D:\Install\program files\De Telefoongids\CD-foongids\Data\gbd"
End With
Debug.Print “van: hoofdkantoor Telefoongids bv”
Debug.Print “naar: hoofdkantoor Gouden Gids bv”
Debug.Print
'http://tools.locatienet.com
'street=delflandlaan%2015&postcode=1062EA => 5235690484077
'street=hoekenrode%201&postcode=1102BR => 5231198494943
With New Geo
s = .WGS84ToCoord(52.3569, 4.84077)
d = .WGS84ToCoord(52.31198, 4.94943)
End With
With New RoutePlanner
.StartPoint = s
.Destination = d
.PlanMode = pm_Fastest
.Plan
row = String$(2, " ")
straat = String$(28, " ")
wijk = String$(9, " ")
ga = String$(15, " ")
km = String$(7, " ")
Min = String$(5, " ")
richting = String$(21, " ")
For i = 0 To .NumRouteDescriptionLines - 1
RSet row = i + 1
LSet straat = .RouteDescriptionRow(i)(0)
LSet wijk = .RouteDescriptionRow(i)(1)
LSet ga = .RouteDescriptionRow(i)(5)
RSet km = .RouteDescriptionRow(i)(6)
RSet Min = .RouteDescriptionRow(i)(7)
LSet richting = .RouteDescriptionRow(i)(8)
Debug.Print row; " "; straat; wijk; ga; km; Min; " "; richting
Next
Debug.Print 'maar even zo anders gaan al die kolommen omlopen
For i = 0 To .NumRouteDescriptionLines - 1
RSet row = i + 1
Debug.Print row; " "; .RouteDescriptionRow(i)(9)
Next
Debug.Print
Debug.Print "kilometer: " & Round(.TravelDistance / 1000, 2)
Debug.Print "reisduur: " & .TravelTime \ 60 & ":" & .TravelTime Mod 60
End With
With New MapProvider
'.GetMap hWnd 'uitzoeken
End With
End Sub[/code]