Geshi

[GSerg]

Какие цвета (в HTML) хотели бы видеть для SQL подсветки?

Те, которые и были, пожалуйста...
А было выделение ключевых слов тем же цветом, которым написано само слово SQL здесь:

Код: Выделить всё

, причём шрифт жирный ещё для них. А строковые литералы - серым.

[BV]

Код: Выделить всё

Option Explicit: Option Base 0
Option Compare Binary

Private Type STRUCT
    SomeItem As Long
End Type

Private Sub Form_Load()
    'Первая строка комментария _
        вторая строка комментария
    On Error GoTo 0
    On Error GoTo Error

    Dim Text As String
    Dim Time As Date
    Dim Binary As Byte
   
    Dim Access As Long, Read As Double
   
    Dim Number As Long
   
    Dim MyStruct As STRUCT
   
    'Первая строка комментария _ и _
        вторая строка комментария

    Text = "Date"
    Time = Date
   
    MsgBox Text & Chr$(32) & Time
   
    Rem Первая строка комментария _ ' _ Const _ & _
        вторая строка комментария _
        третья строка комментария
       
    Access = 1024
    Read = 3.14
   
    MsgBox Access + CLng(Read)
   
    On Error Resume Next
    Number = FreeFile
    Open "C:\File.ini" For Binary Access Read Lock Write As #Number
        '
    Close #Number
   
Error:
    If Err.Number Then
        Binary = Err.Number
        MsgBox Binary
    End If
End Sub

Код: Выделить всё

Option Explicit
Option Compare Text

Public Sub Main()
    Dim a As Variant, b As Single, c As Object
    b = 0.345669760987
   
    Let
    Set
    Get
    LCase
    LCase$
    Mid
    Mid$
    Left
    Left$
    Right
    Right$
    StrComp
    StrConv
    Str
    Str$
    String
    String$
    StrReverse
    Environ$
    Format$
    Hex$
    Switch
    Choose
    IIf
    Space
    Space$
    Replace
    Object

    Me.Line (0, 0)-(200, 400), RGB(100, 200, 100), BF
    Me.Print UCase$("Test")
End Sub

А дела обстоят ещё хуже, чем я полагал

[Хакер]

Так что всё таки моя подсветка рулит.

[keks-n]

Подсветку Хакера... Срочно.