Quelltext in String konvertieren

[Codehunter]

Hallo,

Ich habe oft den Fall, dass ich längere mehrzeilige SQL-Queries als String brauche. Entsprechende Einfüge-Funktionen gibts in MMX, CnPack und GExperts, nur dummerweise bei keinem so wie ich es bräuchte. Ein Beispiel:

Code:

SELECT T1.A AS NAME_1,
       T2.A AS NAME_2,
       T2.B AS NAME_3
FROM MY_TABLE_1 AS T1
LEFT JOIN MY_TABLE_2 AS T2
  ON T1.KEYFIELD=T2.KEYFIELD
WHERE T2.C=:MY_PARAM_1
ORDER BY T2.B;

Daraus sollte werden:

Delphi-Quellcode:

'SELECT T1.A AS NAME_1, ' +
       'T2.A AS NAME_2, ' +
       'T2.B AS NAME_3 ' +
'FROM MY_TABLE_1 AS T1 ' +
'LEFT JOIN MY_TABLE_2 AS T2 ' +
  'ON T1.KEYFIELD=T2.KEYFIELD ' +
'WHERE T2.C=:MY_PARAM_1 ' +
'ORDER BY T2.B;';

Für sowas wäre es ideal, wenn Delphi HereDoc unterstützen würde anstatt dass man solche Klimmzüge machen muss. In meinem Fall scheidet auch die sauberere Lösung mit den Resourcenstrings aus, weil ich die Queries dynamisch zusammenbauen muss. Am nächsten dran ist für meinen Bedarf noch GExperts. Allerdings muss ich hier dann noch einen zweiten Schritt gehen und alle "'," in "' +" ersetzen. CnPack und MMX konvertieren jeweils noch die Zeilenumbrüche in "#13#10", was ja hier im Fall von SQL völlig unnötig ist.

Insgesamt halt ein bissl mühselig bei langen Queries. Der oben gezeigte ist ja noch winzig im Vergleich...

Grüße
Cody

[TigerLilly]

Dir geht es um die Einrückung?

[hoika]

Hallo,

Zitat:

Zeilenumbrüche in "#13#10", was ja hier im Fall von SQL völlig unnötig ist

Unnötig vielleicht, aber beim DBMonitor leichter lesbar.

[Codehunter]

Zitat:

Zitat von hoika (Beitrag 1431473)

Hallo,

Zitat:

Zeilenumbrüche in "#13#10", was ja hier im Fall von SQL völlig unnötig ist

Unnötig vielleicht, aber beim DBMonitor leichter lesbar.

Haste schon recht. Allerdings in meinem Fall nicht so kritisch. Die Queries werden vorher in einem SQL-Client entwickelt und von dort kommen auch die Umbrüche und Einrückungen. Wird also erst nach Delphi kopiert wenns fertig ist.

Zitat:

Zitat von TigerLilly (Beitrag 1431472)

Dir geht es um die Einrückung?

Auch. In den meisten Fällen konvertieren die Plugins die vorangestellten Spaces in den String. Ist kein Drama, damit könnte ich ja noch leben. Mehr stört mich der Zeilenumbruch nach #13#10 am Ende. Wegens der Lesbarkeit in der Delphi-Unit.

[Sherlock]

Ups, hab mich komplett vertan.

Sorry, kann gelöscht werden.

[jottkaerr]

Du könntest mit Suchen&Ersetzen arbeiten. Markiere den Text, rufe den Suchen&Ersetzen-Dialog auf, verwende

Code:

^{ *}{[^ ].*}$

als Suchmuster und

Code:

\0'\1 ' +

als Ersetzungstext. Bei den Optionen des Dialogs muss "Reguläre Ausdrücke" aktiviert sein. Nach dem Ausführen mit "Alles ersetzen" musst Du nur noch in der letzten Zeile (an deren Ende der Cursor positioniert wird) das Plus durch ein Semikolon ersetzen.

Falls sich jemand wundern sollte, wieso das eigentlich überflüssige "[^ ]" im zweiten Klammernpaar steht: der eigentlich äquivalente Suchausdruck

Code:

^{ *}{.*}$

hat bei Leerzeilen abgebrochen. Fragt mich nicht wieso ...

[p80286]

Zitat:

Zitat von Codehunter (Beitrag 1431471)

In meinem Fall scheidet auch die sauberere Lösung mit den Resourcenstrings aus, weil ich die Queries dynamisch zusammenbauen muss. Am nächsten dran ist für meinen Bedarf noch GExperts. Allerdings muss ich hier dann noch einen zweiten Schritt gehen und alle "'," in "' +" ersetzen. CnPack und MMX konvertieren jeweils noch die Zeilenumbrüche in "#13#10", was ja hier im Fall von SQL völlig unnötig ist.

Wahrscheinlich verstehe ich Dein Problem nicht richtig, denn es sollte für Dich doch kein Problem sein eine Importfunktion zu bauen die den SQL-Text in "'" einrahmt. Strings in SQL natürlich in "''" einpacken. Damit solltest Du doch eigentlich die meiste Arbeit erledigt haben?

Gruß
K-H

[Codehunter]

Zitat:

Zitat von jottkaerr (Beitrag 1431480)

Du könntest mit Suchen&Ersetzen arbeiten.

Interessante Idee! Nur wenn ich das genau so versuche wie beschrieben, sagt Delphi lediglich, dass keine Entsprechungen gefunden werden.

Zitat:

Zitat von p80286 (Beitrag 1431481)

Wahrscheinlich verstehe ich Dein Problem nicht richtig, denn es sollte für Dich doch kein Problem sein eine Importfunktion zu bauen die den SQL-Text in "'" einrahmt.

Ich hatte eigentlich nicht vor, wegen diesem "Sekundärproblemchen" in die IDE-Plugin-Entwicklung einzusteigen ^^ Du gehst vmtl. irrtümlich davon aus, dass ich den SQL-Query in ein eigenes Programm importieren und formatieren will. Ich red aber von der Delphi-IDE. Wobei mich das auf die Idee bringt, ein kleines Tool zu machen das einfach in der TNA rumliegt und auf einen globalen Shortut lauscht und bei Bedarf im Clipboard arbeitet.

[Uwe Raabe]

Die IDE hat im Menü "Bearbeiten" einen Eintrag "Mehrfach einfügen". Dieses Multipaste macht mit den richtigen Einstellungen ziemlich genau was du willst:

[dummzeuch]

Ich weiss, Du hast GExperts schon erwähnt. Aber kennst Du den Editor-Experten "Convert Strings"?

OK, ich sehe gerade, es gibt keine Möglichkeit, dabei die Zeilenumbrüche wegzulassen. Wäre vielleicht eine Erweiterungsidee und gar nicht so kompliziert umzusetzen.

Done.

https://blog.dummzeuch.de/wp-content...rt-Strings.png

Es gibt natürlich davon noch kein Release, aber Du kannst Dir ja einfach eine neue DLL backen. How to compile GExperts.

[jottkaerr]

Zitat:

Zitat von Codehunter (Beitrag 1431486)

Zitat:

Zitat von jottkaerr (Beitrag 1431480)

Du könntest mit Suchen&Ersetzen arbeiten.

Interessante Idee! Nur wenn ich das genau so versuche wie beschrieben, sagt Delphi lediglich, dass keine Entsprechungen gefunden werden.

Hast Du diese Einstellungen vorgenommen?

• bei Optionen nur "Reguläre Ausdrücke" markiert
• Richtung: Vorwärts
• Bereich: Markierter Text
• Beginn: Textanfang

Besonders der letzte Punkt ist wichtig, wenn Du die Textmarkierung von oben nach unten vorgenommen hast.

Außerdem sollte unter Tools/Optionen/Editor-Optionen "BRIEF reguläre Ausdrücke" nicht aktiviert sein.

Allerdings ist mir erst zu spät aufgefallen, dass diese Methode nicht mit einfachen Anführungszeichen im SQL-Befehl zurechtkommt.

[Sherlock]

Zitat:

Zitat von Uwe Raabe (Beitrag 1431490)

Die IDE hat im Menü "Bearbeiten" einen Eintrag "Mehrfach einfügen". Dieses Multipaste macht mit den richtigen Einstellungen ziemlich genau was du willst:

Es gibt Dinge, die mich immer wieder erstaunen! Warum habe ich dieses Juwel bisher noch nicht bemerkt?

Sherlock

[Codehunter]

Zitat:

Zitat von Uwe Raabe (Beitrag 1431490)

Die IDE hat im Menü "Bearbeiten" einen Eintrag "Mehrfach einfügen". Dieses Multipaste macht mit den richtigen Einstellungen ziemlich genau was du willst:

Da bin ich aber platt... Die IDE kann mal etwas ohne Außenbordmotor? :lol: Die Funktion habe ich noch nie verwendet, noch nicht mal bewusst wahrgenommen dass die da ist. Mit Ausnahme der Einrückungen tuts tatsächlich was ich brauche.

Zitat:

Zitat von dummzeuch (Beitrag 1431492)

Ich weiss, Du hast GExperts schon erwähnt. Aber kennst Du den Editor-Experten "Convert Strings"?

OK, ich sehe gerade, es gibt keine Möglichkeit, dabei die Zeilenumbrüche wegzulassen. Wäre vielleicht eine Erweiterungsidee und gar nicht so kompliziert umzusetzen.

Done.

https://blog.dummzeuch.de/wp-content...rt-Strings.png

Es gibt natürlich davon noch kein Release, aber Du kannst Dir ja einfach eine neue DLL backen. How to compile GExperts.

Schneller wie die Feuerwehr :-) Wenn du das ganz "perfekt" machen willst wären da noch die einrückenden Leerzeichen am Anfang jeder Zeile, die vor und nicht hinter dem einleitenden Hochkomma stehen müssten.

Zitat:

Zitat von jottkaerr (Beitrag 1431494)

Allerdings ist mir erst zu spät aufgefallen, dass diese Methode nicht mit einfachen Anführungszeichen im SQL-Befehl zurechtkommt.

Was dann leider hier zu Problemen führen würde.

[Uwe Raabe]

Zitat:

Zitat von Codehunter (Beitrag 1431497)

Mit Ausnahme der Einrückungen tuts tatsächlich was ich brauche.

Hast du den Haken bei "Zwischenablageinhalt kürzen" weggenommen?

[hstreicher]

Database Workbench (Kostenpflichtig von upscene.com) hat dazu eingebaute Funktionen für Export to Delphi und Export to C(++)

mfg Hannes

[peterbelow]

Zitat:

Zitat von Codehunter (Beitrag 1431471)

Hallo,

Ich habe oft den Fall, dass ich längere mehrzeilige SQL-Queries als String brauche. Entsprechende Einfüge-Funktionen gibts in MMX, CnPack und GExperts, nur dummerweise bei keinem so wie ich es bräuchte. Ein Beispiel:

Code:

SELECT T1.A AS NAME_1,
       T2.A AS NAME_2,
       T2.B AS NAME_3
FROM MY_TABLE_1 AS T1
LEFT JOIN MY_TABLE_2 AS T2
  ON T1.KEYFIELD=T2.KEYFIELD
WHERE T2.C=:MY_PARAM_1
ORDER BY T2.B;

Daraus sollte werden:

Delphi-Quellcode:

'SELECT T1.A AS NAME_1, ' +
       'T2.A AS NAME_2, ' +
       'T2.B AS NAME_3 ' +
'FROM MY_TABLE_1 AS T1 ' +
'LEFT JOIN MY_TABLE_2 AS T2 ' +
  'ON T1.KEYFIELD=T2.KEYFIELD ' +
'WHERE T2.C=:MY_PARAM_1 ' +
'ORDER BY T2.B;';

Ich habe mir dafür mal vor Jahrzehnten ein kleines Hilfsprogramm geschrieben, das ich über das Tools-Menu in die IDEs einklinke. Statement in die Zwischenablage kopieren, Programm aufrufen, den geänderten Text in den Sourcecode einfügen, fertig. Wo hab ich jetzt wieder den Sourcecode dafür gelassen... Oh Mann, 2003. Die Zeit fliegt dahin...

[Codehunter]

Ich danke euch erstmal allen für die vielen Vorschläge. Inzwischen bin ich wohlbehalten in Rom angekommen ;-) Allen ein schönes WE!