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 0×0000 // “dec.txt” …

Weiterlesen »

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 …

Weiterlesen »