Songidee: Jeder Mensch wär gern mehr

Die Onkelz-Lieder in meinem Kopf, die sich eingebrannt hatten, flackerten mal wieder in meinem Gedächtnis auf … Ich habe dann über den Gesang von Kevin Russel nachgedacht und über die Art, wie er die Wörter betont. Anschließend kam dieses Lied heraus:

Verse 1

Es sind die gleichööön Gedanken
die immer wieda käääährn 
alte Gefühgöööö die meinen Geist verwirrn
wir ham uns lang nicht mehr geseh’n
weiß nicht mehr wer ihr seid
denke oft an diese Zeit 
in Freundschaft und auch Streit

Bridge 1
Ihr seid jetzt Master, Bachelor, Doktor oder noch Student
und sitzt an euren Plänen während eure Zeit verrinnt

Ref 1
Jeder Mensch wär gerne mehr
als er wirklich ist
Macht euch davon frei
Das Leben zieht vorbei
Vielleicht war ich der erste
doch ich bleib dabei
Geht euch mal erholen
und der Rest bleibt uns gestohlen

Verse 2
Wir sind die gleichööön Personen
die sich zusammen schwörn
die alten Gedanken solln niemals wieder kehrn
wir ham uns früher oft geseh’n
und ich weiß wer ihr seid
willst nichts mehr davon wissen
von uns’rer alten Zeit

Bridge 2
Jugendsünden, Flausen und wir hatten trotzdem Spaß
wir saßen oft zusammen und manchmal rauchten wir Gras

Ref 2:
Mancher Mensch ist oft mehr
als er zu seien scheint
Jetzt erfüllt ihr eure Pflicht
mit nem entschlossenem Gesicht
Vielleicht war ich der erste
doch ich bleib dabei
Geht euch mal erholen
und der Rest bleibt uns gestohlen

Solo

Man mag geteilter Meinung über die Band „Böhse Onkelz“ sein, man mag auch heute  abstreiten in einer post-pubertären Jugendphase gesteckt zu haben, wo man die Texte intensiv auf Parties mitgegrölt hat … eventuell denkt man über Menschen die so etwas heute tun sogar eher negativ, obwohl – sind wir mal ehrlich – die Texte (bis auf die ersten zwei Alben) keineswegs irgendwie daneben (rechtsradikal) sind. 

In meinem Kopf geistern heute immer noch die Onkelz-Lieder herum, auch wenn ich diese seit Jahren nicht mehr gehört habe. Ich könnte heute immer noch „Mexiko“, „Wir ham noch lange nicht genug“ – aber auch weniger „populäre“ Lieder wie „Könige für einen Tag“, „Gestern war heute noch morgen“, „Wenn wir einmal Engel sind…“ u.v.m. mitsingen. Dazu habe ich zugegeben nicht mehr die Gelegenheit, da sich durch den Umzug vom Dorf in die Stadt und den Wandel des alten Freundeskreises solche Parties / Musik-Zelebrierungen nicht mehr ergeben. 

Wovon handeln also die Texte, wenn sie nicht rechtsradikal sind? Aus dem Gedächtnis heraus würde ich sagen:

  • Die Wehr gegen Rufschädigung und übler Nachrede durch …
    • Medien (verbreiten nur Lügen über uns … okay das sagt ja Donald Trump auch)
    • andere Bands (im Hip Hop wird sich ja auch ständig gedisst)
      • Die Ärzte: „zwischen Störkraft und den Onkelz steht ne Kuschel-Rock LP“
      • Rausschmiss von Onkelz Fans bei Toten Hosen Konzerten
        • Campino: „..ich nehme der Band ab dass sie sich von ihrere Rechtsphase distanziert hat…“  (siehe hier)
  • Selbstbeweihräucherung (machen die Toten Hosen und Ärzte ja auch ständig)
  • Liebe, Schmerz, Freundschaft, Depressionen, Sinn des Lebens … 
  • Anprangern von negativem, destruktivem Verhalten, Neigungen, Philosophien oder Lebensweisen

Visual Basic und VBA: Dynamische String Array / Dynamic string array in VBA

Problem

In VBA soll ein dynamisches String-Array verwendet werden.

Solution – Lösung

Array initialisieren:

      Dim cbValuesStringArray() As String

      While i<10
        i = i + 1
        ReDim Preserve cbValuesStringArray(i - 1)
        cbValuesStringArray(i - 1) = CStr(i)
      End While

Array auslesen:

    For j = 0 To UBound(cbValuesStringArray)
        Debug.Print CStr(j) & " - " & cbValuesStringArray(j)
    Next j

Gewählte Worte und Framing der neuen Negativkultur gegen Smartphones und soziale Medien

Medien moralisieren zur Zeit die exzessive Handynutzung durch Anti-Smartphone-Kampagnen in Radio und Fernsehen. Dabei fällt auf, das eine komplett neue Terminologie der Anti-Kultur entsteht. Ich möchte gerne die häufigsten Begriffe hier dokumentieren.

Die folgenden Worte werden benutzt um sozialen Medien und Smartphones einen Negativ-Touch zu verpassen:

  • Prokrastination – Das Smartphone als Grund wichtige Dinge aufzuschieben
  • Phubbing – Trotz gesellschaftlichem Beisammensein ständige Handy-Nutzung
  • Smombie – Jemand der ununterbrochen auf das Handy starrt
  • Smombie Apokalypse – Szenario in dem fahrlässig Menschen getötet werden (z.B. durch ablenkende Handynutzung im Straßenverkehr)
  • to be continued…

MS Access SQL: Case Sensitive Upper Lower Case exact match in WHERE clause / In der WHERE Bedingung Groß- und Kleinbuchstaben berücksichtigen

Problem

MS ACCESS is not recognizing Upper and Lower Case Letters in search conditions within the WHERE-Clause
MS ACCESS berücksichtigt keine Groß- und Kleinbuchstaben in der WHERE-Clause der SQL Anweisungen.

Ansatz – Approach

Usage of the VBA Function StrComp can differentiate between upper and lower case
Die Nutzung der VBA Funktion StrComp kann Unterschiede zwischen Upper und Lower Case (Groß- und Kleinbuchstaben) aufdecken

Lösung – Solution

SELECT * 
FROM t_connector
WHERE StrComp(stereotype, 'Supports', 0)=0 
ORDER BY stereotype ASC

Findet alles was mit großem Supports anfängt, aber filtert alles mit kleinem supports raus.

C# + Reguläre Ausdrücke / Regular Expressions / Progress Tags : Alle Vorkommnisse zwischen einem Start-Teilstring und End-Teilstring (z.B. bei HTML Tags) finden und verarbeiten / Find all occurencies of start and end tag and progress them

Problem

Es sollen alle Vorkommnisse eine Start- und End-Tags gefunden werden und der Text dazwischen verarbeitet werden.

Ansatz – Approach

Verwendung von regulären Ausdrücken:

Regex.Matches findet alle Auftreten anhand eines Patterns, was den Regulären Ausdruck definiert:

(diagram://{[^>]+})

Eine Funktion string replaceDiagramAndElementLinkURLs(string eaNoteString) baut einen neuen String zusammen und schickt ihr wieder zurück.

Lösung – Solution

Im folgenden Beispiel gibt es in einem String mehrere Vorkommnisse des Start-Tags „$diagram://{“ und dem End-Tag „}“.
Zwischen dem Diagramm steht eine Nummer (guid) die an eine aspx-Seite übergeben werden soll.

Z.B. lautet der String

string verarbeiten = @"
<html>
...
Dies ist ein Diagramm: <a href="$diagram://{1234465}">Link 1</a> hier steht noch 
ein Diagramm: <a href="$diagram://{3455565}">Link 2</a> und das führt sich fort..
...
</html>
";

und nach dem Verarbeiten ist der Inhalt:

string verarbeiten = @"
<html>
...
Dies ist ein Diagramm: <a href="Level2Process.aspx?map=1234465">Link 1</a> hier steht noch 
ein Diagramm: <a href="Level2Process.aspx?map=3455565">Link 2</a> und das führt sich fort..
...
</html>
";

Dazu kann man folgenden Regulären Ausdruck verwenden:

    public static string replaceDiagramAndElementLinkURLs(string eaNoteString)
    {
        string neuerString = eaNoteString;
        string pattern = @"(diagram://{[^>]+})";

        MatchCollection matches = Regex.Matches(neuerString, pattern);

        if (matches.Count > 0)
        {
            foreach (Match m in matches)
            {
                string toReplace = "$" + m.Groups[1].ToString();
                string guid = toReplace.ToString().Replace("$diagram://", "");

                neuerString = neuerString.Replace(toReplace, "Level2Process.aspx?map="+guid );
            }
        }
        return neuerString;
}

BWIN.COM & Mobile/Handy: Wie bekomme ich das Geld zurück auf mein Paypal-Konto bei bwin.com (bet and win) / How-to get your money back to your Paypal-Account ( VISA / Neteller / Fast Bank Transfer / Skrill )

Problem

Sie wissen nicht wie Sie per Handy ihr (vorhandenes) Geld auf dem BWIN-Konto zurück per Paypal bekommen?
You do not know where to find the option in the mobile version to get back your money on bwin.com (bet and win) ?

Solution – Lösung

Öffnen Sie bwin.com auf ihrem Mobiltelefon und loggen sie sich ein
In der oberen linken Ecke klicken sie auf das Menü-Symbol
In dem erscheinenden Menü wählen sie die Option „Cashier“
Die gewünschte Option heißt „Withdrawal“, welche Sie nun per Klick auswählen
Nun können sie ihre bevorzugte Geld-zurück-Weise wählen (z.B. Paypal)
Geben Sie den Betrag ein, den Sie zurückbuchen möchten
Geben Sie weitere Daten, die für ihre gewählte Zahlungsweise nötig sind, an.

Open bwin.com on your mobile phone and log-in
Click the upper left corner (menu button) on the mobile version of the website.
In the appearing menu select „Cashier“
Click the „Withdrawal“ Option
You can select VISA / Neteller / PayPal / Fast Bank Transfer / Skrill
Choose the amount you want to get back from you bwin-account
Enter additional data according to your payment method

Sparx Systems Enterprise Architect: Get Images of Diagram By Diagram Name SQL

Problem

The Images of a specific diagram in the data structure of the Sparx Systems Enterprise Architect should be read by diagram name.

Approach

Usage of MDB Plus and Data Mining

Solution

This is SQL for the Access / .eap-File – it should be rewritten for other SQL Servers (i.e. the brackets can be removed and Functions like InStr/Mid shall be replaced)

SELECT	dia.Name As Diagram,
		IIF(Trim(objstart.[Name]) = 'Text', 'Text', objstart.stereotype) As stereotype, 
		diaobj.RectLeft As x,
		diaobj.RectTop As y,
		diaobj.RectRight-diaobj.RectLeft As Width,
		Abs(diaobj.RectBottom-diaobj.RectTop) As Height,
		objstart.Object_ID,
		IIF(Trim(objstart.[Name]) = 'Text', 'Text-'& objstart.Object_ID ,objstart.Alias) As [key],
		IIF(objstart.[Name] = 'Text', objstart.Note, objstart.[Name]) As phaseName,
		objstart.[ea_guid] As [guid],
		diaobj.ObjectStyle,
		IIF(
                    InStr(diaobj.ObjectStyle, "ImageID")>0, 
                    Mid(diaobj.ObjectStyle, InStr(diaobj.ObjectStyle, "ImageID")+8 , Len(diaobj.ObjectStyle)- (InStr( diaobj.ObjectStyle, "ImageID")+8) ),
                    ''
        ) As ImageId     
FROM
((
		[t_diagram] dia LEFT JOIN (Select Diagram_ID, Object_ID, RectLeft, RectTop, RectRight, RectBottom, ObjectStyle from [t_diagramobjects]) diaobj ON dia.[Diagram_ID]=diaobj.[Diagram_ID])
LEFT JOIN [t_object] objstart ON objstart.[Object_ID]=diaobj.[Object_ID])
WHERE objstart.Object_Type IN ('Text','Boundary') AND IIF(InStr(diaobj.ObjectStyle, "ImageID")>0, 
                                                                Mid(diaobj.ObjectStyle, InStr(diaobj.ObjectStyle, "ImageID")+8 , 
                                                                Len(diaobj.ObjectStyle)- (InStr( diaobj.ObjectStyle, "ImageID")+8) ),
                                                                '') <> ''
AND dia.Name='0' 
ORDER BY 12 DESC,1,2,3,4,5,6,7,8,9       

Sparx Systems Enterprise Architect SQL: Get all Images with ImageID of a diagram

Problem

All Images of an Diagram (the ImageIds) shall be determined, so that can be read out from the table t_image (see previous article about BLOB and EA).

Approach – Ansatz

Usage of the tables
– t_diagram
– t_diagramobjects
– t_object

Solution – Lösung

SELECT	dia.Name As Diagram,
		IIF(Trim(objstart.[Name]) = 'Text', 'Text', objstart.stereotype) As stereotype, 
		diaobj.RectLeft As x,
		diaobj.RectTop As y,
		diaobj.RectRight-diaobj.RectLeft As Width,
		Abs(diaobj.RectBottom-diaobj.RectTop) As Height,
		objstart.Object_ID,
		IIF(Trim(objstart.[Name]) = 'Text', 'Text-'& objstart.Object_ID ,objstart.Alias) As [key],
		IIF(objstart.[Name] = 'Text', objstart.Note, objstart.[Name]) As phaseName,
		objstart.[ea_guid] As [guid],
		diaobj.ObjectStyle,
		IIF(
                    InStr(diaobj.ObjectStyle, "ImageID")>0, 
                    Mid(diaobj.ObjectStyle, InStr(diaobj.ObjectStyle, "ImageID")+8 , Len(diaobj.ObjectStyle)- (InStr( diaobj.ObjectStyle, "ImageID")+8) ),
                    ''
        ) As ImageId     
FROM
((
		[t_diagram] dia LEFT JOIN (Select Diagram_ID, Object_ID, RectLeft, RectTop, RectRight, RectBottom, ObjectStyle from [t_diagramobjects]) diaobj ON dia.[Diagram_ID]=diaobj.[Diagram_ID])
LEFT JOIN [t_object] objstart ON objstart.[Object_ID]=diaobj.[Object_ID])
WHERE objstart.Object_Type IN ('Text','Boundary') AND IIF(InStr(diaobj.ObjectStyle, "ImageID")>0, 
                                                                Mid(diaobj.ObjectStyle, InStr(diaobj.ObjectStyle, "ImageID")+8 , 
                                                                Len(diaobj.ObjectStyle)- (InStr( diaobj.ObjectStyle, "ImageID")+8) ),
                                                                '') <> ''
AND dia.Name='{PutInYourDiagramNameHere}' 
ORDER BY 12 DESC,1,2,3,4,5,6,7,8,9    

Sparx Systems Enterprise Architect SQL : Query to get the order of objects / elements in the project browser tree

Problem

The order of tree elements in the project browser should be queried in SQL.
Die Reihenfolge der Objekte im Projekt-Browser soll über SQL abgefragt werden

Approach – Ansatz

Usage of the TPos column within the tables t_object and t_package.
Verwendung der TPos Spalte in den Tabellen t_object und t_package.

Solution – Lösung

SELECT b.TPos as Package_Position, 
       b.Name as Package_Name, 
       a.TPos as Object_Tree_Position, 
       a.Object_ID, 
       a.Name as Object_Description
FROM t_object a INNER JOIN t_package b ON a.Package_ID=b.Package_ID 
WHERE Stereotype='Process Step'
ORDER BY 1,2,3

by Björn Karpenstein