DL3BZZ schrieb:
#*******************************************
# MacVersion = 1.0
# MacDescription = MY_CACHE_LOGS
# MacAuthor = TIMIA
# MacFileName = MY_CACHE_LOGS.gsk
# **************************************
# Export My Cache LOGS in CSV Format for Excel
#****************************************
$Folder="D:\GEOCACHING\gsak\GPS_DATEN\CACHES\MY_CACHES" # hier den Wunschfolder eintragen
$FileName = "\MY_CACHE_LOGS.csv" # hier den Wunschnamen der CSV Datei eintragen
$EraseFiles = $folder + $FileName
FileErase File=$EraseFiles
# Tabellenspalten Überschrift
$out = addstr(1,"clear")
$out = addstr(1,"add","My Cache;LogType;FoundBy;Datefound;Log_TEXT"+ $_NewLine)
$out = addstr(1,"get")
$error = AppendFile($Folder + $FileName, $out)
$Ftype = 1
$ThisRecord = 0
Goto Position=Top
Table active=logs Scope=All
While .not. $_eol
$ThisRecord = $ThisRecord + 1
$message = "MY_CACHE_LOGS is running: " + "$ThisRecord" + " of " + "$_Count"
ShowStatus msg="$message"
$d_lText = Replace(chr(34),"",$d_lText,true)
$d_lText = Replace(";","",$d_lText,true)
$out = addstr(1,"clear")
$out = addstr(1,"add",$d_lParent+";"+$d_lType+";"+quote($d_lBy)+";"+DateFormat($d_lDate) +";"+quote($d_lText)+ $_NewLine)
$out = addstr(1,"get")
$error = AppendFile($Folder + $FileName, $out)
Goto Position=Next
EndWhile
Goto Position=Top
#*******************************************
# MacVersion = 1.1
# MacDescription = MY_CACHE_LOGS
# MacAuthor = Schnueffler
# MacFileName = MY_CACHE_LOGS.gsk
# **************************************
# Export My Cache LOGS in CSV Format for Excel
#****************************************
$Folder="D:\garmin" # hier den Wunschfolder eintragen
$FileName = "\MY_CACHE_LOGS.csv" # hier den Wunschnamen der CSV Datei eintragen
$EraseFiles = $folder + $FileName
If FileExists($EraseFiles)
FileErase File=$EraseFiles
endif
# Tabellenspalten Überschrift
$out = addstr(1,"clear")
$out = addstr(1,"add","My Cache;LogType;FoundBy;Datefound;Log_TEXT"+ $_NewLine)
$out = addstr(1,"get")
$error = AppendFile($Folder + $FileName, $out)
$Ftype = 1
$ThisRecord = 0
Goto Position=Top
While .not. $_eol
debug status=on
Table active=Caches
$ThisRecord = $ThisRecord + 1
$message = "MY_CACHE_LOGS is running: " + "$ThisRecord" + " of " + "$_Count"
ShowStatus msg="$message"
Table active=logs Scope=Parent
$d_lText = Replace(chr(34),"",$d_lText,true)
$d_lText = Replace(";","",$d_lText,true)
$out = addstr(1,"clear")
$out = addstr(1,"add",$d_Name+";"+$d_lType+";"+quote($d_lBy)+";"+DateFormat($d_lDate) +";"+quote($d_lText)+ $_NewLine)
$out = addstr(1,"get")
$error = AppendFile($Folder + $FileName, $out)
Table active=Caches
Goto Position=Next
EndWhile
Goto Position=Top
aufWolke7 schrieb:Echt super klasse.
Das hilft mir ungemein weiter.
Wäre es unverschämt zu fragen, was ich ändern muss um nicht den GC Code sondern den Namen des Caches zu sehen ?
Gibt es irgendwo eine Anleitung wie man solche Macros selber schreiben kann?
LG
Ute
Schnueffler schrieb:Ich werde mir das Makro heute nachmittag/abend nochmal zu Hause anschauen, da ich aktuell kein GSAK zur Hand habe. Vielleicht ist aber bis dahin auch schon jemand schneller und hat es korrigiert.
#*******************************************
# MacVersion = 1.3
# MacDescription = MY_CACHE_LOGS
# MacAuthor = TIMIA + Schnueffler
# MacFileName = MY_CACHE_LOGS.gsk
# **************************************
# Export My Cache LOGS in CSV Format for Excel
#****************************************
$Folder="D:\GEOCACHING\gsak\GPS_DATEN\CACHES\MY_CACHES" # hier den Wunschfolder eintragen
$FileName = "\MY_CACHE_LOGS.csv" # hier den Wunschnamen der CSV Datei eintragen
$EraseFiles = $folder + $FileName
FileErase File=$EraseFiles
# Tabellenspalten Überschrift
$out = addstr(1,"clear")
$out = addstr(1,"add","My Cache;Name;LogType;FoundBy;Datefound;Log_TEXT"+ $_NewLine)
$out = addstr(1,"get")
$error = AppendFile($Folder + $FileName, $out)
$ThisRecord = 0
Table active=Caches
Goto Position=Top
While .not. $_eol
Table active=logs Scope=parent
While .not. $_eol
$ThisRecord = $ThisRecord + 1
$message = "MY_CACHE_LOGS is running: " + "$ThisRecord" + " of " + "$_Count"
ShowStatus msg="$message"
$d_lText = Replace(chr(34),"",$d_lText,true)
$d_lText = Replace(";","",$d_lText,true)
$out = addstr(1,"clear")
$out = addstr(1,"add",$d_lParent+";"+$d_name+";"+$d_lType+";"+quote($d_lBy)+";"+DateFormat($d_lDate) +";"+quote($d_lText)+ $_NewLine)
$out = addstr(1,"get")
$error = AppendFile($Folder + $FileName, $out)
Goto Position=Next
EndWhile
Table active=Caches
Goto Position=Next
EndWhile
Goto Position=Top