Basic Makro - Syntax Highlighting

de-users
#1

Hallo Robert,

Du siehst es ja via Dateianhang, Beschreibung ist nur für andere Interessierte:

Hier > IF InStr(st,"'") THEN < hat das Makro ab > '") THEN < grau eingefärbt.
Hier > st = Join(Split(st,"'"),"''") < ist die schließende Klammer > ) < grau geblieben.
Hier > Feldtrenner = Join(Split(aErster(1),"'"),"") < ist die schließende Klammer > ) < grau geblieben.

Und bei Zeilen dieser Art

stSql = "SELECT ""ID"" FROM """+NameTabelle1+""" WHERE """+NameTabellenFeld1+"""='"+stInhalt+"'"

sind +NameTabelle1+ | +NameTabellenFeld1+ | +stInhalt+

rot eingefärbt, obwohl sie grün bleiben sollten. Dass diese überirdischen " und ' Konstellationen problematisch sind, hatte ich ja schon in der Makro-Beschreibung im Makro dargelegt.

Aber da kann man sicherlich noch etwas machen, nur eben nicht "auf die Schnelle". Ich denke schon, dass das Makro mit genügend "Futter" noch "lernen" kann. Ich hatte ja erst mal nur relativ einfache Konstellationen berücksichtigt. Schau'n mer mal, habe ja jetzt eine Übungsdatei ...

Ergebnis mit Dateianhang "Robert.ods" via "CC:" an Dich. Die Bearbeitungszeit für diese 367 Makro-Zeilen war 2 Sekunden.

Falls Dir noch andere Fehler, beispielsweise bei den Schlüsselwörtern et cetera, auffallen sollten, lass es mich bitte wissen.

Gruß
Hans-Werner :-))