Projektbericht - Geologische Bundesanstalt
Projektbericht - Geologische Bundesanstalt
Projektbericht - Geologische Bundesanstalt
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 -