Diese Website existiert nur weil wir Werbung mit AdSense ausliefern.
Bitte den AdBlocker daher auf dieser Website ausschalten! Danke.

GSAK-Macros

Das Schweizer Taschenmesser für Cachebeschreibungen.

Moderator: Schnueffler

Benutzeravatar
radioscout
Geoking
Beiträge: 22915
Registriert: Mo 1. Mär 2004, 00:05
Wohnort: Aachen

GSAK-Macros

Beitrag von radioscout » Mi 8. Nov 2006, 01:52

Hier könnt ihr GSAK-Macros veröffentlichen, ohne das sie irgendwann verlorengehen, denn der Fred ist gepinnt.
Bild
Wir hätten nie uns getraut doofe Dosen anzumelden schon aus Respekt vor diesem geheimnisvollen Spiel (Dosenfischer, Die goldenen Jahre)

Werbung:
D-Buddi

Re: GSAK-Macros

Beitrag von D-Buddi » Mi 8. Nov 2006, 07:02

radioscout hat geschrieben: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 + ".Body{font-family:'Arial'}" + $_NewLine
$out = $out + ".TableHeader{background-color:#CCCCFF;text-align: center}" + $_NewLine
$out = $out + ".Item{color:blue;font-weight:bold}" + $_NewLine
$out = $out + ".row{background-color: #FEF4D8;vertical-align:top}" + $_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 + ".Body{font-family:'Arial'}" + $_NewLine
$out = $out + ".TableHeader{background-color:#CCCCFF;text-align: center}" + $_NewLine
$out = $out + ".Item{color:blue;font-weight:bold}" + $_NewLine
$out = $out + ".row{background-color: #FEF4D8;vertical-align:top}" + $_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 + ".Body{font-family:'Arial'}" + $_NewLine
$out = $out + ".TableHeader{background-color:#CCCCFF;text-align: center}" + $_NewLine
$out = $out + ".Item{color:blue;font-weight:bold}" + $_NewLine
$out = $out + ".row{background-color: #FEF4D8;vertical-align:top}" + $_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 + ".Body{font-family:'Arial'}" + $_NewLine
$out = $out + ".TableHeader{background-color:#CCCCFF;text-align: center}" + $_NewLine
$out = $out + ".Item{color:blue;font-weight:bold}" + $_NewLine
$out = $out + ".row{background-color: #FEF4D8;vertical-align:top}" + $_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 + ".Body{font-family:'Arial'}" + $_NewLine
$out = $out + ".TableHeader{background-color:#CCCCFF;text-align: center}" + $_NewLine
$out = $out + ".Item{color:blue;font-weight:bold}" + $_NewLine
$out = $out + ".row{background-color: #FEF4D8;vertical-align:top}" + $_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 + ".Body{font-family:'Arial'}" + $_NewLine
$out = $out + ".TableHeader{background-color:#CCCCFF;text-align: center}" + $_NewLine
$out = $out + ".Item{color:blue;font-weight:bold}" + $_NewLine
$out = $out + ".row{background-color: #FEF4D8;vertical-align:top}" + $_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

Naturekid
Geomaster
Beiträge: 321
Registriert: Di 2. Aug 2005, 10:34
Wohnort: Fast mitten in Schleswig-Holstein
Kontaktdaten:

Beitrag von Naturekid » Mi 8. Nov 2006, 08:34

Ist das ein Macro oder mehrere?

[Edit: Es sind mehrere....]

Christian und die Wutze
Geoguru
Beiträge: 6141
Registriert: Di 24. Jan 2006, 08:29
Wohnort: 52538 Gangelt
Kontaktdaten:

Beitrag von Christian und die Wutze » Mi 8. Nov 2006, 10:09

Nette Idee, aber die Seiten dieses Freds werden wohl etwas länger... :wink:
persönlicher Held des Tages[TM] und Spielverderber

Du möchtest auch Spielverderber sein? Bitte schön.

Jurgen & co
Geomaster
Beiträge: 613
Registriert: Fr 26. Aug 2005, 00:16
Wohnort: 26131 Oldenburg

Beitrag von Jurgen & co » Mi 8. Nov 2006, 11:41

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.

D-Budie

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

Code: Alles auswählen

Macro 1


Code: Alles auswählen

Macro 2


etc.

D-Buddi

Beitrag von D-Buddi » Mi 8. Nov 2006, 11:47

Jurgen & co hat geschrieben:D-Budie

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

Code: Alles auswählen

Macro 1


Code: Alles auswählen

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

D-Buddi

Beitrag von D-Buddi » Mi 8. Nov 2006, 11:50

Jurgen & co hat geschrieben: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
Beiträge: 836
Registriert: Do 17. Jun 2004, 08:38
Kontaktdaten:

Beitrag von Vater und Sohn » Mi 8. Nov 2006, 13:30

D-Buddi hat geschrieben: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.

Benutzeravatar
radioscout
Geoking
Beiträge: 22915
Registriert: Mo 1. Mär 2004, 00:05
Wohnort: Aachen

Beitrag von radioscout » Mi 8. Nov 2006, 18:07

Jurgen & co hat geschrieben: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.
Bild
Wir hätten nie uns getraut doofe Dosen anzumelden schon aus Respekt vor diesem geheimnisvollen Spiel (Dosenfischer, Die goldenen Jahre)

Benutzeravatar
DL3BZZ
Geoguru
Beiträge: 3755
Registriert: Di 15. Feb 2005, 15:45
Kontaktdaten:

Beitrag von DL3BZZ » So 1. Jul 2007, 09:44

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
Bild

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder