Geografische Koordinaten zu Dezimalkoordinaten

Hallo,

hat/kennt vielleicht jemand einen VBS-Skript-Schnipsel, der Geografische Koordinaten (die FF aus den Exif-Daten ausliest) in Dezimalkoordinaten (wie Google Maps sie erwartet) umrechnet?
Im Forum hab ich nur was in JS gefunden, komme damit aber nicht klar.

AW: Geografische Koordinaten zu Dezimalkoordinaten

...VBS leider nicht, aber schau doch mal in das anhängende Skript. Da müßte doch was zu machen sein...

AW: Geografische Koordinaten zu Dezimalkoordinaten

Eben leider nicht so wirklich. Da hatte ich schon reingeschaut, aber ich tu mich mit JS ziemlich schwer. Trotzdem Danke.

AW: Geografische Koordinaten zu Dezimalkoordinaten

...ich auch, und mit VBS noch schwerer, deshalb muß da wohl doch einer der VB-Skripter herhalten und das übersetzen.

AW: Geografische Koordinaten zu Dezimalkoordinaten

Hallo Andreas (praetor)

Was hälst Du hiervon:


'********************************************
'* grad2decimal wandelt ° ' " in dezimal
'********************************************
function grad2decimal(byRef p_Str)

dim l_Richtung
dim l_Pos
dim l_Wert

if p_Str<>"" then
p_Str=replace(p_Str,".",",",1)
l_Richtung=left(p_Str,1)
p_Str=ltrim(right(p_Str,len(p_Str)-1))
l_Pos=instr(p_Str,"°")
l_Wert=1.0*(left(p_Str,l_Pos-1))
p_Str=ltrim(right(p_Str,len(p_Str)-l_Pos))
l_Pos=instr(p_Str,"'")
l_Wert=l_Wert + (left(p_Str,l_Pos-1))/60
p_Str=ltrim(right(p_Str,len(p_Str)-l_Pos))
l_Pos=instr(p_Str,"""")
l_Wert=l_Wert + (left(p_Str,l_Pos-1))/3600
grad2decimal=l_Richtung & replace(FormatNumber(l_Wert,6),",",".",1)
else
grad2decimal=""
end if

end function


Der Rückgabewert der Funktion ist ein String, der den Dezimalwert des übergebenen Winkel-Stirng in ° ' " kiefert.

Gruß
Heinrich

AW: Geografische Koordinaten zu Dezimalkoordinaten

Hallo Heinrich,
eine ganze Menge! Das funktioniert großartig. Danke!

Die Funktion macht z.B. aus
dies
Google Maps erwartet eigentlich den reinen Zahlenwert ohne dem vorangestellten Buchstaben für die Himmelsrichtung (also 50.283242). Bis jetzt scheint es aber so, dass die Werte trotzdem angenommen werden.
Ob die Funktion auch für die Südhalbkugel funktioniert, will ich noch testen.

AW: Geografische Koordinaten zu Dezimalkoordinaten

Ein Ahnungsloser fragt: Wie wende ich das an?

AW: Geografische Koordinaten zu Dezimalkoordinaten

Etwas Geduld bitte, ich pussle grad an einem Skript. ;D

AW: Geografische Koordinaten zu Dezimalkoordinaten

Hallo Heinrich,

ich hab es noch etwas eingedampft. Vielleicht kann es einer noch kompakter ...

function grd2dec(arg)
b=replace(trim(mid(arg,2)),".",","):b=replace(b,"°"," "):b=replace(b,"'"," "):b=replace(b,""""," "):arr=split(replace(b," "," ")," ")
grd2dec=left(trim(arg),1)&" "&arr(0)+(arr(1)/60+arr(2)/3600)
end function

Sowohl diese Kurzfassung als auch Deine Version sind rudimentär und funktionieren nur bei korrektem Funktionsargument.
Ohne eingebaute Eingangsprüfung sind beide Versionen nicht einsetzbar (nur mal so für Praetor)!

PS: 'BYREF' ist Default bei vbs-Funktionsparams.
PPS: Schon Fortschritte beim Sudoku-Generator?

AW: Geografische Koordinaten zu Dezimalkoordinaten

Hallo Jochen,
Super!
Aber wofür das makierte "replace"

Insofern geht es also noch etwas kürzer:

function grd2dec(arg)
b=replace(trim(mid(arg,2)),".",","):b=replace(b,"°"," "):b=replace(b,"'"," "):b=replace(b,""""," "):arr=split(b," ")
grd2dec=left(trim(arg),1)&" "&arr(0)+(arr(1)/60+arr(2)/3600)
end function

Vorschlag um das Ganze (zwar immer noch ohne komplette Vorprüfung) etwas sicherer zu machen, wäre das Eliminieren von Spaces im Argument, die sonst Runtime-Fehler produzieren:

"function grd2dec(arg)
b=replace(arg," ",""):replace(mid(b,2),".",","):b=replace(b,"°"," "):b=replace(b,"'"," "):b=replace(b,""""," "):arr=split(b," ")
grd2dec=left(trim(arg),1)&" "&arr(0)+(arr(1)/60+arr(2)/3600)
end function"

Ich weiß; ich gebe es für mich einfach nur der Vollständigkeit halber im Quelltext (wie auch z.B. call beim Aufruf jedweder "Sub"-Routine) mit an.

Nein: habe ich zunächst ein wenig zugunsten des AlbumMakers zurückgestellt.

Gruß
Heinrich

AW: Geografische Koordinaten zu Dezimalkoordinaten

... b=replace(trim(mid(arg,2)),".",","):b=replace(b,"°"," "):b=replace(b,"'"," "):b=replace(b,""""," "):arr=split(replace(b,"UU","U")," ") ...

Die Forumssoftware unterschlägt doppelte Blanks. Habe Blanks durch "U" ersetzt. Bei den ersten Replaces entstehen doppelte Blanks, beim Split dann Leerfelder im Array. Vorsichtsmaßnahme, habe ich nicht getestet.
Es ist aber so, dass der letzte Replace zwar alle doppelten Blanks auf einmal entfernt, dreifache aber schon nicht mehr, weshalb die Aktion zwar gut gemeint ist, aber ungenügend. Man kommt nicht darum herum, als erstes das Eingangsargument zu prüfen und auf Norm zu trimmen. Gründlich durchgeführt, verdoppelt oder verdreifacht das den Code. Die Blanks gleich rauszuhauen ist eine gute Idee, aber es bleiben noch ungültige Zeichen, Zeichenreihenfolge, numerische Dimensionnen usw.

AW: Geografische Koordinaten zu Dezimalkoordinaten

Höchst interessant, zu was für Diskussionen das hier führt. Da deutet sich ja fast eine neue Wettbewerbsdisziplin an.

Ziemlich tückisch, wie ich finde. Ich hatte die Funktion von Heinrich 2x mit demselben Ausgangsparameter aufgerufen und recht lange gebraucht, bis ich dahinter kam, warum der zweite Aufruf nur Müll erbrachte.

AW: Geografische Koordinaten zu Dezimalkoordinaten

Hallo Heinrich & Jochen,

bei Nutzung der Umrechungsfunktion (ich hab die aus #5 verwendet) sind unerwartete Probleme aufgetreten.
Lässt sich die Funktion so umstricken, dass keine Buchstaben für die Himmelsrichtung enthalten sind?
Ich könnte die Buchstaben natürlich leicht abschnibbeln, bin mir aber nicht im Klaren, ob die Funktion dann noch für alle Hemisphären funktioniert.

AW: Geografische Koordinaten zu Dezimalkoordinaten

Nord ist alles oberhalb, Süd unterhalb des Äquators. Ost ist "Rechts" vom Greenwicher Nullmeridian, West = "Links" davon.
Ersetze alle "S","s" durch "-"(Minus), Alle "W","w", ebenfalls durch "-". "N","n","E","e","O","o" ersatzlos entfernen. Dann frisst Google die Koordinaten. Alle anderen Programme sollten auch damit umgehen können.
Frohe Weihnachten.

AW: Geografische Koordinaten zu Dezimalkoordinaten

Hallo Jochen,

Ich habe deine Vorschläge in #9, #11 und #14 gelesen, aber nicht ganz zusammen verstanden.
Ein vollständiges Beispiel einschlieslich Aufruf wäre schön.

Grüsse,

AW: Geografische Koordinaten zu Dezimalkoordinaten

Danke Jochen, funktioniert 1a. Hatte Deinen Antwort zunächst glatt übersehen.