• 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

radioscout

Geoking
Hier könnt ihr GSAK-Macros veröffentlichen, ohne das sie irgendwann verlorengehen, denn der Fred ist gepinnt.
 
A

Anonymous

Guest
radioscout schrieb:
Hier könnt ihr GSAK-Macros veröffentlichen, ohne das sie irgendwann verlorengehen, denn der Fred ist gepinnt.

Na, das ist doch was. Ich hab hier einen der aus insgesamt 7 Text-Dateien besteht. Er läuft etwas länger und erzeugt monatsweise Übersichten über Typ, Behälter, Richtung, Entfernung, Difficulty und Terrain die dann im Web-Browser angezeigt werden.

Das Macro ist sicherlich nicht perfekt, aber für User die nicht groß die Makrosprache erlernen wollen sicherlich ein guter Ansatz den man sich selber anpassen kann. Entscheidend eigentlich: es funktioniert!!

Viel Spaß damit, Jörg

Statistik.txt

$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_Behaelter.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_Container="Virtual".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$VIRT = $_FilterCount
$VIRTProzent = 0
if $Total > 0
$VIRTProzent = ($_FilterCount/$Total) * 100
endif
$VIRTProzentString = left("$VIRTProzent",4)

mfilter if=$d_Container="Small".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$SMAL = $_FilterCount
$SMALProzent = 0
if $Total > 0
$SMALProzent = ($_FilterCount/$Total) * 100
endif
$SMALProzentString = left("$SMALProzent",4)

mfilter if=$d_Container="Regular".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$REGU = $_FilterCount
$REGUProzent = 0
if $Total > 0
$REGUProzent = ($_FilterCount/$Total) * 100
endif
$REGUProzentString = left("$REGUProzent",4)

mfilter if=$d_Container="Other".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$OTHE = $_FilterCount
$OTHEProzent = 0
if $Total > 0
$OTHEProzent = ($_FilterCount/$Total) * 100
endif
$OTHEProzentString = left("$OTHEProzent",4)

mfilter if=$d_Container="Not chosen".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$NOTC = $_FilterCount
$NOTCProzent = 0
if $Total > 0
$NOTCProzent = ($_FilterCount/$Total) * 100
endif
$NOTCProzentString = left("$NOTCProzent",4)

mfilter if=$d_Container="Micro".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$MICR = $_FilterCount
$MICRProzent = 0
if $Total > 0
$MICRProzent = ($_FilterCount/$Total) * 100
endif
$MICRProzentString = left("$MICRProzent",4)

mfilter if=$d_Container="Large".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$LARG = $_FilterCount
$LARGProzent = 0
if $Total > 0
$LARGProzent = ($_FilterCount/$Total) * 100
endif
$LARGProzentString = left("$LARGProzent",4)


$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Behälter</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>Behälter</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Micro:</td><td>" + "$MICR</td>" + "<td>$MICRProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Small:</td><td>" + "$SMAL</td>" + "<td>$SMALProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Regular:</td><td>" + "$REGU</td>" + "<td>$REGUProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Large:</td><td>" + "$LARG</td>" + "<td>$LARGProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Virtual:</td><td>" + "$VIRT</td>" + "<td>$VIRTProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Not chosen:</td><td>" + "$NOTC</td>" + "<td>$NOTCProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Other:</td><td> " + "$OTHE</td>" + "<td>$OTHEProzentString %" + "</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_Container="Micro".and.$d_found
$MICR = $_FilterCount
$MICRProzent = ($_FilterCount/$Total) * 100
$MICRProzentString = left("$MICRProzent",4)

mfilter if=$d_Container="Small".and.$d_found
$SMAL = $_FilterCount
$SMALProzent = ($_FilterCount/$Total) * 100
$SMALProzentString = left("$SMALProzent",4)

mfilter if=$d_Container="Regular".and.$d_found
$REGU = $_FilterCount
$REGUProzent = ($_FilterCount/$Total) * 100
$REGUProzentString = left("$REGUProzent",4)

mfilter if=$d_Container="Large".and.$d_found
$LARG = $_FilterCount
$LARGProzent = ($_FilterCount/$Total) * 100
$LARGProzentString = left("$LARGProzent",4)

mfilter if=$d_Container="Virtual".and.$d_found
$VIRT = $_FilterCount
$VIRTProzent = ($_FilterCount/$Total) * 100
$VIRTProzentString = left("$VIRTProzent",4)

mfilter if=$d_Container="Not chosen".and.$d_found
$NOTC = $_FilterCount
$NOTCProzent = ($_FilterCount/$Total) * 100
$NOTCProzentString = left("$NOTCProzent",4)

mfilter if=$d_Container="Other".and.$d_found
$OTHE = $_FilterCount
$OTHEProzent = ($_FilterCount/$Total) * 100
$OTHEProzentString = left("$OTHEProzent",4)

$TotalFinds = $Total

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Behälter</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>Micro:</td><td>" + "$MICR</td>" + "<td>$MICRProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Small:</td><td>" + "$SMAL</td>" + "<td>$SMALProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Regular:</td><td>" + "$REGU</td>" + "<td>$REGUProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Large:</td><td>" + "$LARG</td>" + "<td>$LARGProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Virtuell:</td><td>" + "$VIRT</td>" + "<td>$VIRTProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Not chosen:</td><td>" + "$NOTC</td>" + "<td>$NOTCProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Other:</td><td> " + "$OTHE</td>" + "<td>$OTHEProzentString %" + "</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_Behaelter.htm"
$Error = PutFile($FileName,$out)
OpenFile file="$FileName"

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

Monat_Difficulty.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_difficulty=1.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$10 = $_FilterCount
$10Prozent = 0
if $Total > 0
$10Prozent = ($_FilterCount/$Total) * 100
endif
$10ProzentString = left("$10Prozent",4)

mfilter if=$d_difficulty=1.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$15 = $_FilterCount
$15Prozent = 0
if $Total > 0
$15Prozent = ($_FilterCount/$Total) * 100
endif
$15ProzentString = left("$15Prozent",4)

mfilter if=$d_difficulty=2.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$20 = $_FilterCount
$20Prozent = 0
if $Total > 0
$20Prozent = ($_FilterCount/$Total) * 100
endif
$20ProzentString = left("$20Prozent",4)

mfilter if=$d_difficulty=2.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$25 = $_FilterCount
$25Prozent = 0
if $Total > 0
$25Prozent = ($_FilterCount/$Total) * 100
endif
$25ProzentString = left("$25Prozent",4)

mfilter if=$d_difficulty=3.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$30 = $_FilterCount
$30Prozent = 0
if $Total > 0
$30Prozent = ($_FilterCount/$Total) * 100
endif
$30ProzentString = left("$30Prozent",4)

mfilter if=$d_difficulty=3.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$35 = $_FilterCount
$35Prozent = 0
if $Total > 0
$35Prozent = ($_FilterCount/$Total) * 100
endif
$35ProzentString = left("$35Prozent",4)

mfilter if=$d_difficulty=4.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$40 = $_FilterCount
$40Prozent = 0
if $Total > 0
$40Prozent = ($_FilterCount/$Total) * 100
endif
$40ProzentString = left("$40Prozent",4)

mfilter if=$d_difficulty=4.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$45 = $_FilterCount
$45Prozent = 0
if $Total > 0
$45Prozent = ($_FilterCount/$Total) * 100
endif
$45ProzentString = left("$45Prozent",4)

mfilter if=$d_difficulty=5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$50 = $_FilterCount
$50Prozent = 0
if $Total > 0
$50Prozent = ($_FilterCount/$Total) * 100
endif
$50ProzentString = left("$50Prozent",4)


$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Difficulty</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>Difficulty</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>1.0:</td><td>" + "$10</td>" + "<td>$10ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>1.5</td><td>" + "$15</td>" + "<td>$15ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.0:</td><td>" + "$20</td>" + "<td>$20ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.5:</td><td>" + "$25</td>" + "<td>$25ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.0:</td><td>" + "$30</td>" + "<td>$30ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.5:</td><td>" + "$35</td>" + "<td>$35ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.0:</td><td> " + "$40</td>" + "<td>$40ProzentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.5:</td><td>" + "$45</td>" + "<td>$45ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>5.0:</td><td>" + "$50</td>" + "<td>$50ProzentString %</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_difficulty=1.and.$d_found
$10 = $_FilterCount
$10Prozent = ($_FilterCount/$Total) * 100
$10ProzentString = left("$10Prozent",4)

mfilter if=$d_difficulty=1.5.and.$d_found
$15 = $_FilterCount
$15Prozent = ($_FilterCount/$Total) * 100
$15ProzentString = left("$15Prozent",4)

mfilter if=$d_difficulty=2.and.$d_found
$20 = $_FilterCount
$20Prozent = ($_FilterCount/$Total) * 100
$20ProzentString = left("$20Prozent",4)

mfilter if=$d_difficulty=2.5.and.$d_found
$25 = $_FilterCount
$25Prozent = ($_FilterCount/$Total) * 100
$25ProzentString = left("$25Prozent",4)

mfilter if=$d_difficulty=3.and.$d_found
$30 = $_FilterCount
$30Prozent = ($_FilterCount/$Total) * 100
$30ProzentString = left("$30Prozent",4)

mfilter if=$d_difficulty=3.5.and.$d_found
$35 = $_FilterCount
$35Prozent = ($_FilterCount/$Total) * 100
$35ProzentString = left("$35Prozent",4)

mfilter if=$d_difficulty=4.and.$d_found
$40 = $_FilterCount
$40Prozent = ($_FilterCount/$Total) * 100
$40ProzentString = left("$40Prozent",4)

mfilter if=$d_difficulty=4.5.and.$d_found
$45 = $_FilterCount
$45Prozent = ($_FilterCount/$Total) * 100
$45ProzentString = left("$45Prozent",4)

mfilter if=$d_difficulty=5.and.$d_found
$50 = $_FilterCount
$50Prozent = ($_FilterCount/$Total) * 100
$50ProzentString = left("$50Prozent",4)

$TotalFinds = $Total

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Difficulty</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>1.0:</td><td>" + "$10</td>" + "<td>$10ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>1.5:</td><td>" + "$15</td>" + "<td>$15ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.0:</td><td>" + "$20</td>" + "<td>$20ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.5:</td><td>" + "$25</td>" + "<td>$25ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.0:</td><td>" + "$30</td>" + "<td>$30ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.5:</td><td>" + "$35</td>" + "<td>$35ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.0:</td><td>" + "$40</td>" + "<td>$40ProzentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.5:</td><td>" + "$45</td>" + "<td>$45ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>5.0:</td><td>" + "$50</td>" + "<td>$50ProzentString %</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_Difficulty.htm"
$Error = PutFile($FileName,$out)
OpenFile file="$FileName"

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

Monat_Entfernung.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_Distance<10.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$lessthan10 = $_FilterCount
$lessthan10Percent = 0
if $Total > 0
$lessthan10Percent = ($_FilterCount/$Total) * 100
endif
$lessthan10PercentString = left("$lessthan10Percent",4)

mfilter if=$d_Distance>=10.and.$d_Distance<20.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$10to20 = $_FilterCount
$10to20Percent = 0
if $Total > 0
$10to20Percent = ($_FilterCount/$Total) * 100
endif
$10to20PercentString = left("$10to20Percent",4)

mfilter if=$d_Distance>=20.and.$d_Distance<30.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$20to30 = $_FilterCount
$20to30Percent = 0
if $Total > 0
$20to30Percent = ($_FilterCount/$Total) * 100
endif
$20to30PercentString = left("$20to30Percent",4)

mfilter if=$d_Distance>=30.and.$d_Distance<40.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$30to40 = $_FilterCount
$30to40Percent = 0
if $Total > 0
$30to40Percent = ($_FilterCount/$Total) * 100
endif
$30to40PercentString = left("$30to40Percent",4)

mfilter if=$d_Distance>=40.and.$d_Distance<50.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$40to50 = $_FilterCount
$40to50Percent = 0
if $Total > 0
$40to50Percent = ($_FilterCount/$Total) * 100
endif
$40to50PercentString = left("$40to50Percent",4)

mfilter if=$d_Distance>=50.and.$d_Distance<100.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$50to100 = $_FilterCount
$50to100Percent = 0
if $Total > 0
$50to100Percent = ($_FilterCount/$Total) * 100
endif
$50to100PercentString = left("$50to100Percent",4)

mfilter if=$d_Distance>=100.and.$d_Distance<200.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$100to200 = $_FilterCount
$100to200Percent = 0
if $Total > 0
$100to200Percent = ($_FilterCount/$Total) * 100
endif
$100to200PercentString = left("$100to200Percent",4)

mfilter if=$d_Distance>=200.and.$d_Distance<500.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$200to500 = $_FilterCount
$200to500Percent = 0
if $Total > 0
$200to500Percent = ($_FilterCount/$Total) * 100
endif
$200to500PercentString = left("$200to500Percent",4)

mfilter if=$d_Distance>=500.and.$d_Distance<1000.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$500to1000 = $_FilterCount
$500to1000Percent = 0
if $Total > 0
$500to1000Percent = ($_FilterCount/$Total) * 100
endif
$500to1000PercentString = left("$500to1000Percent",4)

mfilter if=$d_Distance>=1000.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$greaterthan1000 = $_FilterCount
$greaterthan1000Percent = 0
if $Total > 0
$greaterthan1000Percent = ($_FilterCount/$Total) * 100
endif
$greaterthan1000PercentString = left("$greaterthan1000Percent",4)

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Entfernung</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>Entfernung</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><10:</td><td>" + "$lessthan10</td>" + "<td>$lessthan10PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>10-<20:</td><td>" + "$10to20</td>" + "<td>$10to20PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>20-<30:</td><td>" + "$20to30</td>" + "<td>$20to30PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>30-<40:</td><td>" + "$30to40</td>" + "<td>$30to40PercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>40-<50:</td><td>" + "$40to50</td>" + "<td>$40to50PercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>50-<100:</td><td>" + "$50to100</td>" + "<td>$50to100PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>100-<200:</td><td> " + "$100to200</td>" + "<td>$100to200PercentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>200-<500:</td><td>" + "$200to500</td>" + "<td>$200to500PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>500-<1000:</td><td>" + "$500to1000</td>" + "<td>$500to1000PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>>=1000:</td><td>" + "$greaterthan1000</td>" + "<td>$greaterthan1000PercentString %</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_Distance<10.and.$d_found
$lessthan10 = $_FilterCount
$lessthan10Percent = ($_FilterCount/$Total) * 100
$lessthan10PercentString = left("$lessthan10Percent",4)

mfilter if=$d_Distance>=10.and.$d_Distance<20.and.$d_found
$10to20 = $_FilterCount
$10to20Percent = ($_FilterCount/$Total) * 100
$10to20PercentString = left("$10to20Percent",4)

mfilter if=$d_Distance>=20.and.$d_Distance<30.and.$d_found
$20to30 = $_FilterCount
$20to30Percent = ($_FilterCount/$Total) * 100
$20to30PercentString = left("$20to30Percent",4)

mfilter if=$d_Distance>=30.and.$d_Distance<40.and.$d_found
$30to40 = $_FilterCount
$30to40Percent = ($_FilterCount/$Total) * 100
$30to40PercentString = left("$30to40Percent",4)

mfilter if=$d_Distance>=40.and.$d_Distance<50.and.$d_found
$40to50 = $_FilterCount
$40to50Percent = ($_FilterCount/$Total) * 100
$40to50PercentString = left("$40to50Percent",4)

mfilter if=$d_Distance>=50.and.$d_Distance<100.and.$d_found
$50to100 = $_FilterCount
$50to100Percent = ($_FilterCount/$Total) * 100
$50to100PercentString = left("$50to100Percent",4)

mfilter if=$d_Distance>=100.and.$d_Distance<200.and.$d_found
$100to200 = $_FilterCount
$100to200Percent = ($_FilterCount/$Total) * 100
$100to200PercentString = left("$100to200Percent",4)

mfilter if=$d_Distance>=200.and.$d_Distance<500.and.$d_found
$200to500 = $_FilterCount
$200to500Percent = ($_FilterCount/$Total) * 100
$200to500PercentString = left("$200to500Percent",4)

mfilter if=$d_Distance>=500.and.$d_Distance<1000.and.$d_found
$500to1000 = $_FilterCount
$500to1000Percent = ($_FilterCount/$Total) * 100
$500to1000PercentString = left("$500to1000Percent",4)

mfilter if=$d_Distance>=1000.and.$d_found
$greaterthan1000 = $_FilterCount
$greaterthan1000Percent = ($_FilterCount/$Total) * 100
$greaterthan1000PercentString = left("$greaterthan1000Percent",4)


$TotalFinds = $Total

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Entfernung</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><b>Entfernung</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td><10:</td><td>" + "$lessthan10</td>" + "<td>$lessthan10PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>10-<20:</td><td>" + "$10to20</td>" + "<td>$10to20PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>20-<30:</td><td>" + "$20to30</td>" + "<td>$20to30PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>30-<40:</td><td>" + "$30to40</td>" + "<td>$30to40PercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>40-<50:</td><td>" + "$40to50</td>" + "<td>$40to50PercentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>50-<100:</td><td>" + "$50to100</td>" + "<td>$50to100PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>100-<200:</td><td> " + "$100to200</td>" + "<td>$100to200PercentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>200-<500:</td><td>" + "$200to500</td>" + "<td>$200to500PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>500-<1000:</td><td>" + "$500to1000</td>" + "<td>$500to1000PercentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>>=1000:</td><td>" + "$greaterthan1000</td>" + "<td>$greaterthan1000PercentString %</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_Entfernung.htm"
$Error = PutFile($FileName,$out)
OpenFile file="$FileName"

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

Monat_Richtung.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_Bearing="N".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$NCount = $_FilterCount
$NProzent = 0
if $Total > 0
$NProzent = ($_FilterCount/$Total) * 100
endif
$NProzentString = left("$NProzent",4)

mfilter if=$d_Bearing="NE".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$NECount = $_FilterCount
$NEProzent = 0
if $Total > 0
$NEProzent = ($_FilterCount/$Total) * 100
endif
$NEProzentString = left("$NEProzent",4)

mfilter if=$d_Bearing="E".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$ECount = $_FilterCount
$EProzent = 0
if $Total > 0
$EProzent = ($_FilterCount/$Total) * 100
endif
$EProzentString = left("$EProzent",4)

mfilter if=$d_Bearing="N".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$SECount = $_FilterCount
$SEProzent = 0
if $Total > 0
$SEProzent = ($_FilterCount/$Total) * 100
endif
$SEProzentString = left("$SEProzent",4)

mfilter if=$d_Bearing="S".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$SCount = $_FilterCount
$SProzent = 0
if $Total > 0
$SProzent = ($_FilterCount/$Total) * 100
endif
$SProzentString = left("$SProzent",4)

mfilter if=$d_Bearing="SW".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$SWCount = $_FilterCount
$SWProzent = 0
if $Total > 0
$SWProzent = ($_FilterCount/$Total) * 100
endif
$SWProzentString = left("$SWProzent",4)

mfilter if=$d_Bearing="W".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$WCount = $_FilterCount
$WProzent = 0
if $Total > 0
$WProzent = ($_FilterCount/$Total) * 100
endif
$WProzentString = left("$WProzent",4)

mfilter if=$d_Bearing="NW".and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$NWCount = $_FilterCount
$NWProzent = 0
if $Total > 0
$NWProzent = ($_FilterCount/$Total) * 100
endif
$NWProzentString = left("$NWProzent",4)

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Richtung</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>Richtung</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Nord:</td><td>" + "$NCount</td>" + "<td>$NProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Nord-Ost:</td><td>" + "$NEcount</td>" + "<td>$NEProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Ost:</td><td>" + "$ECount</td>" + "<td>$EProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Süd-Ost:</td><td>" + "$SECount</td>" + "<td>$SEProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Süd:</td><td>" + "$SCount</td>" + "<td>$SProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Süd-West:</td><td>" + "$SWCount</td>" + "<td>$SWProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>West:</td><td> " + "$WCount</td>" + "<td>$WProzentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Nord-West:</td><td>" + "$NWCount</td>" + "<td>$NWProzentString %</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_Bearing="N".and.$d_found
$NCount = $_FilterCount
$NProzent = ($_FilterCount/$Total) * 100
$NProzentString = left("$NProzentString",4)

mfilter if=$d_Bearing="NE".and.$d_found
$NECount = $_FilterCount
$NEProzent = ($_FilterCount/$Total) * 100
$NEProzentString = left("$NEProzentString",4)

mfilter if=$d_Bearing="E".and.$d_found
$ECount = $_FilterCount
$EProzent = ($_FilterCount/$Total) * 100
$EProzentString = left("$EProzentString",4)

mfilter if=$d_Bearing="SE".and.$d_found
$SECount = $_FilterCount
$SEProzent = ($_FilterCount/$Total) * 100
$SEProzentstring = left("$SEProzentstring",4)

mfilter if=$d_Bearing="S".and.$d_found
$SCount = $_FilterCount
$SProzent = ($_FilterCount/$Total) * 100
$SProzentstring = left("$SProzentstring",4)

mfilter if=$d_Bearing="SW".and.$d_found
$SWCount = $_FilterCount
$SWProzent = ($_FilterCount/$Total) * 100
$SWProzentstring = left("$SWProzentstring",4)

mfilter if=$d_Bearing="W".and.$d_found
$WCount = $_FilterCount
$WProzent = ($_FilterCount/$Total) * 100
$WProzentstring = left("$WProzentstring",4)

mfilter if=$d_Bearing="NW".and.$d_found
$NWCount = $_FilterCount
$NWProzent = ($_FilterCount/$Total) * 100
$NWProzentstring = left("$NWProzentstring",4)


$TotalFinds = $Total

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Richtung</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><b>Richtung</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Nord:</td><td>" + "$NCount</td>" + "<td>$NProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Nord-Ost:</td><td>" + "$NEcount</td>" + "<td>$NEProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Ost:</td><td>" + "$ECount</td>" + "<td>$EProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Süd-Ost:</td><td>" + "$SECount</td>" + "<td>$SEProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Süd:</td><td>" + "$SCount</td>" + "<td>$SProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Süd-West:</td><td>" + "$SWCount</td>" + "<td>$SWProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>West:</td><td> " + "$WCount</td>" + "<td>$WProzentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>Nord-West:</td><td>" + "$NWCount</td>" + "<td>$NWProzentString %</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_Richtung.htm"
$Error = PutFile($FileName,$out)
OpenFile file="$FileName"

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

Monat_Terrain.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_terrain=1.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$10 = $_FilterCount
$10Prozent = 0
if $Total > 0
$10Prozent = ($_FilterCount/$Total) * 100
endif
$10ProzentString = left("$10Prozent",4)

mfilter if=$d_terrain=1.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$15 = $_FilterCount
$15Prozent = 0
if $Total > 0
$15Prozent = ($_FilterCount/$Total) * 100
endif
$15ProzentString = left("$15Prozent",4)

mfilter if=$d_terrain=2.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$20 = $_FilterCount
$20Prozent = 0
if $Total > 0
$20Prozent = ($_FilterCount/$Total) * 100
endif
$20ProzentString = left("$20Prozent",4)

mfilter if=$d_terrain=2.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$25 = $_FilterCount
$25Prozent = 0
if $Total > 0
$25Prozent = ($_FilterCount/$Total) * 100
endif
$25ProzentString = left("$25Prozent",4)

mfilter if=$d_terrain=3.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$30 = $_FilterCount
$30Prozent = 0
if $Total > 0
$30Prozent = ($_FilterCount/$Total) * 100
endif
$30ProzentString = left("$30Prozent",4)

mfilter if=$d_terrain=3.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$35 = $_FilterCount
$35Prozent = 0
if $Total > 0
$35Prozent = ($_FilterCount/$Total) * 100
endif
$35ProzentString = left("$35Prozent",4)

mfilter if=$d_terrain=4.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$40 = $_FilterCount
$40Prozent = 0
if $Total > 0
$40Prozent = ($_FilterCount/$Total) * 100
endif
$40ProzentString = left("$40Prozent",4)

mfilter if=$d_terrain=4.5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$45 = $_FilterCount
$45Prozent = 0
if $Total > 0
$45Prozent = ($_FilterCount/$Total) * 100
endif
$45ProzentString = left("$45Prozent",4)

mfilter if=$d_terrain=5.and.$d_found.and.SubStr(DateToString($d_FoundByMeDate), 1, 6) = $currmonth
$50 = $_FilterCount
$50Prozent = 0
if $Total > 0
$50Prozent = ($_FilterCount/$Total) * 100
endif
$50ProzentString = left("$50Prozent",4)


$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Terrain</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>Terrain</b></td><td>" + "<b> Anzahl </b></td>" + "<td><b> Prozent </b></td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>1.0:</td><td>" + "$10</td>" + "<td>$10ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>1.5</td><td>" + "$15</td>" + "<td>$15ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.0:</td><td>" + "$20</td>" + "<td>$20ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.5:</td><td>" + "$25</td>" + "<td>$25ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.0:</td><td>" + "$30</td>" + "<td>$30ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.5:</td><td>" + "$35</td>" + "<td>$35ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.0:</td><td> " + "$40</td>" + "<td>$40ProzentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.5:</td><td>" + "$45</td>" + "<td>$45ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>5.0:</td><td>" + "$50</td>" + "<td>$50ProzentString %</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_terrain=1.and.$d_found
$10 = $_FilterCount
$10Prozent = ($_FilterCount/$Total) * 100
$10ProzentString = left("$10Prozent",4)

mfilter if=$d_terrain=1.5.and.$d_found
$15 = $_FilterCount
$15Prozent = ($_FilterCount/$Total) * 100
$15ProzentString = left("$15Prozent",4)

mfilter if=$d_terrain=2.and.$d_found
$20 = $_FilterCount
$20Prozent = ($_FilterCount/$Total) * 100
$20ProzentString = left("$20Prozent",4)

mfilter if=$d_terrain=2.5.and.$d_found
$25 = $_FilterCount
$25Prozent = ($_FilterCount/$Total) * 100
$25ProzentString = left("$25Prozent",4)

mfilter if=$d_terrain=3.and.$d_found
$30 = $_FilterCount
$30Prozent = ($_FilterCount/$Total) * 100
$30ProzentString = left("$30Prozent",4)

mfilter if=$d_terrain=3.5.and.$d_found
$35 = $_FilterCount
$35Prozent = ($_FilterCount/$Total) * 100
$35ProzentString = left("$35Prozent",4)

mfilter if=$d_terrain=4.and.$d_found
$40 = $_FilterCount
$40Prozent = ($_FilterCount/$Total) * 100
$40ProzentString = left("$40Prozent",4)

mfilter if=$d_terrain=4.5.and.$d_found
$45 = $_FilterCount
$45Prozent = ($_FilterCount/$Total) * 100
$45ProzentString = left("$45Prozent",4)

mfilter if=$d_terrain=5.and.$d_found
$50 = $_FilterCount
$50Prozent = ($_FilterCount/$Total) * 100
$50ProzentString = left("$50Prozent",4)

$TotalFinds = $Total

$out = $out + "<table border='1' summary='' style=display:inline>"
$out = $out + "<tr class=TableHeader><td align='center' colspan=3><b>Terrain</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>1.0:</td><td>" + "$10</td>" + "<td>$10ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>1.5:</td><td>" + "$15</td>" + "<td>$15ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.0:</td><td>" + "$20</td>" + "<td>$20ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>2.5:</td><td>" + "$25</td>" + "<td>$25ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.0:</td><td>" + "$30</td>" + "<td>$30ProzentString % </td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>3.5:</td><td>" + "$35</td>" + "<td>$35ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.0:</td><td>" + "$40</td>" + "<td>$40ProzentString %" + "</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>4.5:</td><td>" + "$45</td>" + "<td>$45ProzentString %</td></tr>" + $_NewLine
$out = $out + "<tr class=row><td>5.0:</td><td>" + "$50</td>" + "<td>$50ProzentString %</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_Difficulty.htm"
$Error = PutFile($FileName,$out)
OpenFile file="$FileName"

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

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("$Trad
 
A

Anonymous

Guest
Jurgen & co schrieb:
D-Budie

Vielleicht ist es gut um fur jede macra ein eigenen code feld zu benutsen.

Code:
Macro 1

Code:
Macro 2

etc.

1. D-Buddi
2. gute Idee, falls ich noch mal Einen veröffentlich werde ich das aufteilen. Diesen lasse ich mal so, ist ja im Endeffekt erst mal nutzbar.

MfG Jörg
 
A

Anonymous

Guest
Jurgen & co schrieb:
Warum das rad nochmall neu erfinden? Mann hat doch hier auch ein sehr gutten platz. http://gsak.net/board/index.php?s=9734551f7c62738456eeb3cee1326e06&showforum=9 Ich neme doch an das leute die mit GSAK arbeiten hier als erste sehn ob es wass gutes gibt. Und die ganze welt hat das was von.

ich hab ehrlich gesagt keine Lust mich schon wieder irgendwo einzutragen, zumal immer auch ein Risiko besteht noch mehr SPAM zu bekommen... auch gehöre ich z.B. nicht zu denen die dort zuerst schauen da ich gewisse Sachen im RSS-Feed verfolge und meine Zeit und somit die Anzahl Seiten die ich so alle beobachten kann begrenzt ist.

MfG Jörg
 

Vater und Sohn

Geomaster
D-Buddi schrieb:
ich hab ehrlich gesagt keine Lust mich schon wieder irgendwo einzutragen, zumal immer auch ein Risiko besteht noch mehr SPAM zu bekommen...

Da kann ich Dich beruhigen. Ich bin dort schon sehr lange angemeldet und noch nie Spam aus der Richtung bekommen.
 
OP
radioscout

radioscout

Geoking
Jurgen & co schrieb:
Warum das rad nochmall neu erfinden? Mann hat doch hier auch ein sehr gutten platz.
Stimmt. Aber nur in Englisch und das ist für sehr viele User ein Grund, das Forum nicht zu nutzen und dafür dieses Forum zu bevorzugen.
 

DL3BZZ

Geoguru
Zu Macros:
Bei GSAK im Forum gibt es auch einen Fred über Macros, finde ich sehr gut, da sollte man öfter reinschauen.
Der Grillmeister hat hier in einem anderen Fred das Macro "myGMEv3" erwähnt, ich finde, ein tolles Macro.

Bis denne
Lutz, DL3BZZ
 

DL3BZZ

Geoguru
HIER findet ihr eine Übersicht über alle Macros für GSAK. Jedenfalls, die, die man downloaden kann.
Sehr gute Übersicht :D .

Bis denne
Lutz, DL3BZZ
 

Jurilaris

Geocacher
Guter Link, wenn ich nun wüßte was welches Makro nun macht, mit meinem Englisch ist es arg schlimm bestellt.....gibt es keine deutsche Seite? Oder ein paar Makros, die nützlich sind und deutsch erklärt werden? :roll:
lg Jurilaris
 

Schnueffler

Geoguru
Nein, gibt es leider nicht.

Und alle Makros zu erklären, wäre wohl etwas viel Wenn Du uns sagst, was Du machen willst und wofür du GSAK brauchst, kann man vielleicht einzelne Makros nennen und mit ein paar Worten beschreiben. Ansonsten ist google mittlerweile auch ein recht guter Übersetzer geworden. Für's Englische reicht es in den meisten Fällen aus.
 

Jurilaris

Geocacher
hey, hab schon mit google übersetzt einige aus der Liste, ist recht amüsant was da dann raus kommt^^
Naja ich meld mich,wenn ich nicht weiter komme, bin grad dabei erstmal das mit den Pocket Queries rauszubekommen..mit Gsak hab ich meine Statistik gemacht:)
 

Jurilaris

Geocacher
ok...hab doch eine Frage:
ich habe mir jetzt ein pocket query bei gc.com gemacht mit caches die auf einer route liegen. nun hat mein mann ein gps, mit dem ich nicht klarkomme.
eigendlich suche ich imer während der fahrt mit dem iphone caches aus der umgebung während der fahrt. dabei geht mein iphone akku ziemlich schnell drauf.
kann ich mit den gsak nicht eine liste zum ausdrucken bringen wo alle caches vom start bis zum ziel mit koords drauf sind? in der reihenfolge der entfernung zum start?
gibt es dazu ein makro dings^^?
danke schön schonmal:)
 

weserjäger

Geocacher
Hallo,

wer kann mir den hier weiter helfen. Ich suche ein Makro oder auch 2?. Mit dem man aus My Founds eine Karte erstellen kann und gleichzeitig eine Auflistung hat, die man dann weiter verarbeiten kann, in einer Homepage z.B.

Das gleiche sollte auch zu machen sein mit meinen eigenen Caches.

Kann mir da jemand weiterhelfen?

mvg. Horst
 

Astartus

Geowizard
Was genau für eine Karte möchtest du erstellen? Eine Karte auf der alle deine gefundenen Caches aufgeführt sind?

Dann dürfte die Google Maps makros das richtige für dich sein.
MyGMEv3 erstellt eine HTML Datei, die du auf deiner Webseite einbinden kannst und die auf Google maps Karten die exportierten Caches des aktuellen Filters ausgibt. Ich persönlich emfinde den Seitenaufbau bei vielen Funden aber als sehr langsam. Außerdem brauchst du dafür einen Google Map API Key.

Etwas einfacher aber evtl nicht ganz so funktionsgefüllt, aber wesnetlich schneller und einfacher in der Anzeige ist Google Maps v3 dass die neue Google Maps API benutzt. In der Übersicht siehst du nur Ballungsräume mit Fundzahlen. je näher du aber hineinzoomst desto mehr caches kann man einzeln sehen.
 

weserjäger

Geocacher
Hallo Astartus,

habe soeben mal das Makro Google Maps V3 geladen und probiert. Ist genau das was ich wollte. Kann man nun aber diese Karte auch in eine Webseite einbinden?

mfg. Horst
 
Oben