Google Maps 2 Tomtom Itinerary

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Google Maps 2 Tomtom Itinerary

Logged in as: Guest

arrSession:exec spGetSession 2,16,52867

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Google Maps 2 Tomtom Itinerary
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Google Maps 2 Tomtom Itinerary - 10/21/2007 12:25:02 AM 1 votes

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Google Maps as you know lets you create a route on a map and then save it as driving directions.
This script will take that one step further and create a file that you can load onto your Tomtom GPS.

Create a new file on your computer called GM2ITN.HTA and paste the attached code into it.
Usage instructions are displayed in script.
Save the itinerary file it creates on your PDA here \Program Files\Navigator\itn

Enjoy.

<html>
<head>
<title>GM2ITN</title>
<HTA:APPLICATION 
    ID="GM2ITN"
    APPLICATIONNAME="GM2ITN"
    SCROLL="yes"
    SINGLEINSTANCE="yes"
    WINDOWSTATE="maximize"
>
</head>
<SCRIPT Language="VBScript">
'Script by MJP 2007
dim LON, LAT, q, m
dim NewFile 
dim ITNFile
dim ScriptPath : ScriptPath=".\"
Set fso = CreateObject("Scripting.FileSystemObject")
'-------------------------------------------------------------
Sub Window_Onload
GMHTML.Value = ""
end sub
'-----------------------------------------------------------------------
function GMURL
ITNFile="Itinerary"&timer&".itn"
GM=GMHTML.Value
on error resume next
'ist point
strLength=len(GM)
istComma=instr(GM,"saddr=")
URL=right(GM,strLength-istComma-5)
x=instr(URL,"&daddr=")
y=left(URL, x-1)
clean y
m=4
WriteITN LON, LAT, q, m
do until v="last"
w=len(URL)
CheckForSecond=instr(URL,"&daddr=")
if CheckForSecond = 0 then
URL=right(URL, w-x-3)
CheckForNext=instr(URL,"+to:")
if CheckForNext=0 then
 x=instr(URL,"&")
 y=left(URL, x-1)
 clean y
 v="last"
 m=3
else
 x=instr(URL,"+to:")
 y=left(URL, x-1)
 clean y
 m=1
end if
else
URL=right(URL, w-x-6)
x=instr(URL,"+to:")
y=left(URL, x-1)
clean y
m=1
end if
WriteITN LON, LAT, q, m
loop
NewFile.Close

numerr = Err.number
If numerr <> 0 Then
 ITNoutput.innerhtml = "<font color=red>An error occoured converting URL to ITN format, Please Check instructions above and paste URL again.</font>"
else
msg.innerhtml="Your Tomtom Itinerary file, <b>"& ITNFile &" </b>has been saved"
set oFile = fso.OpenTextFile(ITNFile,1)

Do Until oFile.AtEndOfStream
strLine = oFile.ReadLine
strfile = strfile &"<BR>"& strline
Loop
oFile.close 
ITNoutput.innerhtml = strfile
End If

on error goto 0

end function
'-------------------------------------------------------------
function WriteITN (LON, LAT, q, m)
line=LON&"|"&LAT&"|"&q&"|"&m&"|"
If fso.FileExists (ScriptPath&ITNFile) then
NewFile.WriteLine(line) 
else
Set NewFile = fso.CreateTextFile(ScriptPath&ITNFile, True)
NewFile.WriteLine(line) 
end if
end function
'-------------------------------------------------------------
function clean(y)
p=instr(y, "%40")
if p=0 then 
q=left(y, p)
else
q=left(y, p-2)
end if
q=replace(q, "+", " ")
y=replace(y, "+", "")
t=len(y)
u=instrrev(y, ",")
LON=right(y, t-u)
r=instr(LON,".")
LON=left(LON,r+5)
LON=replace(LON, ".", "")
t=len(y)
u=instrrev(y, "%40")
if u=0 then
LAT=right(y, t)
else
LAT=right(y, t-u-2)
end if
s=instr(LAT, ",")
LAT=left(LAT, s-1)
r=instr(LAT,".")
LAT=left(LAT,r+5)
LAT=replace(LAT, ".", "")
end function

'-------------------------------------------------------------
sub ResetMe
Location.Reload(True)
end sub
'-------------------------------------------------------------
sub Example1
GMHTML.Value = "http://maps.google.com.au/maps?f=d&hl=en&geocode=8063990899671877040,-26.636350,152.945930%3B16529542606177543716,-26.630230,152.956590%3B15643821582587805135,-26.630530,152.958620%3B7813043667504853275,-26.629060,152.959400&time=&date=&ttype=&saddr=-26.643805,152.946757&daddr=Glenys+St+%40-26.636350,+152.945930+to:Mill+Ln+%40-26.630230,+152.956590+to:Daniel+St+%40-26.630530,+152.958620+to:Mitchell+St+%40-26.629060,+152.959400&mra=dme&mrcr=0&mrsp=0&sz=18&sll=-26.644026,152.947052&sspn=0.003553,0.004989&ie=UTF8&ll=-26.643949,152.947052&spn=0.003553,0.004989&z=18&om=1"
end sub
'-------------------------------------------------------------
sub Example2
GMHTML.Value = "http://maps.google.com/maps?f=d&hl=en&geocode=&saddr=Attenhovendreef+%4050.913190,+4.739540&daddr=Appelweg+%4050.946010,+4.813570+to:Peerse+%4050.926460,+4.834790+to:Spicht+%4050.894770,+4.853630+to:Kolverendries+%4050.893130,+4.885390+to:Vlaaistraat+%4050.917610,+4.885930+to:Haldertstraat+%4050.942030,+4.874350+to:Sint-Annastraat+%4050.938500,+4.899850+to:Houwaartstraat+%4050.964080,+4.940150+to:Molijkestraat+%4050.989880,+4.929510+to:Herseltsebaan%2FN212+%4051.040690,+4.964020+to:Nieuwstraat+%4051.031150,+4.943910+to:Veerlestraat+%4051.029640,+4.920380+to:Oude+Mechelsebaan+%4051.011890,+4.908160+to:Testeltsesteenweg+%4050.998530,+4.878820+to:Vennestraat+%4051.006680,+4.856000+to:Betekomsesteenweg+%4051.012040,+4.788110+to:Heistraat+%4051.007520,+4.735300+to:Tuindijk+%4051.022830,+4.697790+to:Valkeniersdreef+%4050.999380,+4.654270+to:Domstraat+%4050.992990,+4.739260+to:Tremelosesteenweg+%4050.993390,+4.775190+to:Steenweg+op+Gelrode+%4050.964830,+4.736730+to:Wijngaard+%4050.947190,+4.706300+to:Erembodegemstraat+%4050.920850,+4.739380&sll=50.955832,4.818878&sspn=0.196585,0.383835&ie=UTF8&om=1&ll=50.966644,4.815788&spn=0.105729,0.22625&z=12"
end sub
'-------------------------------------------------------------
</SCRIPT>

<body>
<Center>
<table border="0">
 <tr>
   <td ><img src="http://painterinfo.com/map/images/google.jpg"></td>
   <td ><font color=RED size=5><center><b>GM2ITN</b></center></font><br>
Create an itinerary file for your Tomtom GPS Navigator from a <a href="http://maps.google.com.au/maps?f=d" target="_new">Google Maps</a> driving directions page. <BR><BR></td>
   <td ><img src="http://painterinfo.com/map/images/tomtom.jpg"></td>
 </tr>
</table>

<i>Instructions:- <br>1. Zoom in and slightly move the start and finish points in order to capture those GPS co-ordinates.<BR>
2. (IE) Right click, "Link to this page" and select copy shortcut<br>
3. Paste URL into box below and click compute.
</i></center>
<BR>
<BR>
Paste Your Google Maps Directions Page URL Here
<br>
<textarea name="GMHTML" rows="10" cols="150"></textarea>
<input id=runbutton1  class="button" type="button" value="Compute" name="run_button1"  onClick="GMURL">
<input id=runbutton2  class="button" type="button" value="ResetMe" name="run_button2"  onClick="ResetMe">
<input id=runbutton1  class="button" type="button" value="Example1" name="run_button1"  onClick="Example1">
<input id=runbutton1  class="button" type="button" value="Example2" name="run_button1"  onClick="Example2">

<br><br>
<span id=msg>File Generated</span>
<br><br>
<span id=ITNoutput><font color=c0c0c0>Contents</font></span>

</body>
</html>

Post #: 1

RE: Google Maps 2 Tomtom Itinerary - 10/22/2007 6:05:12 PM

djredmar

Posts: 55
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

wow,

Nice work! will be handy when you are a courier or somelike :)

(in reply to Meg)

Post #: 2

RE: Google Maps 2 Tomtom Itinerary - 2/26/2008 4:32:00 AM

Fame

Posts: 1
Score: 0
Joined: 2/26/2008
Status: offline

Hi Meg:

I discovered your conversion program GM2ITN.HTA and look forward to employing it to convert those Google Maps routes to my TomTom's itinerary *.itn files.

At this point I'm still trying to successfully convert... I continue to receive the "URL to ITN" error message prompting me to re-paste the URL, always with the same result.

Your abbreviated instructions ask that one slightly move the start and end points to facilitate capture of the GPS position. Are you suggesting I move the bullet point slightly, or the Start & End colored markers?

Any other tips or suggestions would be appreciated.

All The Best

Tom G, Sr.

_____________________________

"We don't charge for any of our programs or
services. Instead, we rely on your purchases and
donations. Please help us to help you. Thank you
for your continuing support."

E-Mail: webmaster@scenery.org
Web-Site: http://www.scenery.org
"The

(in reply to Meg)

Post #: 3

RE: Google Maps 2 Tomtom Itinerary - 2/26/2008 8:23:36 AM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

I have checked the script and it still works. i.e. Google have not changed their code back end.

Get your driving directions the normal way by typing the start and end address. Drag the route line to go the way that you want to go, i.e. your favourite way or via certain waypoints.

Pick up and move the little green markers A and X(for simple two stop routes only A and B) that represent the stat and finish points a tiny amount. This way, when you click on link to this page , the URL that you copy and paste into my program will have GPS coordinates (latitude and Longitude) associated with the start and finish points rather than just the plain txt address you typed in originally when you asked for driving directions.

Copy and paste my examples into a web broswer to get a reverse look at the page I coped and pasted the URL from. Notice the start and end address fields show latitude and Longitude values next to the addresses.

Hope this makes it clearer.

(in reply to Fame)

Post #: 4

RE: Google Maps 2 Tomtom Itinerary - 7/25/2008 3:19:23 AM

azmogul

Posts: 2
Score: 0
Joined: 7/25/2008
Status: offline

(in reply to Meg)

Post #: 5

RE: Google Maps 2 Tomtom Itinerary - 7/26/2008 11:31:08 PM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Thanks for the heads up azmogul. You are right, it seems address formats are different in your city. I was tossing up whether to fix this or not since now TomTom themselves have taken the idea and have embedded this feature in their TomTom Home program. But they are only supporting the newest versions of TomTom, mine does version6, Ha.

Anyway I decided to update my clean function to work with your city and credit you in the code comments, so thankyou again.

I don't seem to be able to edit my original post so for all new downloads, download this version please :)

<html>
<head>
<title>GM2ITN</title>
<HTA:APPLICATION 
    ID="GM2ITN"
    APPLICATIONNAME="GM2ITN"
    SCROLL="yes"
    SINGLEINSTANCE="yes"
    WINDOWSTATE="maximize"
    Version="1.1"
>
</head>
<SCRIPT Language="VBScript">
'Script by MJP 2007
dim LON, LAT, q, m
dim NewFile 
dim ITNFile
dim ScriptPath : ScriptPath=".\"
Set fso = CreateObject("Scripting.FileSystemObject")
'-------------------------------------------------------------
Sub Window_Onload
GMHTML.Value = ""
end sub
'-----------------------------------------------------------------------
function GMURL
ITNFile="Itinerary"&timer&".itn"
GM=GMHTML.Value

on error resume next
'ist point
strLength=len(GM)
istComma=instr(GM,"saddr=")
URL=right(GM,strLength-istComma-5)
x=instr(URL,"&daddr=")
y=left(URL, x-1)
clean y
m=4
WriteITN LON, LAT, q, m
do until v="last"
w=len(URL)
CheckForSecond=instr(URL,"&daddr=")
if CheckForSecond = 0 then
URL=right(URL, w-x-3)
CheckForNext=instr(URL,"+to:")
if CheckForNext=0 then
 x=instr(URL,"&")
 y=left(URL, x-1)
 clean y
 v="last"
 m=3
else
 x=instr(URL,"+to:")
 y=left(URL, x-1)
 clean y
 m=1
end if
else
URL=right(URL, w-x-6)
x=instr(URL,"+to:")
y=left(URL, x-1)
clean y
m=1
end if
WriteITN LON, LAT, q, m
loop
NewFile.Close

Do Until oFile.AtEndOfStream
strLine = oFile.ReadLine
strfile = strfile &"<BR>"& strline
Loop
oFile.close 
ITNoutput.innerhtml = strfile
End If

on error goto 0

' Updated this function 27 July 2008 thanks to azmogul for pointing out that routes from Chandler AZ did not convert. 
   
   if instr(y, "(") then

'Example string that this section decodes.    y="33.303321,+-111.944851+(5980+W+Commonwealth+AVE,+Chandler,+AZ)"     LAT LON Name

b=len(y)
      c=instr(y, ",+")
      d=left(y, c-1)
      dot=instr(d, ".")
      LAT=left(d,dot+5)
      LATLen=len(LAT)

for counter=LATLen-dot to 5
         if LATLen-dot=5 then exit for
         LAT=LAT&"0"
         LATLen=len(LAT)
      next

LAT=replace(LAT, ".", "")

e=len(d)+2
      y=right(y, b-e)
      f=len(y)
      g=instr(y, "+")
      h=left(y, g-1)

dot=instr(h, ".")
      LON=left(h,dot+5)
      LONLen=len(LON)

for counter=LONLen-dot to 5
         if LONLen-dot=5 then exit for
         LON=Lon&"0"
         LONLen=len(LON)
      next

LON=replace(LON, ".", "")

y=right(y, f-g) 
      q=replace(y, "+", " ")

else

'Example string that this section decodes.    y="Windsor+Rd+%40-26.632610,+152.947000"     Name LAT LON

p=instr(y, "%40")
      if p=0 then 
         q=left(y, p)
        'msgbox "q="&q
      else
         q=left(y, p-2)
        'msgbox "q="&q
      end if

q=replace(q, "+", " ")
      y=replace(y, "+", "")
      t=len(y)
      u=instrrev(y, ",")
      LON=right(y, t-u)
      r=instr(LON,".")
      LON=left(LON,r+5)
      LONLen=len(LON)

for counter=LONLen-dot to 5
         if LONLen-dot=5 then exit for
         LON=Lon&"0"
         LONLen=len(LON)
      next

LON=replace(LON, ".", "")
      t=len(y)
      u=instrrev(y, "%40")

if u=0 then
         LAT=right(y, t)
      else
         LAT=right(y, t-u-2)
      end if
   
      s=instr(LAT, ",")
      LAT=left(LAT, s-1)
      r=instr(LAT,".")
      LAT=left(LAT,r+5)
      LATLen=len(LAT)

for counter=LATLen-dot to 5
         if LATLen-dot=5 then exit for
         LAT=LAT&"0"
         LATLen=len(LAT)
      next

LAT=replace(LAT, ".", "")

end if

end function

'-------------------------------------------------------------
sub ResetMe
Location.Reload(True)
end sub
'-------------------------------------------------------------
sub Example1
GMHTML.Value = "http://maps.google.com.au/maps?f=d&hl=en&geocode=16533104264107346482,-26.646561,152.943819%3B9745253695408800206,-26.636320,152.945756%3B11440293469266444961,-26.632610,152.947000%3B2430790493295625922,-26.625113,152.948739%3B16529542606177543716,-26.630230,152.956590&saddr=-26.646155,152.948828&daddr=Glenys+St+%40-26.636320,+152.945756+to:Windsor+Rd+%40-26.632610,+152.947000+to:Blaxland+Rd+%40-26.625113,+152.948739+to:Mill+Ln+%40-26.630230,+152.956590&mra=dme&mrcr=0&mrsp=0&sz=15&doflg=ptk&sll=-26.634493,152.951102&sspn=0.02693,0.037422&ie=UTF8&z=15"
end sub
'-------------------------------------------------------------
sub Example2
GMHTML.Value = "http://maps.google.com/maps?saddr=33.303321,+-111.944851+(5980+W+Commonwealth+AVE,+Chandler,+AZ)&daddr=33.293407,+-111.923887+(4743+W+MORELOS+ST,+Chandler,+AZ)+to:33.302015,+-111.933476+(5324+W+VENUS+WAY,+Chandler,+AZ)+to:33.315096,+-111.932388+(740+N+Bradley+DR,+Chandler,+AZ)+to:33.317306,+-111.906636+(830+N+Criss+ST,+Chandler,+AZ)+to:33.317306,+-111.906636+(830+N+Criss+ST,+Chandler,+AZ)+to:33.319041,+-111.953447+(6451+W+MEGAN+CT,+Chandler,+AZ)+to:33.295506,+-111.936168+(5451+W+WHITTEN+ST,+Chandler,+AZ)+to:33.32685,+-111.914426+(4152+W+POST+RD,+Chandler,+AZ)+to:33.313426,+-111.928854+(5020+W+Laredo+ST,+Chandler,+AZ)+to:33.317208,+-111.909826+(3943+W+RENE+DR+DR,+Chandler,+AZ)+to:33.312346,+-111.93854+(5606+W+avalon+CT,+Chandler,+AZ)+to:33.303628,+-111.932085+(5224+W+MORGAN+DR,+Chandler,+AZ)+to:33.323423,+-111.945245+(5980+W+ORCHID+LN,+Chandler,+AZ)+to:33.322133,+-111.907224+(3802+W+Park+AVE,+Chandler,+AZ)+to:33.311435,+-111.92261+(4611+W+Oakland+ST,+Chandler,+AZ)+to:33.325479,+-111.910721+(1342+N+LAVEEN+DR,+Chandler,+AZ)+to:33.306412,+-111.924872+(4821+W+Toledo+ST,+Chandler,+AZ)+to:33.314361,+-111.898894+(3222+W+Monterey+ST,+Chandler,+AZ)+to:33.293349,+-111.920397+(760+S+KENNETH+PL,+Chandler,+AZ)+to:33.314144,+-111.914681+(4184+W+BART+DR,+Chandler,+AZ)+to:33.321207,+-111.909065+(3911+W+Roundabout+CIR,+Chandler,+AZ)+to:33.312625,+-111.938536+(5605+W+Monterey+ST,+Chandler,+AZ)+to:33.295136,+-111.941632+(5770+W+Geronimo+ST,+Chandler,+AZ)+to:33.325734,+-111.8981+(3220+W+SHEFFIELD+AVE,+Chandler,+AZ)&ie=UTF8&ll=33.309155,-111.897297&spn=0.101427,0.149689&z=13"
end sub
'-------------------------------------------------------------
</SCRIPT>

<body>
<Center>
<table border="0">
 <tr>
   <td ><img src="http://painterinfo.com/map/images/google.jpg"></td>
   <td ><font color=RED size=5><center><b>GM2ITN</b></center></font><br>
Create an itinerary file for your Tomtom GPS Navigator from a <a href="http://maps.google.com.au/maps?f=d" target="_new">Google Maps</a> driving directions page. <BR><BR></td>
   <td ><img src="http://painterinfo.com/map/images/tomtom.jpg"></td>
 </tr>
</table>

<i>Instructions:- <br>1. Zoom in and slightly move the start and finish points in order to capture those GPS co-ordinates.<BR>
2. Add at least one extra point in the middle of your route, you may have to press Get Directions button again to show the point on the map.<br>
3. (IE) Right click, "Link to this page" and select copy shortcut<br>
4. Paste URL into box below and click compute.
</i></center>
<BR>
<BR>
Paste Your Google Maps Directions Page URL Here
<br>
<textarea name="GMHTML" rows="10" cols="150"></textarea>
<input id=runbutton1  class="button" type="button" value="Compute" name="run_button1"  onClick="GMURL">
<input id=runbutton2  class="button" type="button" value="ResetMe" name="run_button2"  onClick="ResetMe">
<input id=runbutton1  class="button" type="button" value="Example1" name="run_button1"  onClick="Example1">
<input id=runbutton1  class="button" type="button" value="Example2" name="run_button1"  onClick="Example2">

<br><br>
<span id=msg>File Generated</span>
<br><br>
<span id=ITNoutput><font color=c0c0c0>Contents</font></span>
<br>
<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/KPOOWvP_dd8&fs=1"></param><param name="wmode" value="transparent"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/KPOOWvP_dd8&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" wmode="transparent" width="425" height="344"></embed></object>
</body>
</html>

EDIT: I added a tutorial video into the script. If anyone has problems with it delete the following lines out of the code:

<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/KPOOWvP_dd8&fs=1"></param><param name="wmode" value="transparent"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/KPOOWvP_dd8&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" wmode="transparent" width="425" height="344"></embed></object>

< Message edited by Meg -- 7/27/2008 12:17:12 AM >

(in reply to azmogul)

Revisions: 1 | Post #: 6

RE: Google Maps 2 Tomtom Itinerary - 7/27/2008 12:21:51 PM

azmogul

Posts: 2
Score: 0
Joined: 7/25/2008
Status: offline

Meg,

Thank you so much for updating the script. I am out in the car daily and this will save me a tremendous amount of time in preparing my day.

AZMOGUL

(in reply to Meg)

Post #: 7

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Google Maps 2 Tomtom Itinerary

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts