12.11.2013 Aufrufe

Projektbericht - Geologische Bundesanstalt

Projektbericht - Geologische Bundesanstalt

Projektbericht - Geologische Bundesanstalt

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

Ü-LG-32-33/2011<br />

Source Code des VBA Scripts zur Erstellung der Google Earth Datei<br />

„GEMAS_Fotos.kml“ (Variante „Placemark“):<br />

Private Sub KML_Generator()<br />

Dim recs As DAO.Recordset<br />

Set recs = CurrentDb.OpenRecordset("SELECT * FROM Koordinaten")<br />

recs.MoveLast<br />

If recs.EOF Then<br />

MsgBox "Keine Datensätze ausgewählt!"<br />

Exit Sub<br />

End If<br />

Reset<br />

Open ReturnDataPath() & "\GEMAS_Fotos.kml" For Output As 1<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "GEMAS-Fotos"<br />

Print #1, "1"<br />

Print #1, ""<br />

Print #1, " 13.5"<br />

Print #1, " 47.5"<br />

Print #1, " 5620000"<br />

Print #1, ""<br />

recs.MoveFirst<br />

zaehler = 1<br />

Do While Not recs.EOF<br />

te = recs!Dateiname<br />

loderp = Left(Right(te, 5), 1)<br />

test1 = loderp Like "*L*"<br />

If test1 Then<br />

typ = " - landscape"<br />

If IsNull(recs!Dateiname) Then GoTo 999<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "3.0"<br />

Print #1, "" & recs!Pfad & recs!Dateiname & ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "00ffffff"<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "normal"<br />

Print #1, "#Foto" & zaehler & "L_normal"<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "highlight"<br />

Print #1, "#Foto" & zaehler & "L_highlight"<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "10.0"<br />

Print #1, "" & recs!Pfad & recs!Dateiname & ""<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, "00ffffff"<br />

Print #1, ""<br />

Print #1, ""<br />

Print #1, " " & Left(recs!Dateiname, Len(recs!Dateiname) - 5) & typ & ""<br />

Print #1, " 1"<br />

Print #1, " #Foto" & zaehler & "L"<br />

Print #1, " "<br />

Print #1, " " & Replace(recs!Länge_WGS84, ",", ".") & "," &<br />

Replace(recs!Breite_WGS84, ",", ".") & ",100"<br />

Print #1, " "<br />

- 141 -

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!