XProfan

 $H messages.ph
Def LINEFROMCHAR(2) SendMessage(&(1),~EM_LINEFROMCHAR,%(2),0)

Proc CheckBrackets

    Parámetros Int Línea, String Texto, Handle hTarget
    Declarar String sOut
    sOut = Translate$("Zeile " + Str$(Línea + 1) + ": offene/geschlossene Klammern " + Str$(Len(Texto,"(") - 1) + "/" + Str$(Len(Texto,")") - 1),"-1","0")
    SetText hTarget, sOut

ENDPROC

Cls
Var Handle hEdit = Crear("MultiEdit",%hwnd,"",10,10,400,380)
Var Handle hStatus = Crear("StatusWindow",%hwnd,"Test")

Mientras que 1

    WaitInput
    CheckBrackets(SendMessage(hEdit,~EM_LINEFROMCHAR,-1,0),GetString$(hEdit,SendMessage(hEdit,~EM_LINEFROMCHAR,-1,0)),hStatus)

Wend