====== How can I export tours from Kurviger to Sygic? ======

__**Please note, Kurviger can export routes for Sygic now. The excel list should not be required anymore.**__

I will leave excel list script below, if anyone might need to convert coordinates to Sygic from a different source.

----


----


Unfortunately the direct export of kurviger routes to Sygic does not work (yet), so I created a small [[https://groups.google.com/group/kurviger/attach/326c0fae8f0d2/Navigon_Sygic_Converter_v0_1.xlsm?part=0.1|excel-tool]].

The script in the Excel file converts the tours created by kurviger.de from the format ''Navigon Mobile Navigator URL (.txt)'' in the Sygic URL format.

In this way the tours created online can still easily be imported into Sygic.

I hope the tool works for you, otherwise you are welcome to contact me [[https://groups.google.com/d/topic/kurviger/DVFXZaoozGM/discussion|in the forum]].

===== Instructions =====

  - Create tour and export as Navigon Mobile Navigator URL (.txt)
  - Open exported file and copy content
  - Copy Copy text next to Navigon URL (to cell C5)
  - Click the ''Convert'' button
  - The Sygic URL is already in the cache
  - Send Sygic URL to mobile via e-mail (or similar)
  - Open URL on mobile, the route should be opened in Sygic

===== Download =====

The Excel file with the macro can be downloaded [[https://groups.google.com/group/kurviger/attach/326c0fae8f0d2/Navigon_Sygic_Converter_v0_1.xlsm?part=0.1|here]].

===== Excel Macro =====

If you prefer to insert the macro yourself in Excel, or if you would like to view the code before downloading, you are welcome to do so here.

<code>
Sub convert()
'
' Navigon Link kopieren und in Sygic zelle einfuegen
'

'
    Range("C5").Select
    Selection.Copy
    Range("C7").Select
    ActiveSheet.Paste
    
'
' Header austauschen
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="navigon://route/?target=coordinate//", Replacement:= _
        "com.sygic.aura://coordinate|", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'
' Einleitung neuer Koordinate austauschen
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="&target=coordinate//", Replacement:="|", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

'
' Trennung Laengen- und Breitengrad austauschen
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="/", Replacement:="|", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'
' Header korrigieren
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="||", Replacement:="//", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'
' Footer in Navigon Link einfuegen
'

'
    Range("C7").Select
    ActiveCell.Value = ActiveCell.Value & "|drive"
    Selection.Copy
End Sub
</code>