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
