Удалить часть символьной строки, заключенной в скобки (вместе со скобками) в QBasic

code: #basic
LINE INPUT "vvedite text:"; a$
DO
    q1 = INSTR(a$, "(")
    q2 = INSTR(a$, ")")
    IF q1 > 0 AND q2 > 0 THEN
        a$ = MID$(a$, 1, q1 - 1) + MID$(a$, q2 + 1, LEN(a$) - q2)
    ELSE
        EXIT DO
    END IF
LOOP
PRINT a$
Поделиться:

Похожие статьи: