XProfan

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

Proc CheckBrackets

    Paramètres Int la ligne, String Text, Handle hTarget
    Déclarer String sOut
    sOut = Translate$("Zeile " + Str$(la ligne + 1) + ": offene/geschlossene Klammern " + Str$(Len(Text,"(") - 1) + "/" + Str$(Len(Text,")") - 1),"-1","0")
    SetText hTarget, sOut

ENDPROC

Cls
Var Handle hEdit = Créer("MultiEdit",%hwnd,»,10,10,400,380)
Var Handle hStatus = Créer("StatusWindow",%hwnd,"Test")

Tandis que 1

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

Wend