OSM Polygon Filter File (.poly) Konvertierung in gpx - Hilfe gesucht

Falls du GlobalMapper besitzt, kann man mit GlobalMapper -script (.gms) das automatisieren. GM kann polyfile als Klartextfile einlesen und als gpx exportieren. Es ist definitiv kein Klacks, aber machbar.Habe es nur mit 1 File getestet.

Moin Uwe,

auf der ersten von dir verlinkten Seite gibt es ein Perl-Script zum direkten Umwandeln von poly-Dateien u.a. in GPX-Dateien:

svn-archive/applications/utils/osm-extract/polygons/polyconvert.pl at main · openstreetmap/svn-archive

Archived git conversion of svn.openstreetmap.org. Contribute to openstreetmap/svn-archive development by creating an account on GitHub.

github.com

Vielleicht kommst du damit weiter.

Zitat von hedgehog

(es liegt nicht an meiner Perl Installation):

der Output gelang mir nur auf dem Bildschirm und nicht in eine Datei ([polyconvert.pl].

Kann man die Ausgabe nicht umleiten???

Zitat von GuSy

Kann man die Ausgabe nicht umleiten???

Würde mich auch interessieren (ganz allgemein). Einfache Dinge/Umleitungen, wie in DOS (Nutzung von "mode", ">", oder die "vertical pipe" | als Umleitungszeichen), gibt es ja nun nicht mehr .

Uli

Zitat von Uli G.

Einfache Dinge/Umleitungen, wie in DOS (Nutzung von "mode", ">", oder die "vertical pipe" | als Umleitungszeichen), gibt es ja nun nicht mehr .

Warum sollte das nicht mehr gehen?

Skripte kann man m.E. auch einfach in einer Shell

- bash et al. unter Linux

- cmd oder PowerShell unter Windows

laufen lassen.

Dann stehen einem alle diese Optionen zur Verfügung.

Zitat von GuSy

Warum sollte das nicht mehr gehen?

Skripte kann man m.E. auch einfach in einer Shell

- bash et al. unter Linux

- cmd oder PowerShell unter Windows

laufen lassen.

Dann stehen einem alle diese Optionen zur Verfügung.

Alles anzeigen

Ich sprach von "einfach".

Wie es bei Linux aussieht, vermag ich nicht zu sagen (mit Unix Derivaten habe ich beruflich lange Zeit zu tun gehabt, aber da waren es Gerätesteuerungen und Anpassungen des Verbleibs der Messgerätedaten auf den damals noch "neuen" Harddisks, oder, noch neueren , Wechselmedien). Wer, als normaler Nutzer von Winxx, nutzt Powershell?

Uli

aber die cmd.exe ist kein Hexenwerk und auf jedem Win verfügbar.

Da bist Du dann in Deine DOS-Welt

Zitat von Uli G.

Einfache Dinge/Umleitungen, wie in DOS ... gibt es ja nun nicht mehr

Aber ich gebe Dir recht:

Wenn mann nur "Doppelklick" kann wird das schwierig mit dem Umleiten.

Wäre das nicht ein Anstoß, selbst Programmierung zu erlernen ? Ich habe mit VB 6 angefangen und das funktioniert seit XP bis W11 immer noch. Vor 1 Jahr hatte ich mir genau das Gegenteil vom dem, was Du suchst programmiert, nämlich gpx ---> poly. VB6 ist veraltet, aber leicht zu erlernen. Downloads gibt es scheinbar immer noch. https://winworldpc.com/product/microsoft-visual-bas/60. Selbst falls Du keinen Freischaltkey erwerben kannst, kann man alle Programme einfach in der VB6 IDE laufen lassen, was seinen Zweck erfüllt. Und es gibt unzählige Code -Schnipsel im Internet. Zum Lust machen hier der Code für gpx->poly :

Option Explicit
Dim vEnde
Dim vGPX
Dim vPoly
Dim nr


Private Sub CommandPolyfile_Click()
Dim fs As New FileSystemObject


CommonDialog1.DialogTitle = "GPX File auswaehlen"
CommonDialog1.Filter = ("GPX-Files|*.gpx")


CommonDialog1.ShowOpen
vGPX = CommonDialog1.FileName
Select Case fs.GetExtensionName(vGPX)
Case "GPX", "gpx", "Gpx"
Case Else
MsgBox "kein GPX-File ausgewählt"
Exit Sub
End Select
vPoly = fs.GetParentFolderName(vGPX) & "\" & fs.GetBaseName(vGPX) & ".poly"
Dim xDOC As DOMDocument60
Set xDOC = New DOMDocument60
xDOC.async = False
Dim xNode As IXMLDOMNode
If xDOC.Load(vGPX) Then
nr = FreeFile
If fs.FileExists(vPoly) Then Kill vPoly
Open (vPoly) For Output As #nr


Print #nr, fs.GetBaseName(vGPX)
Print #nr, "Region"
DisplayNode xDOC.childNodes, 0


Else
' Das Dokument konnte nicht geladen werden.
Dim strErrText As String
Dim xPE As IXMLDOMParseError
' Abrufen des ParseError-Objekts
Set xPE = xDOC.parseError
With xPE
strErrText = "Your XML Document failed to load" & _
"due to the following error." & vbCrLf & _
"Error #: " & .errorCode & ": " & xPE.reason & _
"Line #: " & .Line & vbCrLf & _
"Line Position: " & .linepos & vbCrLf & _
"Position In File: " & .filepos & vbCrLf & _
"Source Text: " & .srcText & vbCrLf & _
"Document URL: " & .url
End With
MsgBox strErrText, vbExclamation


End If
Print #nr, vEnde
Print #nr, "END"
Print #nr, "END"
Close #nr
MsgBox "Fertig. polyfile wurde gespeichert unter " & vPoly
End Sub
Function lon(xx As String)
Dim k As Integer
Dim l As Integer
Dim Vorzeichen As String
If Left(xx, 1) = "-" Then
lon = Left(xx, 9)
k = InStr(2, xx, ".") 'falsch ! k zält immer von vorn
l = Len(xx) - 1
Vorzeichen = "-"
Else 'istpositiv
lon = Left(xx, 8)
k = InStr(1, xx, ".")
l = Len(xx)
Vorzeichen = ""
End If
Select Case k
Case 2, 3 And Vorzeichen = "-" 'einstellig
lon = lon & "E+00"
Case 3                                '2 stellig
lon = Left(xx, 1) & "." & Mid(xx, 2, 1) & Mid(xx, 4, 5)
lon = lon & "E+01"


Case 4 And Vorzeichen = "-"           '2 stellig
lon = Left(xx, 2) & "." & Mid(xx, 3, 1) & Mid(xx, 5, 5) 'komma versetzen
lon = lon & "E+01"
Case 4                                           '3 stellig
lon = Left(xx, 1) & "." & Mid(xx, 2, 2) & Mid(xx, 5, 4)
lon = lon & "E+02"


Case 5 And Vorzeichen = "-" '3 stellig
lon = Left(xx, 2) & "." & Mid(xx, 3, 2) & Mid(xx, 6, 4) '3 stellig und komma versetzen
lon = lon & "E+02"
End Select
'lon = Vorzeichen & lon


End Function
Public Sub DisplayNode(ByRef Nodes As IXMLDOMNodeList, _
ByVal indent As Integer)
Dim xNode As IXMLDOMNode
Dim vlon As String
Dim vlat As String
Dim Bo As Boolean
Bo = False
indent = indent + 1
For Each xNode In Nodes
DoEvents
If xNode.nodeType = 1 Then
If xNode.nodeName = "trkpt" Then
vlat = xNode.Attributes(0).nodeValue   'istlänge,noch auf 6 Nachkommastellen kürzen
vlon = xNode.Attributes(1).nodeValue
vlat = lon(vlat)
vlon = lon(vlon)
Print #nr, " "; vlon & "   " & vlat
If Bo = False Then
vEnde = vlon & "   " & vlat
Bo = True
End If
End If

DoEvents
End If

If xNode.hasChildNodes Then
DisplayNode xNode.childNodes, indent
End If
Next xNode


End Sub

Zitat von hedgehog

2) Die ">" Umleitung habe ich natürlich probiert, geht nicht. Bei anderen Commandline Befehlen funktioniert es aber mit Perl konnte ich es nicht aktivieren.

Versuch es Mal mit

Script 1> ausgabe.txt (explizit stdout angeben)

Oder

Script 2> ausgabe.txt (stderr, Fehler Ausgabe)

er will batch verarbeitung. Ein cgi script wird üblicherweise auf websites eingesetzt....

Ohne Programmierkenntnisse wir das sehr schwer...

Ich dachte, es geht um ein Perl Script.

Das sollte doch auch auf der Konsole laufen.

Schon möglich, falls man es anpasst. ich sehe in dem script aber keine Schleifen für batch..

Übrigens nebenbei : perl ist leistungsfähig, aber nicht intuitiv: Es gab mal einen "Camel" -Wettbewerb, wer das undurchsichtigste Perl script entwirft. Das sagt doch indirekt alles. Wem VB6 noch zu komplex ist, sollte Phyton probieren. Das ist intuitiver. Ich fürchte, das gesuchte Programm gibt es nirgends auf der Welt. Es selbst zu schreiben aber ein Klacks. Zeile für Zeile einlesen, Koordinaten extrahieren und als neue Zeile mit den typischen gpx-tags schreiben. Das ganze in 1 Schleife über alle Dateien eines Ordners packen ...

Vermutlich weniger als 50 Zeilen Code in VB6...

Zitat von morgen1

Schon möglich, falls man es anpasst. ich sehe in dem script aber keine Schleifen für batch..

Ich hab mir die Scripts nicht angesehen...

Habe nur ein Hint geben an den TO geben wollen.

Zitat von morgen1

Übrigens nebenbei : perl ist leistungsfähig, aber nicht intuitiv...

Wem VB6 noch zu komplex ist, sollte Phyton probieren. ...

Es selbst zu schreiben aber ein Klacks. Zeile für Zeile einlesen, Koordinaten extrahieren und als neue Zeile mit den typischen gpx-tags schreiben. Das ganze in 1 Schleife über alle Dateien eines Ordners packen ...

Vermutlich weniger als 50 Zeilen Code in VB6...

Das ist nicht ganz meine Welt.

Aber durch den Einwurf kleiner Münzen sollt sich doch jemand finden lassen!?