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 DateiNummerCacheName = Mid(Zeile, Anfang, Ende - Anfang)