StatisticsCleaner

[Luckie]

Ich habe mir mal eben in einer halben Stunden ein kleines Tool für mich zusammen gehackt. Als ich fertig war dachte ich, es wäre auch ganz nützlich für andere bzw. zum Weiterentwickeln, denn mir reicht es so wie es ist.

Die Idee entstand aus folgender Situation: Neuerdings trägt sich wohl jemand, um mich zu ärgern, mit meiner Identität in verschiedenen Gästebüchern ein. Das weiß ich da, er auch meine Homepage als seine angibt. Nun bekomme ich recht detailierte Statistiken und ich sehe jeden Link der auf meine Homepage geführt hat. In der Statistik manifestiert sich das in über 2000 Links im Monat. Diese durchzusehen ist recht mühsam, da natürlich ein Großteil von Seiten kommen, die "in Ordnung" sind, wie zum Beispiel diversen Delphi-Foren usw. Da die Seite wie folgt aufgebaut ist:

Code:

<TR><TD CLASS=AWL>[url="http://www.delphipraxis.net/printview.php?t=1770&start=45"]http://www.delphipraxis.net/printview.php?t=1770&start=45[/url]</TD><TD>9</TD><TD>0.2 %</TD></TR>

Ist es natürlich realtiv leicht die Zeilen aus der Tabelle zu löschen, die nicht interessieren und so das ganze etwas übersichtlicher zu gestallten.
Anfangs war das Programm recht unflexibel, alles war hardgecodet. Als ich fertig war dachte ich, wenn man es flexibeler gestalltet, können auch noch andere was damit anfangen. Also habe ich losgelegt und das ist bei rausgekommen:

• in eine Listbox wird der Quellcode der HTML-Datei geladen (muß man vorher abspeichern)
• nach dem "Säubern" wird die HTML-Datei automatisch abgespeichert unter gleichen Namen
• in ein Memo trägt man Schlüsselwörter aus der Zeile ein, die gelöscht werden soll
• der Inhalt des Memos wird automatisch gespeichert
• man kann manuell eine Schlüsselwörterdatei öffnen
• der "Säuberungs-Vorgang" kann abgebrochen werden
• der Fortschritt wird angezeigt
• die Anzahl der gelöschten Zeilen wird angezeigt
• die Dauer wird angezeigt

Download: StatisticsCleaner (ca. 257 KB)

Also wer Lust hat, kann die paar Zeilen als Ausgangsbasis für mehr nehmen. Es ist zum Weiterentwickeln freigegeben.

[Daniel B]

Also irgendwie hab ich nciht verstanden wie das funktioniert. Ich habe mal eine HP geladen, bin in der linken LB alle Einträge durchgegangen, bei manchen Zeilen auf Säubern geklickt, aber irgendwie kann man da nicht erkennen was da passiert. In der rechten ListBox kommt irgendwie nie was rein. Auch in dieser TextFile die da angelegt wird, kommt nie was rein. Ausserdem könntest Du die TextFile erst anlegen wenn auch was riengeschrieben wird.
Ansonsten solltest Du vielleicht mal beschreiben wie man mit dem Programm überhaupt arbeitet. Und ein Icon brauchts noch.

Grüsse, Daniel

[Luckie]

Also. Man läd eine HTML-Datei in die Listbox. Meine Statistik Seite sieht so aus:

Code:

<TR><TD CLASS=AWL>[url="http://www.delphipraxis.net/printview.php?t=1770&start=45"]http://www.delphipraxis.net/printview.php?t=1770&start=45[/url]</TD><TD>9</TD><TD>0.2 %</TD></TR>

Wenn mich jetzt nicht interessiert, wer alles von der DP auf meine Seite gekommen ist, schreibe ich ein Schlüsselwort aus der Zeile in das Memo rechts rein. Das wäre hier logischerweise delphipraxis. Dann klickt man auf säubern und es werden alle Zeilen gelöscht, in denen das Schlüsselwort vorkommt. Danach wird die Datei unter dem gleichen Namen abgespeichert. Und beim Beenden wird automatisch der Inhalt des Memos gespeichert.

Ich gehe normaler weise so vor: Ich speichere die Seite auf der Festplatte und lade sie einmal mit meinem Programm und öffne sie gleichzeitig im Browser. Dann "säubere" ich sie, wechsele zum Browser und drücke F5. Das mache ich so lange bis ich alles raus habe, was mich nicht intersssiert. Sinn war es ja alle Verweise rauszuwerfen, die von Delphi-Seiten kommen - Erklärung sie erste Posting von mir. Mittlerweile ist der Filter natürlich gewachsen und "steht". So dass ich nur noch einmal auf "säubern" klicken muß.