Monat: Februar 2010

Weißrussland erklärt Rammstein zum Staatsfeind

Rammstein ist ja bekannt dafür immer wieder zu provozieren. Zum einen durch ihre Texte, zum anderen durch die Melodien. Manche Lieder wie zum Beispiel Engel finde ich ganz nett. Doch die aktuellen Sachen sind einfach nur bescheuert, so wie damals bei Scooter.
Was aber auch richtig interessant ist: Weißrussland wehrt sich nun auch öffentlich gegen ein am 7. März geplantes Konzert.
Wie Bild.de schreibt:

Die Songs von Rammstein seien Propaganda für „Gewalt, Masochismus, Homosexualität und andere Abartigkeiten“, die sich gegen weißrussische Werte richteten, hieß es. Und weiter: „Eine Erlaubnis für ein Rammstein-Konzert ist ein Fehler, der uns viel kosten kann.“

Dem kann ich eigentlich nur zustimmen. Jetzt fehlt eigentlich nur noch, dass sich Rammstein mit Naziparolen schmücken, dann wäre das Onkelz-Klischee auch wieder erfüllt. Meines Erachtens nach ist der Schritt von den Weißrussen sehr gut nachvollziehbar. Sie haben noch Sitten und wollen diese auch bewahren. Das kann man von Deutschland nicht mehr allgemein sagen. Seit Big Brother wird das Fernsehen immer mehr von Pornografie beeinflusst. Und das teilweise auch um die Mittagszeit.

Aber um nicht alles schlecht zu reden: Rammstein hat doch mal die Bayrische Nationalhymne gespielt. Das fand ich recht lustig und manche alte Lieder auch.

Projekt Abnehmen – Woche 5

Also diese Woche hab ich eine gute und eine schlechte Nachricht! Die Schlechte: Als ich mich heute morgen nach dem Aufstehen wieder gewogen habe, waren es wieder 113,7 KG. Die Gute: Als ich gestern nach dem Aufstehen gewogen habe, waren es 112,2 KG. Das gestrige Gewicht lässt sich leicht erklären, da ich freitagabends noch mit Toni im Fitnessstudio war und ein bisschen mit den Gewichten rumgespielt habe und allgemein nicht viel an dem Tag gegessen habe (zuerst die großen und dann kam aber ganz schnell der Moment, in dem nicht mehr viel ging. Das war auch mal besser, als ich weniger müde war).
Und warum es heute so viel war lässt sich auch gut erklären: Gestern war nicht viel los, mit Agron bei nem Verwandten am Computer was machen, danach Essen. Später wieder in Calw war die Besprechung fürs Zeltlager dran und schon wieder ein bisschen Kuchen essen. Danach war es abends und es gab noch Abendessen, und weil ich Agron noch bei ner Bewerbung helfen sollte, gab es hinterher noch einen Essen.
Ihr seht: Ich habe gut gegessen, aber wenig getan, dass erklärt wohl alles. :D
Daher habe ich heute also mal wieder eine Gewichtszunahme von 1,3 KG gegenüber letzten Sonntag zu vermelden.
Somit entwickelt sich langsam eine kleine Sinuskurve (hat natürlich auch was für sich. ), doch mein Ziel für nächsten Sonntag: Mindestens 111,9 KG zu wiegen und dann konstant jede Woche mindestens ein halbes Kilo abnehmen. Ich glaube, das müsste zu schaffen sein und werde mich auch dran halten.

Da ja auch manche meiner Kollegen mitlesen: Erinnert mich doch bitte daran, dass ich bis 7. März vorhabe ein Gewicht von 110 Kilo oder weniger zu wiegen. Danach wird's dann wieder einen leckeren Tiroler-Nuss-Kuchen oder den einen mit Kirschen geben. Falls ich es nicht schaffen sollte, gibt's 10 Euronen in die vordere Tasse. Meine Motivation sind natürlich die 110 Kilo!

Ich bin die Grinsekatze

Gesehen habe ich den Film Alice im Wunderland noch nicht, aber bei Knut hab ich mal wieder einen Filmcharakter-Test gefunden. Den wollte ich eben mal kurz machen. :D
Ich bin eben die Grinsekatze

Wo wir gerade von Katzen reden: "The Internet is Made of Cats"
Nur falls ihr das noch nicht wusstet. Das ist echt eine schöne Melodie, und der Refrain natürlich auch.
[youtube]http://www.youtube.com/watch?v=zi8VTeDHjcM[/youtube]
Gefunden bei Chriz

So dele, jetzt ruhe ich mich erstmal aus von langwierigem Kopfzerbrechen der letzten beiden Tage. WOCHENENDE!

[Update]Lösungsansätze für Lesen von Muster aus einer Textdatei

Nachdem ich vor kurzem mal auf mein Problem mit der COM-Programmierung hingewiesen habe und ein paar Anregungen bekommen habe, bin ich nun einen Schritt weiter.

1. Ich habe eine Möglichkeit gefunden den Text aus einer PDF mit dem Tool pdftotext in eine Textdatei umzuwandeln. Bei meiner Testpdf (die übrigens auch als Referenz für zukünftige Auftragsbestätigungen genommen werden kann) hat das super hingehauen.
Dazu genügt es einfach folgenden Code zu verwenden:

pdftotext -layout datei1.pdf ausgabe1.txt

2. Nun sind die ABs zwar in einer grafischen Logik dargestellt, aber mit dem Computer nur mühsam zu verarbeiten. Doch für was gibt es denn Reguläre Ausdrücke? Richtig um Muster zu finden. Die von mir benötigen Daten folgen glücklicherweise immer einem bestimmten Muster. Zum Beispiel ein Datum ist immer gleich aufgebaut und die Artikelnummern. Doch leider sind RegEx sehr schwer zu kapieren. Durch eine Googlesuche nach "Regex Generator" bin ich auf diese tolle Seite gestoßen: txt2re
Sie mag auf den ersten Blick sehr verwirrend sein, doch auf den zweiten Blick ist es einfach nur genial. Man gibt oben eine Zeile ein und kann unten per Mausklick auswählen, welche Muster man verarbeiten möchte und das Ganze dann auch noch in einer von vielen verbreiteten Sprachen.

Den zweiten Punkt werde ich morgen noch ausführlich testen in VB.NET und dann hoffentlich endlich ein Ergebnis bekommen. Wenn ich dann diese Datei habe, wird ein Export nicht mehr allzu schwer werden.

3. Ich muss nun noch nach der Syntax zum Lesen einer Datei in VB.NET googlen und das schreiben in der Datei. In C und PHP wüsste ich es noch einigermaßen, aber grafisch aufbereitet ist das ja immer etwas anders.

//Update:
Nun hab ich es endlich auch geschafft, was zu coden:

Imports System.IO
Imports System.Text.RegularExpressions

Module Module1

    Dim objDateiMacher As StreamWriter
    Dim objDateiLeser As StreamReader
    Sub Pdf2Txt(ByVal pdfFile As String, ByVal txtFile As String)
        Dim arguments As String = "-layout" & " " & pdfFile & " " & txtFile
        'make sure to provide the path with the pdfFile and the txtFile
        System.Diagnostics.Process.Start("c:\xpdf\pdftotext.exe", arguments)
    End Sub
    Sub Main()
        Call Pdf2Txt("C:\xpdf\datei\eingabe.pdf", "C:\xpdf\datei\ausgabe.txt" )
        Dim txt As String
        objDateiLeser = New StreamReader("C:\xpdf\datei\ausgabe.txt" )

        Dim re1 As String = ".*?"           'Non-greedy match on filler
        Dim re2 As String = "(BL[0-9]{7})"    'Word 1
        Dim r As Regex = New Regex(re1 + re2, RegexOptions.IgnoreCase Or RegexOptions.Singleline)

        Do
            txt = objDateiLeser.ReadLine

            Dim m As Match = r.Match(txt)

            If (m.Success) Then
                Dim word1 As Group = m.Groups(1)

                Debug.WriteLine(word1.ToString)
            End If

        Loop Until objDateiLeser.EndOfStream

        objDateiLeser.Close()
        objDateiLeser = Nothing
        Console.ReadKey()
    End Sub

End Module

Nach ein paar Änderungen am Code dank diesem Forum hier, tut das Programm auch und der unten abgebildete Fehler ist endlich weg.

Doch nun hapert es noch ein bisschen an den Regulären Ausdrücken, doch Übung macht der Meister. Probieren geht über Studieren.