gpx Datei aus Stadtradeln App

[wilfriedh]

...
Der Stadtradeln Support hat geantwortet, meine Mail würde an das Entwickler-Team weitergeleitet.

Für die Zwischenzeit ist hier ist das Script zum Konvertieren der Zeitstempel aus der Stadtradeln-App in das Standard GPX Format.
Zum Ausführen muss ein REXX Interpreter installiert sein, z.B. Regina Rexx.

Code:

/* Stadtradeln gpx file (Unix Zeitstempel) in Standard gpx konvertieren */

parse arg infile outfile
if outfile='' then do
   say "Es muessen 2 Dateinamen angegeben werden"
   exit 1
end

/* Kopfzeilen unveraendert ausgeben */
do i = 1 to 4
line = linein(infile)
lout = line
rc = lineout(outfile,lout)
end

/* Zeilenweise konvertieren */
do while lines(infile)>0
line = linein(infile)
if line = '</trkseg>' then leave
parse var line beginn "<time>" uxtime "</time>" schluss
uxdays = uxtime % 86400000 /* Integer Division */
uxstart = DATE('B','1 Jan 1970','N')
rxdays = uxstart + uxdays

hrs = (uxtime - (uxdays*86400000)) / 3600000
sec = TRUNC(60*60*hrs)
lout = beginn'<time>'DATE('I',rxdays,'B')'T'TIME('N',sec,'S')'Z</time>'schluss
rc = lineout(outfile,lout)
end
/* Schlusszeilen ausgeben */
lout = line
rc = lineout(outfile,lout)
do while lines(infile)>0
line = linein(infile)
lout = line
rc = lineout(outfile,lout)
end