• Willkommen im Geoclub - dem größten deutschsprachigen Geocaching-Forum. Registriere dich kostenlos, um alle Inhalte zu sehen und neue Beiträge zu erstellen.

GSAK-Macros veröffentlichen

Status
Für weitere Antworten geschlossen.
A

Anonymous

Guest
Hi,

gibt es eigentlich eine Stelle an der Macros veröffentlicht werden. Bisher kenne ich nur die Seite bei gc.com, die Seite gefällt mir aber eher nicht.

Zum Einen schaue ich gern mal was es so gibt, zum Anderen hab ich hier noch ein Macro für mich selber das etliche Auswertungen macht und das vielleicht auch für andere interessant ist. Z.B. Aufteilung der Founds nach Typ pro Monat u.ä.

MfG Jörg
 
OP
A

Anonymous

Guest
Vater und Sohn schrieb:
Lass doch mal sehen das Makro. Kannste auch ruhig hier einstellen
Zum Vergrößern anklicken....

Bitte bedenken, ich will keine Top-Fertigen Macros für andere machen, aber mit diesen Macros kann man sich sicherlich schnell selbst anpassen was man selber benötigt. Monat-Typ ist hier mal als Beispiel drin, die anderen aufgerufenen Macros sind entsprechend für Behältnis, Entfernung, Richtung, Difficulty und Terrain.

Aufruf-Macro:

$startmonth = "200412"
Input Msg="Ab-Monat im YYYYMM Format." Default=$startmonth VarName=$startmonth
$datafile=$_Install + "\Macros\Monat_Statistik.dat"
IF (FileExists($datafile))
FILEERASE File=$_Install"\Macros\Monat_Statistik.dat"
ENDIF

Set $error = PutFile($_Install + "\Macros\Monat_Statistik.dat",$startmonth)

MACRO File=$_Install"\Macros\Monat_Typ.txt"
MACRO File=$_Install"\Macros\Monat_Behaelter.txt"
MACRO File=$_Install"\Macros\Monat_Entfernung.txt"
MACRO File=$_Install"\Macros\Monat_Richtung.txt"
MACRO File=$_Install"\Macros\Monat_Difficulty.txt"
MACRO File=$_Install"\Macros\Monat_Terrain.txt"

FILEERASE File=$_Install"\Macros\Monat_Statistik.dat"

#############################

Monat_Typ.txt

Set $startmonth = GetFile($_Install + "\Macros\Monat_Statistik.dat")
$temp = $_Install + "\temp"
$endmonth = SubStr(DateToString($_Today), 1, 6)
$currmonth = $startmonth

$out = "<html>" + $_NewLine
$out = $out + "<style type='text/css'>" + $_NewLine
$out = $out + "" + $_NewLine
$out = $out + "</style>" + $_NewLine
$out = $out + "<body class=body>" + $_NewLine

While Val($currmonth) <= Val($endmonth)
mfilter if=$d_found and SubStr(DateToString($d_FoundByMeDate),1,6) =$currmonth
$Total=$_FilterCount

mfilter if=$d_CacheType="B".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$LetterboxCount = $_FilterCount
$LetterboxPercent = 0
if $Total > 0
$LetterboxPercent = ($_FilterCount/$Total) * 100
endif
$LetterboxPercentString = left("$LetterboxPercent",4)

mfilter if=$d_CacheType="E".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$EventCount = $_FilterCount
$EventPercent = 0
if $Total > 0
$EventPercent = ($_FilterCount/$Total) * 100
endif
$EventPercentString = left("$EventPercent",4)

mfilter if=$d_CacheType="L".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$LocationlessCount = $_FilterCount
$LocationlessPercent = 0
if $Total > 0
$LocationlessPercent = ($_FilterCount/$Total) * 100
endif
$LocationLessPercentString = left("$LocationlessPercent",4)

mfilter if=$d_CacheType="M".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$MultiCount = $_FilterCount
$MultiPercent = 0
if $Total > 0
$MultiPercent = ($_FilterCount/$Total) * 100
endif
$MultiPercentString = left("$MultiPercent",4)

mfilter if=$d_CacheType="O".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$OtherCount = $_FilterCount
$OtherPercent = 0
if $Total > 0
$OtherPercent = ($_FilterCount/$Total) * 100
endif
$OtherPercentString = left("$OtherPercent",4)

mfilter if=$d_CacheType="R".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$EarthCount = $_FilterCount
$EarthPercent = 0
if $Total > 0
$EarthPercent = ($_FilterCount/$Total) * 100
endif
$EarthPercentString = left("$EarthPercent",4)

mfilter if=$d_CacheType="T".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$TradCount = $_FilterCount
$TradPercent = 0
if $Total > 0
$TradPercent = ($_FilterCount/$Total) * 100
endif
$TradPercentString = left("$TradPercent",4)

mfilter if=$d_CacheType="U".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$UnknownCount = $_FilterCount
$UnknownPercent = 0
if $Total > 0
$UnknownPercent = ($_FilterCount/$Total) * 100
endif
$UnknownPercentString = left("$UnknownPercent",4)

mfilter if=$d_CacheType="V".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$VirtCount = $_FilterCount
$VirtPercent = 0
if $Total > 0
$VirtPercent = ($_FilterCount/$Total) * 100
endif
$VirtPercentString = left("$VirtPercent",4)

mfilter if=$d_CacheType="W".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$WebcamCount = $_FilterCount
$WebCamPercent = 0
if $Total > 0
$WebcamPercent = ($_FilterCount/$Total) * 100
endif
$WebCamPercentString = left("$WebCamPercent",4)

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Typ</b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><b> </b></td><td><b> " + $currmonth + "</b></td><td><b> </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><b>Typ</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Traditional:</td><td>" + "$TradCount</td>" + "<td>$TradPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Multi:</td><td>" + "$Multicount</td>" + "<td>$MultiPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Rätsel:</td><td>" + "$UnknownCount</td>" + "<td>$UnknownPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Virtual:</td><td>" + "$VirtCount</td>" + "<td>$VirtPercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Webcam:</td><td>" + "$WebcamCount</td>" + "<td>$WebcamPercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Letterbox:</td><td>" + "$LetterboxCount</td>" + "<td>$LetterboxPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Locationless:</td><td> " + "$LocationlessCount</td>" + "<td>$LocationlessPercentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Other:</td><td>" + "$OtherCount</td>" + "<td>$OtherPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Event:</td><td>" + "$EventCount</td>" + "<td>$EventPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Earth:</td><td>" + "$EarthCount</td>" + "<td>$EarthPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><b>Gesamt:</b></td><td>" + "<b>$Total</b></td>" + "<td><b>100 %</b></td></tr>" + $_NewLine
$out = $out + "</table>" + $_NewLine

$currmonth = Str(Val($currmonth) + 1, 6, 0)
If SubStr($currmonth, 5, 2) = "13"
$currmonth = Str(Val(SubStr($currmonth, 1, 4)) + 1, 4, 0) + "01"
EndIf

EndWhile

mfilter if=$d_found
$Total=$_FilterCount
$temp = $_Install + "\temp"
Set $date = DateFormat($_Today)

mfilter if=$d_CacheType="B".and.$d_found
$LetterboxCount = $_FilterCount
$LetterboxPercent = ($_FilterCount/$Total) * 100
$LetterboxPercentString = left("$LetterboxPercent",4)

mfilter if=$d_CacheType="E".and.$d_found
$EventCount = $_FilterCount
$EventPercent = ($_FilterCount/$Total) * 100
$EventPercentString = left("$EventPercent",4)

mfilter if=$d_CacheType="L".and.$d_found
$LocationlessCount = $_FilterCount
$LocationlessPercent = ($_FilterCount/$Total) * 100
$LocationLessPercentString = left("$LocationlessPercent",4)

mfilter if=$d_CacheType="M".and.$d_found
$MultiCount = $_FilterCount
$MultiPercent = ($_FilterCount/$Total) * 100
$MultiPercentString = left("$MultiPercent",4)

mfilter if=$d_CacheType="O".and.$d_found
$OtherCount = $_FilterCount
$OtherPercent = ($_FilterCount/$Total) * 100
$OtherPercentString = left("$OtherPercent",4)

mfilter if=$d_CacheType="R".and.$d_found
$EarthCount = $_FilterCount
$EarthPercent = ($_FilterCount/$Total) * 100
$EarthPercentString = left("$EarthPercent",4)

mfilter if=$d_CacheType="T".and.$d_found
$TradCount = $_FilterCount
$TradPercent = ($_FilterCount/$Total) * 100
$TradPercentString = left("$TradPercent",4)

mfilter if=$d_CacheType="U".and.$d_found
$UnknownCount = $_FilterCount
$UnknownPercent = ($_FilterCount/$Total) * 100
$UnknownPercentString = left("$UnknownPercent",4)

mfilter if=$d_CacheType="V".and.$d_found
$VirtCount = $_FilterCount
$VirtPercent = ($_FilterCount/$Total) * 100
$VirtPercentString = left("$VirtPercent",4)

mfilter if=$d_CacheType="W".and.$d_found
$WebcamCount = $_FilterCount
$WebcamPercent = ($_FilterCount/$Total) * 100
$WebCamPercentString = left("$WebCamPercent",4)
$TotalFinds = $Total

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Typ</b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><b> </b></td><td><b> </b></td><td><b> </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><b> </b></td><td>" + "<b> Gesamt </b></td>" + "<td><b> </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Traditional:</td><td>" + "$TradCount</td>" + "<td>$TradPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Multi:</td><td>" + "$Multicount</td>" + "<td>$MultiPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Rätsel:</td><td>" + "$UnknownCount</td>" + "<td>$UnknownPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Virtual:</td><td>" + "$VirtCount</td>" + "<td>$VirtPercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Webcam:</td><td>" + "$WebcamCount</td>" + "<td>$WebcamPercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Letterbox:</td><td>" + "$LetterboxCount</td>" + "<td>$LetterboxPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Locationless:</td><td> " + "$LocationlessCount</td>" + "<td>$LocationlessPercentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Other:</td><td>" + "$OtherCount</td>" + "<td>$OtherPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Event:</td><td>" + "$EventCount</td>" + "<td>$EventPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Earth:</td><td>" + "$EarthCount</td>" + "<td>$EarthPercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><b>Gesamt:</b></td><td>" + "<b>$Total</b></td>" + "<td><b>100 %</b></td></tr>" + $_NewLine
$out = $out + "</table>" + $_NewLine

CancelFilter

$out = $out + "</body></html>"

$FileName = $temp + "\Monat_Typ.htm"
$Error = PutFile($FileName,$out)
OpenFile file="$FileName"
 
OP
A

Anonymous

Guest
bsterix schrieb:
Und was macht das Macro?
Zum Vergrößern anklicken....

es erzeugt eine Übersicht welcher Typ (z.B. Multi) pro Monat gefunden wurden und zeigt diese im Explorer an. die anderen aufgeführten "Untermacros" tun selbiges für Entfernung, Richtung, usw.

MfG Jörg
 
L

Lupus54

Geonewbie
D-Buddi schrieb:
Hi,

gibt es eigentlich eine Stelle an der Macros veröffentlicht werden. Bisher kenne ich nur die Seite bei gc.com, die Seite gefällt mir aber eher nicht.

Zum Einen schaue ich gern mal was es so gibt, zum Anderen hab ich hier noch ein Macro für mich selber das etliche Auswertungen macht und das vielleicht auch für andere interessant ist. Z.B. Aufteilung der Founds nach Typ pro Monat u.ä.

MfG Jörg
Zum Vergrößern anklicken....


Die Seite http://gsak.net/board//MacroIndex.php müsste doch bekannt sein?

Von da aus gehts auf die anderen Seiten

Gruss
 
UF aus LD

UF aus LD

Geowizard
Hmmm, der letzte Eintrag hier war von 11/2006 - es könnte sein, dass das Problem, schon gelöst war .......
:D :D :D
 
Carsten

Carsten

Geowizard
Edit: Das kommt davon, wenn man nicht guckt, in welchem Forum man postet. Ich mach hier mal zu, der Thread ist 3 Jahre alt und das Problem schon lange keins mehr.
 
Status
Für weitere Antworten geschlossen.
Oben