REM > StripExcel
      REM Strip Excel bloat from HTML page
      :
      in%=OPENIN("")
      out%=OPENOUT("H:\out.htm")
      REPEAT
        A$=GET$#in%
        IF LEFT$(A$,5)="<html":REPEAT:A$=GET$#in%:UNTILINSTR(A$,">"):A$="<html>"
        IF A$="<!--[if gte mso 9]><xml>":REPEAT:A$=GET$#in%:UNTILINSTR(A$,"</xml>"):A$=""
        REM REPEAT
        REM A%=INSTR(A$," x:"):B%=0
        REM IF A% THEN
        REM B%=INSTR(A$," ",A%+1):IF B%=0:B%=INSTR(A$,">",A%+1):IF B%=0:B%=LENA$+1
        REM IF B%:A$=LEFT$(A$,A%-1)+MID$(A$,B%)
        REM ENDIF
        REM UNTILB%=0
        :
        REPEAT
          A%=INSTR(A$," height="):B%=0
          IF A% THEN
            B%=INSTR(A$," ",A%+1):IF B%=0:B%=INSTR(A$,">",A%+1):IF B%=0:B%=LENA$+1
            IF B%:A$=LEFT$(A$,A%-1)+MID$(A$,B%)
          ENDIF
        UNTILB%=0
        :
        A%=INSTR(A$,"<td"):IF A%=0:A%=INSTR(A$,"<tr")
        IF A% THEN
          A%=INSTR(A$,"style='height")
          IF A% THEN
            A$=LEFT$(A$,A%-2)+MID$(A$,INSTR(A$,"'",A%+7)+1)
          ENDIF
        ENDIF
        :
        A%=INSTR(A$,"style='border-left:none'"):IF A%:A$=LEFT$(A$,A%-2)+MID$(A$,A%+24)
        A%=INSTR(A$,"</td>"):IF A%:A$=LEFT$(A$,A%-1)+MID$(A$,A%+5)
        A%=INSTR(A$,"</tr>"):IF A%:A$=LEFT$(A$,A%-1)+MID$(A$,A%+5)
        A$=FNs(A$)
        IFLEFT$(A$,1)=">":PTR#out%=PTR#out%-1
        IF A$<>"":BPUT#out%,A$
      UNTILEOF#in%
      CLOSE#out%
      CLOSE#in%
      QUIT
      :
   80 DEFFNs(A$):IFLEFT$(A$,1)=" ":REPEATA$=MID$(A$,2):UNTILLEFT$(A$,1)<>" "
   90 IFRIGHT$(A$,1)=" ":REPEATA$=LEFT$(A$,LENA$-1):UNTILRIGHT$(A$,1)<>" "
  100 =A$

Download StripExcel

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.