Ralf Hüsing » Programmierung

Werbung sowie Analysetools aus Webseiten automatisch filtern

ralf — Sun, 08 Aug 2010 19:01:50 +0000

Das Filtern von Webseiten liegt mir schon seit geraumer Zeit für unser Netzwerk am Herzen. Zuerst fing ich an am DNS rumzuspielen was dann irgendwann ausuferte und nicht mehr administrierbar wurde. Dann spielte ich mit Squid und bin dabei geblieben. Browserseitig (zBspl. mittels AdBlock) wollte ich nichts machen da das auf jedem Client stattfinden muss und nicht jeder hier Firefox nutzt. Das Problem allerdings sind ganz generell diese statischen Filterlisten.

Deadlockopfer

ralf — Thu, 14 May 2009 09:52:46 +0000

“Die Transaktion (Prozess-ID xxxx) befand sich auf Sperre Ressourcen aufgrund eines anderen Prozesses in einer Deadlocksituation und wurde als Deadlockopfer ausgewählt. Führen Sie die Transaktion erneut aus.” Soweit ich das verstanden habe treten Deadlock’s auf wenn zwei Transaktionen dauerhaft auf eine bestimmte Ressource warten würden. Eine Ressource kann zbspl. eine Speicher-Seite sein. Der MS-SQL-Server erkennt …

Zahlen sortieren mal anders

ralf — Mon, 30 Mar 2009 22:07:01 +0000

So könnte man Zahlen mal auf eine andere Art sortieren:

SELECT 3 AS ID
UNION ALL
SELECT 1 AS ID
UNION ALL
SELECT 2 AS ID
ORDER BY ID

Sieht dann in etwa so aus:

Eingabedaten flexibel und unabhängig von der Programmiersprache mittels SQL prüfen

ralf — Fri, 12 Dec 2008 17:05:25 +0000

Möchte man Eingaben flexibel und evtl. komplexen Prüfungen unterziehen kann man sich die Fähigkeiten von SQL zu nutze machen. Ich gehe hier davon aus das die Anwendung generell eine Datenbankverbindung hat und nicht extra wegen der Prüfung eine Verbindung aufbauen muss. Ein Beispiel: Der Benutzer gibt eine Zeichenfolge ein: “D016381″. Die Anwendung muss nun etwas …

Wo ist der Bug?

ralf — Fri, 12 Dec 2008 10:22:23 +0000

Wer findet den Bug in folgendem Code? For Each oControl In Controls Select Case LCase(oControl.Tag) Case "ziel", "quelle", "bedingung", "Feldliste" ' Mach irgendwas mit oControl wenn dessen Tag passt End Select Next oControl

Den Inhalt aller Tabellen einer Microsoft SQL-Datenbank löschen

ralf — Fri, 26 Sep 2008 21:42:33 +0000

Mit folgendem TSQL-Script wird der Inhalt aller in der aktuellen Datenbank vorhandenen Benutzer-Tabellen gelöscht: Sollte TRUNCATE TABLE wg. Referenzen oä. nicht funktionieren kann es durch das etwas langsamere DELETE FROM ersetzt werden. Bevor man das Script ausführt sollte man mehrfach Prüfen das man in der richtigen Datenbank / auf dem richtigen SQL Server ist. DECLARE …

Visual Basic 6 – Dezimal nach Hexadezimal und Dezimalzahlen in Hexadezimalzahlen konvertieren

ralf — Wed, 06 Aug 2008 16:21:21 +0000

' /** ' Konvertiert Dezimal Zahlen in Hex ' **/ Public Property Get pDec2Hex(lDec As Long, Optional ByVal lLength As Long = 4, Optional sPrefix As String = "0x") As String Dim sHex As String Dim lHexLen As Long sHex = Hex(lDec) lHexLen = Len(sHex) If lLength < 0 Then lLength = 0 If lHexLen …

Sichten und Vernichten

ralf — Sat, 03 May 2008 16:14:42 +0000

Eine sehr übersichtliche SQL Sicht:

Hexadezimal in Dezimal

ralf — Fri, 25 Apr 2008 08:32:52 +0000

Folgendes Perl-Script konvertiert alle Hexadezimalen Zahlen (0x…) der Standardeingabe (stdin) in Dezimale Zahlen und gibt es auf der Standardausgabe (stdout) aus: #!/usr/bin/perl -lw use strict; while () { chomp; s/0[xX]([a-fA-F0-9]+)/sprintf('%d', hex('0x'.$1))/eg; print $_; } Benutzung in etwa wie folgt: perl hex_2_dec.pl < hex.txt > dec.txt “hex.txt” enthält beispielsweise folgende Zeile: #define CSIDL_DESKTOP 0x0000 // “dec.txt” …

Visual Basic 6 Fehlerbehandlung

ralf — Fri, 25 Apr 2008 04:54:01 +0000

Um in einer VB6-Routine (Function, Sub oder Property) mehrere Fehler ordentlich abzufangen muss eine etwas merkwürdige Kombination von “on local error” und “resume” verwendet werden. Diese Beispiel-Sub geht von einem simplen “Form1″-Formular sowie einem “Command1″-Button aus. Das Beispiel versucht mehrere Eigenschaften des aktuellen Objektes (“Form1″) abzufragen wobei die Sub verlassen werden soll wenn kein Fehler …