% %>
![]() |
![]() |
News... | Hack-Acad | Downloads | Web-Projekte | System-Check | Kontakt |
Zu Testzwecken wird oft die Syntax einer Datenbankabfrage ausgegeben. Damit das ganze optisch etwas übersichtlicher wird hilft eine einfach Funktion. |
function SQLSyntaxHighLight(ByVal funcString) DIM funcArr funcArr = array("SELECT", "FROM", "INNER JOIN", "LEFT JOIN", "RIGHT JOIN", "IS NOT NULL", _ "IS NULL", "ORDER BY", "WHERE", "GROUP BY", "UNION", "INSERT INTO", "UPDATE",_ "DELETE", "ASC", "AS", "OR", "ON", "TOP", "DESC", "AND", "LIKE") for i = 0 to UBound(funcArr) funcString = Replace(funcString,funcArr(i),"<b>" & funcArr(i) & "</b>") next SQLSyntaxHighLight = funcString end function |
Das Array ist nur mit den gängisten Befehlen gefüllt. Nach ähnlichem Muster kann man auch mit anderen Sprachen verfahren. Wohlgemerkt ist dies ein recht einfacher Ansatz, doch sind es nicht immer die grossen Dinge, die Grosses bewirken! |