Gecko-1 (G-e-c-k-o-s) schrieb:Bei mir kann er immer die db GCgermany nicht finden. Egal wo ich sie hin kopiere.![]()
nimm einfach ein garmin-poi-macro (-> .csv) und ändere im macro alles was csv heißt in asc um. hihi. das löppt.Windi schrieb:Kann man GSAK bzw. GPSBabel auch ein anderes Ausgabeformat beibringen?
@hhl:HHL schrieb:nimm einfach ein garmin-poi-macro (-> .csv) und ändere im macro alles was csv heißt in asc um. hihi.Windi schrieb:Kann man GSAK bzw. GPSBabel auch ein anderes Ausgabeformat beibringen?
das sollte eigentlich funktionieren.Banana Joe schrieb:…
oder kann ich gleich die aktuellen csv-dateien von Patrick Roeder für den garmin poi-loader umbenennen?
' Datei öffnen
DateiName = Workbooks(Basisname).Sheets(BasisBlatt).Cells(10, 1).Formula & "Archived.txt"
DateiNummer = FreeFile
Open DateiName For Input As DateiNummer
Do While Not EOF(DateiNummer) ' Schleife bis Dateiende.
Line Input #DateiNummer, Zeile ' Zeile in Variable einlesen.
' Caches aus der Zeile auslesen
Anfang = InStr(Zeile, "GC")
While (Anfang > 0)
Ende = InStr(Anfang, Zeile, " ")
CacheName = Mid(Zeile, Anfang, Ende - Anfang)
Set Zelle = Workbooks("GCgermany.txt").Sheets("GCgermany").Columns("J:J").Find(What:=CacheName, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
If Not (Zelle Is Nothing) Then
Workbooks("GCgermany.txt").Sheets("GCgermany").Cells(Zelle.Row, 1).EntireRow.Delete
End If
Zeile = Mid(Zeile, Ende)
Anfang = InStr(Zeile, "GC")
Wend
Loop
Close DateiNummer
CacheName = Mid(Zeile, Anfang, Ende - Anfang)