XProfan

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

Proc CheckBrackets

    Parameters Int row, String Text, lever hTarget
    Declare String sOut
    sOut = Translate$("Zeile " + Str $(row + 1) + ": apertured/closed clinging " + Str $(Len(Text,"(") - 1) + "/" + Str $(Len(Text,")") - 1),"-1","0")
    SetText hTarget, sOut

ENDPROC

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

While 1

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

Wend