gpx Datei aus Stadtradeln App

[wilfriedh]

Es geht noch einfacher und genauer, siehe Code unten.
Ach ja, den Code in eine Textdatei kopieren mit der Erweiterung .rex (z.B. konv.rex),
dann in der Eingabeaufforderung aufrufen mit "konv.rex Dateiname_aus_Stadtradeln.gpx korrigierte_Datei.gpx"
Voraussetzung: Installierter REXX Interpreter (z.B. Regina)

Code:

/* Stadtradeln gpx file (Unix Zeitstempel) in Standard gpx konvertieren */ NUMERIC DIGITS 14 /* Erhöht den Genauigkeitsbereich von Integerzahlen von 9 auf 14 Stellen */ /* die eingelesenen Werte haben bereits 13 signifikante Stellen */ /* ohne diese Erhöhung der Genauigkeit werden die Sekunden-Werte auf 10-Sekunden-Schritte gerundet */ 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 /* Startdatum der unix Zeitrechnung in der REXX Zeitrechnung */ /* REXX Zeitrechnung beginnt am 01.01.0001 */ uxstart = DATE('B','1 Jan 1970','N') /* 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 */ rxdays = uxstart + uxdays sec = TRUNC((uxtime / 1000) - (uxdays * 86400)) /* die Aneinander-Reihung von Variablen und Strings ohne trennende Leerzeichen erzeugt eine Verkettung ohne Leerzeichen: */ 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