XProfan

strip_tags(string s){

    case s== : return
    long l=len(s),p=instr(<,s),p2=instr(>,s)

    while p and p2 {

        s=del$(s,p,p2-p+1)
        p=instr(<,s)
        p2=instr(>,s)

    }

    return s

F>}

proc STRIP_TAGS

    PARAMETERS s$

    IF s$=

        RETURN

    ENDIF

    var L&=LEN(s$)
    var P&=INSTR(<,s$)
    var P2&=INSTR(>,s$)

    WHILE P& AND P2&

        s$=DEL$(s$,P&,P2&-P&+1)
        P&=INSTR(<,s$)
        P2&=INSTR(>,s$)

    ENDWHILE

    RETURN s$

endproc